my first of two problems

my first of two problems

[bert]

good evening again, list.  On advice from Marius (who i have advised to
take bicycle lessons), i have included a pared down version of my code
since i am too much the beginner to explain clearly what i'm doing or
what is wrong!!  half way down in the code you will see the
signal-connect that poses the problems for me.   the code runs just fine
(try it, please) until the signal-connect for tips-query.  much thanks
to any one who takes the time to help me.

adelante

#! /bin/sh
exec guile-gtk -s $0 $*
!#

(use-modules (gtk gtk))

(define (print-private tips-query widget tip-text tip-private ev data)
  (let ((d (gtk-dialog-new))
        (l (if (string=? tip-private "")
        tip-text
        tip-private)))
    (gtk-signal-connect d "destroy" (lambda () (gtk-widget-destroy d)))
    (gtk-box-pack-start (gtk-dialog-vbox d) l #f #f 0)
    (gtk-widget-show-all d)))


(let ((w (gtk-window-new 'toplevel))
      (vb (gtk-vbox-new #f 0))
      (tips (gtk-tooltips-new))
      (menu (gtk-menu-bar-new))
      (d-area (gtk-drawing-area-new))
      (tips-query (gtk-tips-query-new)))

;;; set attributes
  (gtk-signal-connect w "destroy" gtk-main-quit)
  (gtk-container-add w vb)
  (gtk-drawing-area-size d-area 300 200)

;;; pack vbox
  (gtk-box-pack-start vb menu #f #f 0)
  (gtk-box-pack-start vb tips-query #f #f 0)
  (gtk-box-pack-start vb d-area #f #f 0)

;;; signal connect tips-query(MY PROBLEM IS HERE!!!)
;;; i do not know how to define this callback (everything cruises until
this callback)
  (gtk-signal-connect tips-query "widget-selected"
        (lambda () (print-private tips-query widget tip-text tip-private

      event data)))

;;; menu stuff
  (let ((file-item (gtk-menu-item-new-with-label "File")))
    (gtk-menu-bar-append menu file-item)
    (gtk-tooltips-set-tip tips file-item "Left click" (string "inside
you'll find nothing\n"
        "it's a dummy item!"))
    (gtk-widget-show file-item))

  (let ((help-item (gtk-menu-item-new-with-label "Help")))
    (gtk-menu-bar-append menu help-item)
    (gtk-widget-show help-item)

;;; submenu
    (let ((help-menu (gtk-menu-new)))
      (gtk-menu-item-set-submenu help-item help-menu)
      (gtk-widget-show help-menu)

;;; here the activate does the "start query" just fine
      (let ((query-item (gtk-menu-item-new-with-label "What's this?")))
            (gtk-signal-connect query-item "activate"
                                       (lambda ()
(gtk-tips-query-start-query tips-query)))
            (gtk-menu-append help-menu query-item)
            (gtk-widget-show query-item))))

  (gtk-widget-show-all w)
  (gtk-standalone-main w))

Re: my first of two problems

[Marius Vollmer]

Hi,

maybe this is of help?  With this code, a dialog pops up, but there
are no buttons in it...

#! /bin/sh
exec guile-gtk -s $0 $*
!#

(use-modules (gtk gtk))

(define (print-private tip-text tip-private)
  (let ((d (gtk-dialog-new))
        (l (gtk-label-new (if (string=? tip-private "")
			      tip-text
			      tip-private))))
    (gtk-signal-connect d "destroy" (lambda () (gtk-widget-destroy d)))
    (gtk-box-pack-start (gtk-dialog-vbox d) l #f #f 0)
    (gtk-widget-show-all d)))


(let ((w (gtk-window-new 'toplevel))
      (vb (gtk-vbox-new #f 0))
      (tips (gtk-tooltips-new))
      (menu (gtk-menu-bar-new))
      (d-area (gtk-drawing-area-new))
      (tips-query (gtk-tips-query-new)))

;;; set attributes
  (gtk-signal-connect w "destroy" gtk-main-quit)
  (gtk-container-add w vb)
  (gtk-drawing-area-size d-area 300 200)

;;; pack vbox
  (gtk-box-pack-start vb menu #f #f 0)
  (gtk-box-pack-start vb tips-query #f #f 0)
  (gtk-box-pack-start vb d-area #f #f 0)

;;; signal connect tips-query(MY PROBLEM IS HERE!!!)  i do not know
;;; how to define this callback (everything cruises until this
;;; callback)
  (gtk-signal-connect tips-query "widget-selected"
		      (lambda (widget tip-text tip-private event)
			(print-private tip-text tip-private)))

;;; menu stuff
  (let ((file-item (gtk-menu-item-new-with-label "File")))
    (gtk-menu-bar-append menu file-item)
    (gtk-tooltips-set-tip tips file-item "Left click" 
			  "inside you'll find nothing\nit's a dummy item!")
    (gtk-widget-show file-item))

  (let ((help-item (gtk-menu-item-new-with-label "Help")))
    (gtk-menu-bar-append menu help-item)
    (gtk-widget-show help-item)

;;; submenu
    (let ((help-menu (gtk-menu-new)))
      (gtk-menu-item-set-submenu help-item help-menu)
      (gtk-widget-show help-menu)

;;; here the activate does the "start query" just fine
      (let ((query-item (gtk-menu-item-new-with-label "What's this?")))
	(gtk-signal-connect query-item "activate"
			    (lambda ()
			      (gtk-tips-query-start-query tips-query)))
	(gtk-menu-append help-menu query-item)
	(gtk-widget-show query-item))))

  (gtk-widget-show-all w)
  (gtk-standalone-main w))