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

View File

@ -1,7 +1,7 @@
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 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
items (which includes submenus).
* Windows: fixed `get-font-from-user' when a parent frame is provided.
(PR 1371)
Version 102/8:
* Changed pen% width from integer to real number (still between

View File

@ -4823,7 +4823,7 @@
(check-instance 'get-font-from-user wx:font% 'font% #t font)
(check-style 'get-font-from-user #f null style)
(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]
[f (make-object dialog% "Choose Font" parent 500 300)]
[refresh-sample (lambda (b e) (let ([f (get-font)])