Subversion Repositories or1k_old

#!/bin/sh

# ----------------------------------------------------------------------

#  DEMO: selectiondialog in [incr Widgets]

# ----------------------------------------------------------------------

#\

exec itkwish "$0" ${1+"$@"}

package require Iwidgets 3.0

# itkwish interprets the rest...

# ----------------------------------------------------------------------

option add *textBackground seashell

iwidgets::selectiondialog .sd -modality application

.sd configure -selectionlabel "Font:"

.sd insert items end Ariel Courier Helvetica Knarly Lucida \

    Rumpus Symbol Times "Zapf Dingbats"

button .select -text "Font..." -command {

    if {[.sd activate]} {

        puts "selected: [.sd get]"

    } else {

        puts "cancelled"

    }

}

pack .select -side left