suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

299 updates

Browse Source 
original commit: 199634fb88ffc7b953af6fb79e00732d424be6dc
This commit is contained in:
Mike MacHenry 2004-10-07 15:16:27 +00:00
parent 074fea6ce5
commit 8c72da58aa
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/embedded-gui/private/tabbable-text.ss
View File

@ -22,7 +22,7 @@
[ahead void] [ahead void]
[back void]) [back void])
;; get-keymaps (-> (listof keymap%)) #;(-> (listof keymap%))
;; the list of keymaps associated with this text ;; the list of keymaps associated with this text
(define/override (get-keymaps) (define/override (get-keymaps)
(let ([keymap (make-object keymap%)]) (let ([keymap (make-object keymap%)])
@ -41,7 +41,6 @@
(super-new))) (super-new)))
;; sets the tabbing of all of the texts in the order of the list ;; sets the tabbing of all of the texts in the order of the list
(define (set-tabbing . l) (define (set-tabbing . l)
(cond (cond

4
collects/embedded-gui/private/verthoriz-alignment.ss
View File

@ -66,7 +66,7 @@
(send child align (+ x x-offset) (+ y y-offset) w h)])) (send child align (+ x x-offset) (+ y y-offset) w h)]))
(when (and (is-shown?) (when (and (is-shown?)
(not (empty? children)) (not (empty? children)); this and
(not (zero? width)) ; this should be handled by align later (not (zero? width)) ; this should be handled by align later
(not (zero? height))) ; this one too (not (zero? height))) ; this one too
(for-each move/resize (for-each move/resize
@ -170,7 +170,7 @@
(define horizontal-alignment% (vert/horiz-alignment 'horizontal)) (define horizontal-alignment% (vert/horiz-alignment 'horizontal))
#;((is-a?/c alignment%) . -> . rect?) #;((is-a?/c alignment%) . -> . rect?)
;; makes a new default rect out of a snip ;; makes a new default rect out of an alignment
(define (build-rect item) (define (build-rect item)
(a:make-rect (a:make-rect
(a:make-dim 0 (send item get-min-width) (send item stretchable-width)) (a:make-dim 0 (send item get-min-width) (send item stretchable-width))