From ce28bf9ebc1d1cdc7f6114d462866af27dc8dcf6 Mon Sep 17 00:00:00 2001
Message-Id: <ce28bf9ebc1d1cdc7f6114d462866af27dc8dcf6.1716034127.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Wed, 19 Nov 2008 07:53:50 +0000
Subject: [PATCH] Fixed return type for COMBO-BOX-GET-ACTIVE-TEXT
Organization: Straylight/Edgeware

From: espen <espen>

---
 gtk/gtk.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index a658a37..cac25d0 100644
--- a/gtk/gtk.lisp
+++ b/gtk/gtk.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: gtk.lisp,v 1.96 2008/11/04 20:18:08 espen Exp $
+;; $Id: gtk.lisp,v 1.97 2008/11/19 07:53:50 espen Exp $
 
 
 (in-package "GTK")
@@ -788,7 +788,7 @@ (defbinding combo-box-prepend-text () nil
   (text string))
 
 #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
-(defbinding combo-box-get-active-text () string
+(defbinding combo-box-get-active-text () (or string null)
   (combo-box combo-box))
 
 (defbinding combo-box-popup () nil
-- 
[mdw]