44 lines
689 B
Scheme
44 lines
689 B
Scheme
|
;;;; qt-light.scm
|
||
|
|
|
||
|
|
|
||
|
|
(module goodbye-widgets (gb:saygoodbye)
|
||
|
|
|
||
|
|
(import
|
||
|
|
scheme
|
||
|
|
(chicken base)
|
||
|
|
(chicken bitwise)
|
||
|
|
(chicken foreign)
|
||
|
|
(chicken format)
|
||
|
|
(chicken fixnum)
|
||
|
|
(chicken string)
|
||
|
|
bind
|
||
|
|
miscmacros
|
||
|
|
qt-light
|
||
|
|
srfi-4 srfi-1 protobj matchable
|
||
|
|
)
|
||
|
|
|
||
|
|
|
||
|
|
(define <gb-button> (% <qt-widget> (class 'gb-button)))
|
||
|
|
|
||
|
|
(define (qt:->pointer i) (and i (? i pointer)))
|
||
|
|
(define (qt:pointer->button p) (and p (% <gb-button> (pointer p))))
|
||
|
|
|
||
|
|
(bind-rename/pattern "gb_" "gb:")
|
||
|
|
(bind-type gbbutton c-pointer gb:->pointer gb:pointer->button)
|
||
|
|
|
||
|
|
#>
|
||
|
|
#define ___safe
|
||
|
|
#define ___bool int
|
||
|
|
#define ___out
|
||
|
|
<#
|
||
|
|
|
||
|
|
#>
|
||
|
|
extern "C" {
|
||
|
|
#include "prototypes.h"
|
||
|
|
}
|
||
|
|
<#
|
||
|
|
|
||
|
|
(bind-file* "prototypes.h")
|
||
|
|
|
||
|
|
)
|