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

...

Browse Source 
original commit: 18f58aa92ea478fb1d19e07c8c886a258caecb38
This commit is contained in:
Robby Findler 1999-03-29 22:32:51 +00:00
parent e8d0bd9327
commit 8c0926f3d0
2 changed files with 2 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

@ -556,7 +556,7 @@
[set-search-direction
(lambda (x)
(set! searching-direction x)
(send dir-radio set-selection (if (= x 1) 0 1)))]
(send dir-radio set-selection (if (eq? x 'forward) 0 1)))]
[replace&search
(lambda ()
(when (replace)

2
collects/framework/guiutils.ss
View File

@ -130,7 +130,7 @@
(send vp set-alignment 'left 'center)
(send hp set-alignment 'right 'top)
(send (make-object button% true-choice hp on-true) focus)
(send (make-object button% true-choice hp on-true '(border)) focus)
(make-object button% false-choice hp on-false)
(send dialog center 'both)
(send dialog show #t)