gtk/gtktree.lisp: Fixing string representations of tree paths.

[clg] / gtk / gtk.lisp

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index a658a377cf9edb8ea5fb3d2f1d5e1f5c9a97513d..c5d3d54faac895698420ea36d574e129ae154078 100644 (file)
--- 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.
 
 ;; 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.98 2008/11/25 22:11:08 espen Exp $

 
 
 (in-package "GTK")
 
 
 (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")
   (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 null string)

   (combo-box combo-box))
 
 (defbinding combo-box-popup () nil
   (combo-box combo-box))
 
 (defbinding combo-box-popup () nil


@@ -865,8 +865,10 @@ (defmethod compute-signal-function ((dialog dialog) signal function object args)
          (funcall callback dialog (dialog-find-response dialog response))))
      (callback))))
 
          (funcall callback dialog (dialog-find-response dialog response))))
      (callback))))
 

-(defbinding dialog-run () nil
+(defbinding %dialog-run () int

   (dialog dialog))
   (dialog dialog))

+(defun dialog-run (dialog)
+  (dialog-find-response dialog (%dialog-run dialog)))

 
 (defbinding dialog-response (dialog response) nil
   (dialog dialog)
 
 (defbinding dialog-response (dialog response) nil
   (dialog dialog)