X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/51c39c68d65b055852174fcf83441d90de0e7b05..84d58948bc9cf543ac43e17da28d1a832baeff1a:/gtk/gtk.lisp

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index add329d..b4038d3 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.97 2008-11-19 07:53:50 espen Exp $
+;; $Id: gtk.lisp,v 1.98 2008-11-25 22:11:08 espen Exp $
 
 
 (in-package "GTK")
@@ -788,7 +788,7 @@
   (text string))
 
 #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
-(defbinding combo-box-get-active-text () (or string null)
+(defbinding combo-box-get-active-text () (or null string)
   (combo-box combo-box))
 
 (defbinding combo-box-popup () nil
@@ -865,8 +865,10 @@
 	  (funcall callback dialog (dialog-find-response dialog response))))
      (callback))))
 
-(defbinding dialog-run () nil
+(defbinding %dialog-run () int
   (dialog dialog))
+(defun dialog-run (dialog)
+  (dialog-find-response dialog (%dialog-run dialog)))
 
 (defbinding dialog-response (dialog response) nil
   (dialog dialog)