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

win32: combo-field% on-popup

Browse Source 
original commit: 7571579ce5a9a0b20c83a5a64ff0e985030ce121
This commit is contained in:
Matthew Flatt 2010-12-16 10:48:05 -07:00
parent 30d1312fab
commit b538ecca40
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/private/wx/win32/canvas.rkt
View File

@ -47,6 +47,8 @@
(define HTHSCROLL 6) (define HTHSCROLL 6)
(define HTVSCROLL 7) (define HTVSCROLL 7)
(define CB_SHOWDROPDOWN #x014F)
(define-cstruct _SCROLLINFO (define-cstruct _SCROLLINFO
([cbSize _UINT] ([cbSize _UINT]
[fMask _UINT] [fMask _UINT]
@ -488,6 +490,9 @@
[(= cmd CBN_DROPDOWN) [(= cmd CBN_DROPDOWN)
(constrained-reply (get-eventspace) (lambda () (on-popup)) (void))])) (constrained-reply (get-eventspace) (lambda () (on-popup)) (void))]))
(define/public (popup-combo)
(SendMessageW combo-hwnd CB_SHOWDROPDOWN 1 0))
(define/override (is-hwnd? a-hwnd) (define/override (is-hwnd? a-hwnd)
(or (ptr-equal? panel-hwnd a-hwnd) (or (ptr-equal? panel-hwnd a-hwnd)
(ptr-equal? canvas-hwnd a-hwnd) (ptr-equal? canvas-hwnd a-hwnd)