diff options
| author | Charles.Forsyth <devnull@localhost> | 2006-12-22 17:07:39 +0000 |
|---|---|---|
| committer | Charles.Forsyth <devnull@localhost> | 2006-12-22 17:07:39 +0000 |
| commit | 37da2899f40661e3e9631e497da8dc59b971cbd0 (patch) | |
| tree | cbc6d4680e347d906f5fa7fca73214418741df72 /libtk/menu.tk | |
| parent | 54bc8ff236ac10b3eaa928fd6bcfc0cdb2ba46ae (diff) | |
20060303a
Diffstat (limited to 'libtk/menu.tk')
| -rw-r--r-- | libtk/menu.tk | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/libtk/menu.tk b/libtk/menu.tk new file mode 100644 index 00000000..0bacab34 --- /dev/null +++ b/libtk/menu.tk @@ -0,0 +1,49 @@ +frame .spacer -width 10c -height 5c + +listbox .spacer.l -yscrollcommand {.spacer.scroll set} -xscrollcommand {.scrollh set} +scrollbar .spacer.scroll -command {.spacer.l yview} +scrollbar .scrollh -orient horizontal -command {.spacer.l xview} -width [.spacer.l cget width] +.spacer.l insert end This is some text for the +.spacer.l insert end listboxandthisentryisverymuchlongerthattherest +.spacer.l insert end and here is some more stuff to box +.spacer.l insert end and here is some more stuff to box +.spacer.l insert end and here is some more stuff to box +.spacer.l insert end and here is some more stuff to box +.spacer.l insert end and here is some more stuff to box + +canvas .c -width 5c -height 3c +.c create rectangle 1c 1c 2c 2c -fill red +.c create line 1c 1c 2c 2c -arrow both + +pack .spacer.l .spacer.scroll .c -side left -fill y +.spacer.l selection set 3 + +frame .mbar -relief raised -bd 2 +pack .mbar -fill x +pack .mbar .spacer .scrollh -anchor w + +menubutton .mbar.file -text File -menu .mbar.file.m -underline 0 +menubutton .mbar.edit -text Edit -menu .mbar.edit.m -underline 0 +pack .mbar.file .mbar.edit -side left + +menu .mbar.file.m +.mbar.file.m add checkbutton -label Italic +.mbar.file.m add checkbutton -label Bold +.mbar.file.m add checkbutton -label Underline +.mbar.file.m add separator +.mbar.file.m add command -label Quit +.mbar.file.m add command -label Dictionary +.mbar.file.m add cascade -label Search -menu .mbar.file.m.global + +menu .mbar.edit.m +.mbar.edit.m add checkbutton -label Italic +.mbar.edit.m add checkbutton -label Bold +.mbar.edit.m add checkbutton -label Underline + +menu .mbar.file.m.global +.mbar.file.m.global add checkbutton -label "\{Case Sensitive\}" +.mbar.file.m.global add checkbutton -label Forward +.mbar.file.m.global add checkbutton -label Backward +.mbar.file.m.global add radiobutton -label "\{Upper case\}" -variable case -value u +.mbar.file.m.global add radiobutton -label "\{Lower case\}" -variable case -value l +.mbar.file.m.global add radiobutton -label "\{Case Insensitive\}" -variable case -value i |