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

.

Browse Source 
original commit: 7f6ee49c943843e57fdfd192cdb98ce13f2649b0
This commit is contained in:
Matthew Flatt 2003-03-02 14:30:50 +00:00
parent 2db97942f5
commit 5f64485b4f
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/mred.ss
View File

@ -1821,7 +1821,8 @@
(inherit get-dc get-client-size get-mred
set-min-width set-min-height
set-tab-focus)
set-tab-focus
set-background-to-gray)
(rename [super-on-size on-size])
(define selected 0)
@ -2069,6 +2070,8 @@
(super-instantiate (mred proxy parent -1 -1 -1 -1 null))
(set-background-to-gray)
(compute-sizes)
(set-min-width (inexact->exact (ceiling (get-total-width))))
(set-min-height (inexact->exact (ceiling (+ tab-height 9 raise-h))))))
@ -2089,7 +2092,8 @@
(inherit get-dc get-client-size get-mred
set-min-width set-min-height
set-tab-focus)
set-tab-focus
set-background-to-gray)
(rename [super-on-size on-size])
(define lbl label)
@ -2146,6 +2150,8 @@
(super-instantiate (mred proxy parent -1 -1 -1 -1 null))
(set-background-to-gray)
(compute-sizes)
(set-min-width (inexact->exact (ceiling (+ lbl-w group-right-inset 4))))
(set-min-height (inexact->exact (ceiling (+ lbl-h 6))))))

1
collects/mred/private/kernel.ss
View File

@ -335,6 +335,7 @@
on-size
on-set-focus
on-kill-focus
set-background-to-gray
this-context-current
swap-buffers
on-scroll