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

.

Browse Source 
original commit: d740ac18b8a522d9a49d8ecf320ee77e992c4e55
This commit is contained in:
Matthew Flatt 1999-03-28 21:58:23 +00:00
parent 8e29b77aaf
commit e8d0bd9327
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/mred/wrap/mred.ss
View File

@ -4350,7 +4350,9 @@
(send p stretchable-height #f)
(make-object button% "Cancel" p (done #f))
(make-object button% "Ok" p (done #t) '(border))
(send (send t get-editor) select-all)
(send t focus)
(send f center)
(send f show #t)
(and ok? (send t get-value))))]))
@ -4398,6 +4400,7 @@
(make-object button% "Cancel" p (done #f))
(set! ok-button (make-object button% "Ok" p (done #t) '(border)))
(update-ok l)
(send f center)
(send f show #t)
(and ok? (send l get-selections))))]))
@ -4577,6 +4580,7 @@
(make-object button% "Ok" bp (done #t) '(border))
(send bp set-alignment 'right 'center)
(send p set-alignment 'right 'center)
(send f center)
(send f show #t)
(and ok?
(make-object wx:color%
@ -4633,6 +4637,7 @@
(send size set-value (send font get-point-size)))
(send bp set-alignment 'right 'center)
(refresh-sample (void) (void))
(send f center)
(send f show #t)
(and ok? (get-font)))])))