#!/bin/sh
# ----------------------------------------------------------------------
#  DEMO: notebookltr "Obtain help for this window"

.mw mousebar add frame filler2 -relief raised -borderwidth 2

.mw mousebar add button exit \
    -image [image create photo exit-img -file [file join $imagedir exit.gif]] \
    -helpstr "Exit this application" -command ::exit

.mw mousebar add frame filler3 -height 5

#
# Change the packing of the last fillers in the tool and mouse bar
# so that it expands across and down the rest of the mainwindow.
#
pack [.mw toolbar component filler3] -expand yes -fill both
pack [.mw mousebar component filler2] -expand yes -fill both


#
# Install a scrolledtext widget in the childsite.
#
iwidgets::scrolledtext [.mw childsite].st -visibleitems 40x8
pack [.mw childsite].st -fill both -expand yes

#
# Activate the main window.
#
.mw activate
                                                                                                                                                          usr/lib/iwidgets3.0.0/demos/menubar                                                                 100755       0       0         4743  6574525422  15423  0                                                                                                    ustar   root                            root                                                                                                                                                                                                                   #!/bin/sh
# ----------------------------------------------------------------------
#  DEMO: menubar in [incr Widgets]
# ----------------------------------------------------------------------
#\
exec itkwish "$0" ${1+"$@"}
package require Iwidgets 3.0

iwidgets::menubar .mb -helpvariable helpVar -menubuttons {
    menubutton file -text "File" -menu {
        options -tearoff false

        command new -label "New" \
                -helpstr "Open new document" \
                -command {puts "selected: New"}

        command close -label "Close" \
                -helpstr "Close current document" \
                -command {puts "selected: Close"}

        separator sep1

        command exit -label "Exit" -command {exit} \
                -