scsh-conservatory
/
orion-wm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added button package 

updated
This commit is contained in:
frese 2003-04-15 16:08:38 +00:00
parent b8ebf8b909
commit 84bbfcaec2
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/packages.scm
View File

@ -26,20 +26,23 @@
text-center-pos text-center-pos
window-level window-level
point-in-rectangle? point-in-rectangle?
set-wm-state! get-wm-state ((wm-state) :syntax)
maximize-window maximal-size/hints maximize-window maximal-size/hints
size-window desired-size/hints desired-position/hints size-window desired-size/hints desired-position/hints
install-colormaps uninstall-colormaps) install-colormaps uninstall-colormaps
now at-time-rv after-time-rv)
(open scheme i/o list-lib define-record-types finite-types enum-sets (open scheme i/o list-lib define-record-types finite-types enum-sets
threads locks placeholders rendezvous threads locks placeholders rendezvous rendezvous-channels
signals handle signals handle scsh
rx-syntax field-reader-package rx-syntax field-reader-package
xlib) xlib)
(files utils)) (files utils))
(define-structure dragging (define-structure dragging
(export install-dragging-control) (export install-dragging-control)
(open scheme define-record-types threads (open scheme define-record-types threads list-lib
rendezvous-channels rendezvous rendezvous-channels rendezvous
xlib xlib
utils) utils)
@ -52,7 +55,7 @@
(open scheme define-record-types threads list-lib (open scheme define-record-types threads list-lib
rendezvous-channels rendezvous rendezvous-channels rendezvous
xlib xlib
utils) utils button)
(files titlebar)) (files titlebar))
(define-structure prompt (define-structure prompt
@ -62,6 +65,16 @@
utils) utils)
(files prompt)) (files prompt))
(define-structure button
(export create-button destroy-button
map-button unmap-button
move-resize-button)
(open scheme list-lib rendezvous-channels
define-record-types
xlib
utils)
(files button))
;; *** key-grab ****************************************************** ;; *** key-grab ******************************************************
(define-structure key-grab (define-structure key-grab