added eugtk examples

eugtk/examples/test49.ex

@@ -0,0 +1,54 @@
+
+-----------------------------------------------------------------------------
+--# Signal disconnect
+-- Note: this shows the way to register and disconnect a signal from
+-- a control. It is NOT the way to disable a control, since the  
+-- appearance of the control is not altered to indicate that it is
+-- disabled! For that, use set(ctl,"sensitive",FALSE).
+-- The possible uses for this would be to activate a one-time use button, 
+-- or to disconnect one signal and connect another, so a different function 
+-- is called thereafter.
+-----------------------------------------------------------------------------
+
+include GtkEngine.e
+
+constant docs = `<b><u>Signal Disconnect</u></b>
+Click the OK button, then try again!
+`
+constant win = create(GtkWindow,
+    "size=200x100,position=1,border_width=10,$destroy=Quit")
+
+constant panel = create(GtkBox,VERTICAL)
+    add(win,panel)
+
+constant lbl = create(GtkLabel)
+    set(lbl,"markup",docs)
+    add(panel,lbl)
+    
+constant
+    box = create(GtkButtonBox),
+    btn1 = create(GtkButton,"gtk-quit","Quit"),
+    btn2 = create(GtkButton,"gtk-ok")
+    set(btn2,"tooltip markup","Click me, please!")
+    add(box,{btn1,btn2})
+    pack(panel,-box)
+
+constant sig2 = connect(btn2,"clicked",_("Foo"))
+
+show_all(win)
+main()
+
+-------------------------
+function Foo()
+-------------------------
+
+    Info(win,"Sig Disconnect",
+        sprintf("Signal id: %d",sig2),
+        "this won't appear again!")
+
+    disconnect(btn2,sig2)
+    set(btn2,"tooltip markup",
+        "<span color='red'><i>Sorry,</i>\n the signal has been disconnected!</span>")
+
+return 1
+end function