Enable to track git://github.com/monaka/binutils.git

[pf3gnuchains/pf3gnuchains3x.git] / itcl / iwidgets / demos / pushbutton

diff --git a/itcl/iwidgets/demos/pushbutton b/itcl/iwidgets/demos/pushbutton
new file mode 100644 (file)
index 0000000..17c80b2
--- /dev/null
+++ b/itcl/iwidgets/demos/pushbutton
@@ -0,0 +1,17 @@
+# ----------------------------------------------------------------------
+#  DEMO: pushbutton in [incr Widgets]
+# ----------------------------------------------------------------------
+package require Iwidgets 4.0
+
+. configure -background white
+
+iwidgets::pushbutton .pb -text "Push Me" -defaultring yes -command {
+    puts "Hello, World!"
+}
+pack .pb -padx 4 -pady 4
+
+checkbutton .default -text "Default ring" -variable defring \
+    -command {.pb configure -defaultring $defring}
+pack .default -padx 4 -pady 4
+
+.default invoke