From b538ecca408481f6cf09e6659b8fbe0b613d05c8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 16 Dec 2010 10:48:05 -0700
Subject: [PATCH] win32: combo-field% on-popup

original commit: 7571579ce5a9a0b20c83a5a64ff0e985030ce121
---
 collects/mred/private/wx/win32/canvas.rkt | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/collects/mred/private/wx/win32/canvas.rkt b/collects/mred/private/wx/win32/canvas.rkt
index 92e3c78b..49377bb8 100644
--- a/collects/mred/private/wx/win32/canvas.rkt
+++ b/collects/mred/private/wx/win32/canvas.rkt
@@ -47,6 +47,8 @@
 (define HTHSCROLL           6)
 (define HTVSCROLL           7)
 
+(define CB_SHOWDROPDOWN #x014F)
+
 (define-cstruct _SCROLLINFO
   ([cbSize _UINT]
    [fMask _UINT]
@@ -488,6 +490,9 @@
         [(= cmd CBN_DROPDOWN)
          (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)
        (or (ptr-equal? panel-hwnd a-hwnd)
            (ptr-equal? canvas-hwnd a-hwnd)