To: lablgtk at kaba.or.jp
Subject: notebook: change_current_page
From: Christoph Bauer <c_bauer at informatik.uni-kl.de>
Date: Fri, 15 Aug 2003 12:59:19 +0200
Message-ID: <m37k5f89vc.fsf at diebuntekuh.de>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii

Hi List,

here is my next problem:

let w = GWindow.window () 
let nb = GPack.notebook ~packing:w#add ()
let t1 = GText.view ()
let t2 = GText.view ()

let () =
  nb#append_page t1#coerce;
  nb#append_page t2#coerce;
  nb#connect#change_current_page 
    ~callback: (fun d -> print_int d; print_newline ()); (* <-- this function is never called *)
  w#show ();
  GMain.main ();


Thanks for any help,
Christoph

P.S.: (to my last mail) I found the Pango module (there is no
pango.mli), but I don't know how to use it with the drawable#string
method.


-- 
proc self {} {foreach c [split [info body self] ""] d {14 -7 0 0 4 -67 4 73 11
69 24 -83 -15 6 -4 -84 78 20 11 -78 -1 -1 79 19 -8 4} { binary scan $c c c
if {[catch {append r [format %c [expr $c+$d]]}]} {return $r};}};puts [self]