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

...

Browse Source 
original commit: 86997ee9f8e924f8ebce768a37045a23f5a32219
This commit is contained in:
Robby Findler 2000-12-05 18:12:37 +00:00
parent 6940de82d3
commit 59f5d5d052
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/frame.ss
View File

@ -567,7 +567,6 @@
get-editor%
get-editor<%>
get-canvas-area-container
make-editor
save-as
get-canvas
@ -780,7 +779,6 @@
args))
(public
[get-canvas-area-container (lambda () (get-area-container))]
[get-canvas (let ([c #f])
(lambda ()
(unless c

3
collects/framework/panel.ss
View File

@ -238,6 +238,8 @@
(define vertical-resizable<%>
(interface (area-container<%>)
on-percentage
get-percentage
set-percentage))
(define vertical-resizable-mixin
@ -295,6 +297,7 @@
(inherit reflow-container get-top-level-window set-alignment get-alignment)
(public
[on-percentage (lambda (p) (void))]
[get-percentage (lambda () (send thumb-canvas get-percentage))]
[set-percentage
(lambda (p)
(send thumb-canvas set-percentage p)