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

.

Browse Source 
original commit: 6dd299e0823c48bbaf2f104bf6187f1e6f1bba8a
This commit is contained in:
Matthew Flatt 2000-03-05 20:33:52 +00:00
parent cb7c428b77
commit 1c3bdf3814
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
notes/mred/HISTORY
View File

@ -1,7 +1,7 @@
Version 102/9: Version 102/9:
* X: Fixed list-box% to handle arbitrarily many list items. * X: Fixed list-box% to handle arbitrarily many list items. (PR 1342)
* Added pop-down callback initialization argument to popup-menu%, and * Added pop-down callback initialization argument to popup-menu%, and
added the 'menu-popdown and 'menu-popdown-none event types to added the 'menu-popdown and 'menu-popdown-none event types to
@ -19,6 +19,9 @@ Version 102/9:
container calls the `on-demand' method of all of its labelled menu container calls the `on-demand' method of all of its labelled menu
items (which includes submenus). items (which includes submenus).
* Windows: fixed `get-font-from-user' when a parent frame is provided.
(PR 1371)
Version 102/8: Version 102/8:
* Changed pen% width from integer to real number (still between * Changed pen% width from integer to real number (still between

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

@ -4823,7 +4823,7 @@
(check-instance 'get-font-from-user wx:font% 'font% #t font) (check-instance 'get-font-from-user wx:font% 'font% #t font)
(check-style 'get-font-from-user #f null style) (check-style 'get-font-from-user #f null style)
(if (eq? (system-type) 'windows) (if (eq? (system-type) 'windows)
(wx:get-font-from-user message (and parent (mred->wx parent)) font style) (wx:get-font-from-user message (and parent (mred->wx parent)) font)
(letrec ([ok? #f] (letrec ([ok? #f]
[f (make-object dialog% "Choose Font" parent 500 300)] [f (make-object dialog% "Choose Font" parent 500 300)]
[refresh-sample (lambda (b e) (let ([f (get-font)]) [refresh-sample (lambda (b e) (let ([f (get-font)])