.
original commit: 6dd299e0823c48bbaf2f104bf6187f1e6f1bba8a
This commit is contained in:
parent
cb7c428b77
commit
1c3bdf3814
|
@ -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
|
||||
|
|
|
@ -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)])
|
||||
|
|
Loading…
Reference in New Issue
Block a user