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

...

Browse Source 
original commit: da6fdd59a4e71dfc0322db4fae3edcce0a10a920
This commit is contained in:
Robby Findler 1999-01-11 04:34:57 +00:00
parent b3730f959f
commit b0f77f169b
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/prefs.ss
View File

@ -350,7 +350,7 @@
(lambda (p v)
(send c set-value (pref->bool v))))))]
[id (lambda (x) x)])
(send main set-alignment 'right 'center)
(send main set-alignment 'left 'center)
(make-check 'framework:highlight-parens "Highlight between matching parens" id id)
(make-check 'framework:fixup-parens "Correct parens" id id)
(make-check 'framework:paren-match "Flash paren match" id id)
@ -558,7 +558,7 @@
[popup-callback
(lambda (choice command-event)
(send single-panel active-child
(ppanel-panel (list-ref ppanels (send command-event get-command-int)))))]
(ppanel-panel (list-ref ppanels (send choice get-selection)))))]
[make-popup-menu
(lambda ()
(let ([menu (make-object choice% "Category"

2
collects/tests/framework/prefs.ss
View File

@ -47,7 +47,7 @@
(send-sexp-to-mred '(preferences:show-dialog))
(wait-for-frame "Preferences")
(send-sexp-to-mred '(begin (preferences:hide-dialog)
(let ([f (get-top-level-focus-frame)])
(let ([f (get-top-level-focus-window)])
(if f
(if (string=? "Preferences" (send f get-label))
'failed