home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / demos / IWidgets / mainwindow < prev    next >
Encoding:
Text File  |  2001-10-22  |  5.1 KB  |  164 lines
  1. # ----------------------------------------------------------------------
  2. #  DEMO: mainwindow in [incr Widgets]
  3. # ----------------------------------------------------------------------
  4. package require Iwidgets 4.0
  5.  
  6. wm withdraw .
  7. iwidgets::mainwindow .mw
  8.  
  9. set imagedir [file join ${iwidgets::library} demos images]
  10.  
  11. #
  12. # Add a File menubutton
  13. #
  14. .mw menubar add menubutton file -text "File" -underline 0 -padx 8 -pady 2 \
  15.     -menu {options -tearoff no
  16.        command new -label "New" -underline 0 \
  17.            -helpstr "Create a new file"
  18.        command open -label "Open ..." -underline 0 \
  19.            -helpstr "Open an existing file"
  20.        command save -label "Save" -underline 0 \
  21.            -helpstr "Save the current file"
  22.        command saveas -label "Save As ..." -underline 5 \
  23.            -helpstr "Save the file as a differnet name"
  24.        command print -label "Print" -underline 0 \
  25.            -helpstr "Print the file"
  26.            separator sep1
  27.        command close -label "Close" -underline 0 \
  28.            -helpstr "Close the file"
  29.        separator sep2
  30.        command exit -label "Exit" -underline 1 \
  31.            -helpstr "Exit this application" 
  32.     }
  33.  
  34. #
  35. # Add the Edit menubutton.
  36. #
  37. .mw menubar add menubutton edit -text "Edit" -underline 0 -padx 8 -pady 2 \
  38.     -menu {options -tearoff no
  39.        command cut -label "Cut" -underline 2 \
  40.            -helpstr "Cut the selection into the clipboard"
  41.            command copy -label "Copy" -underline 0 \
  42.            -helpstr "Copy the selection to the clipboard"
  43.            command paste -label "Paste" -underline 0 \
  44.            -helpstr "Paste the clipboard to the current point"
  45.            separator sep3
  46.            command find -label "Find" -underline 2 \
  47.            -helpstr "Search the text"
  48.            separator sep4
  49.            command clear -label "Clear" -underline 2 \
  50.            -helpstr "Clear the selection"
  51.     }
  52.  
  53. #
  54. # Add the Help menubutton.
  55. #
  56. .mw menubar add menubutton help -text "Help" -underline 0 -padx 8 -pady 2 \
  57.     -menu {options -tearoff no
  58.        command onwindow -label "On Window" -underline 3 \
  59.            -helpstr "Obtain help on the window"
  60.            command onkeys -label "On Keys" -underline 3 \
  61.            -helpstr "Obtain help on the keys"
  62.            command index -label "Index" -underline 0 \
  63.            -helpstr "View the help index"
  64.            command onhelp -label "On Help" -underline 2 \
  65.            -helpstr "Obtain help on help"
  66.            command onversion -label "On Version" -underline 2 \
  67.            -helpstr "View the version information"
  68.     }
  69.  
  70. #
  71. # Add items to the toolbar.
  72. #
  73. .mw toolbar add frame filler1 -width 108 -relief raised -borderwidth 2
  74.  
  75. .mw toolbar add button new \
  76.     -image [image create photo -file [file join $imagedir new.gif]] \
  77.     -helpstr "Create a new file" \
  78.     -balloonstr "New"
  79.  
  80. .mw toolbar add button open \
  81.     -image [image create photo -file [file join $imagedir open.gif]] \
  82.     -helpstr "Open an existing file" \
  83.     -balloonstr "Open"
  84.  
  85. .mw toolbar add button close \
  86.     -image [image create photo -file [file join $imagedir close.gif]] \
  87.     -helpstr "Close the file" \
  88.     -balloonstr "Close"
  89.  
  90. .mw toolbar add frame filler2 -width 20 -relief raised -borderwidth 2
  91.  
  92. .mw toolbar add button cut \
  93.     -image [image create photo -file [file join $imagedir cut.gif]] \
  94.     -helpstr "Cut the selection into the cut buffer" \
  95.     -balloonstr "Cut"
  96.  
  97. .mw toolbar add button copy \
  98.     -image [image create photo -file [file join $imagedir copy.gif]] \
  99.     -helpstr "Copy the selection to the cut buffer" \
  100.     -balloonstr "Copy"
  101.  
  102. .mw toolbar add button paste \
  103.     -image [image create photo -file [file join $imagedir paste.gif]] \
  104.     -helpstr "Paste the cut buffer to the current point" \
  105.     -balloonstr "Paste"
  106.  
  107. .mw toolbar add button clear \
  108.     -image [image create photo -file [file join $imagedir clear.gif]] \
  109.     -helpstr "Clear the selection" \
  110.     -balloonstr "Clear"
  111.  
  112. .mw toolbar add frame filler3 -relief raised -borderwidth 2
  113.  
  114. #
  115. # Add items to the menubar.
  116. #
  117. .mw mousebar add button save \
  118.     -image [image create photo -file [file join $imagedir save.gif]] \
  119.     -helpstr "Save the current file"
  120.  
  121. .mw mousebar add button print \
  122.     -image [image create photo -file [file join $imagedir print.gif]] \
  123.     -helpstr "Print the file"
  124.  
  125. .mw mousebar add button find \
  126.     -image [image create photo -file [file join $imagedir find.gif]] \
  127.     -helpstr "Search the text"
  128.  
  129. .mw mousebar add frame filler1 -height 20 -relief raised -borderwidth 2
  130.  
  131. .mw mousebar add button help \
  132.     -image [image create photo -file [file join $imagedir help.gif]] \
  133.     -helpstr "Obtain help for this window"
  134.  
  135. .mw mousebar add frame filler2 -relief raised -borderwidth 2
  136.  
  137. .mw mousebar add button exit \
  138.     -image [image create photo -file [file join $imagedir exit.gif]] \
  139.     -helpstr "Exit this application"
  140.  
  141. .mw mousebar add frame filler3 -height 5
  142.  
  143. #
  144. # Change the packing of the last fillers in the tool and mouse bar
  145. # so that it expands across and down the rest of the mainwindow.
  146. #
  147. pack [.mw toolbar component filler3] -expand yes -fill both
  148. pack [.mw mousebar component filler2] -expand yes -fill both
  149.  
  150.  
  151. #
  152. # Install a scrolledtext widget in the childsite.
  153. #
  154. iwidgets::scrolledtext [.mw childsite].st -visibleitems 40x8
  155. pack [.mw childsite].st -fill both -expand yes
  156.  
  157. #
  158. # Activate the main window.
  159. #
  160. .mw activate
  161.  
  162.  
  163.  
  164.