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

.

Browse Source 
original commit: 545898507a47c80c3a9363644b6ca18511bfe07f
This commit is contained in:
Matthew Flatt 2003-04-04 13:31:45 +00:00
parent 2c3178eda2
commit f6bb5014c0
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/mred/mred.ss
View File

@ -890,8 +890,9 @@
#f #f
o) o)
#f)] #f)]
[dests (filter-overlapping [candidates
(map object->position (container->children panel o #t)))] (map object->position (container->children panel o #t))]
[dests (filter-overlapping candidates)]
[pos (if o (object->position o) (list 'x 0 0 1 1))] [pos (if o (object->position o) (list 'x 0 0 1 1))]
[o (traverse (cadr pos) (caddr pos) (cadddr pos) (list-ref pos 4) [o (traverse (cadr pos) (caddr pos) (cadddr pos) (list-ref pos 4)
(case code (case code
@ -2075,13 +2076,16 @@
(compute-sizes) (compute-sizes)
(set-min-width (inexact->exact (ceiling (get-total-width)))) (set-min-width (inexact->exact (ceiling (get-total-width))))
(set-min-height (inexact->exact (ceiling (+ tab-height 9 raise-h)))))) (set-min-height (inexact->exact (ceiling (+ tab-height 9 raise-h))))
(set-tab-focus #f)))
(define wx-tab-group% (define wx-tab-group%
(if (eq? 'unix (system-type)) (if (eq? 'unix (system-type))
canvas-based-tab-group% canvas-based-tab-group%
(make-window-glue% (class (make-window-glue%
(make-control% wx:tab-group% 0 0 #t #t)))) (make-control% wx:tab-group% 0 0 #t #t))
(define/override (gets-focus?) #f)
(super-instantiate ()))))
(define group-right-inset 4) (define group-right-inset 4)
@ -2155,13 +2159,16 @@
(compute-sizes) (compute-sizes)
(set-min-width (inexact->exact (ceiling (+ lbl-w group-right-inset 4)))) (set-min-width (inexact->exact (ceiling (+ lbl-w group-right-inset 4))))
(set-min-height (inexact->exact (ceiling (+ lbl-h 6)))))) (set-min-height (inexact->exact (ceiling (+ lbl-h 6))))
(set-tab-focus #f)))
(define wx-group-box% (define wx-group-box%
(if (eq? 'unix (system-type)) (if (eq? 'unix (system-type))
canvas-based-group-box% canvas-based-group-box%
(make-window-glue% (class (make-window-glue%
(make-control% wx:group-box% 0 0 #t #t)))) (make-control% wx:group-box% 0 0 #t #t))
(define/override (gets-focus?) #f)
(super-instantiate ()))))
;--------------------- wx media Classes ------------------------- ;--------------------- wx media Classes -------------------------