diff options
Diffstat (limited to 'itcl/iwidgets/demos/scrolledlistbox')
| -rw-r--r-- | itcl/iwidgets/demos/scrolledlistbox | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/itcl/iwidgets/demos/scrolledlistbox b/itcl/iwidgets/demos/scrolledlistbox new file mode 100644 index 00000000000..71d3d0c7a63 --- /dev/null +++ b/itcl/iwidgets/demos/scrolledlistbox @@ -0,0 +1,30 @@ +# ---------------------------------------------------------------------- +# DEMO: scrolledlistbox in [incr Widgets] +# ---------------------------------------------------------------------- +package require Iwidgets 4.0 + +option add *textBackground seashell +. configure -background white + +iwidgets::scrolledlistbox .slb -labeltext "Scrolledlistbox" \ + -vscrollmode dynamic -hscrollmode none \ + -selectmode single \ + -labelpos nw -selectioncommand { + puts "click: [.slb getcurselection]" + } + +pack .slb -padx 4 -pady 4 + +.slb insert 0 Hello World! Cruel +.slb delete "Hello" +.slb insert 0 "Goodbye" + +button .add -text "Add" -command { + .slb insert end "Goodbye!" +} +pack .add -padx 4 -pady 4 + +button .del -text "Delete" -command { + .slb delete 0 +} +pack .del -padx 4 -pady 4 |