Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | mjames | 1 | #/bin/sh -f |
| 2 | # comment\ |
||
| 3 | exec /bin/cygwish80 $0 %* |
||
| 4 | |||
| 5 | source scripts/functions.tcl |
||
| 6 | |||
| 7 | OpenConsole .con cmd> |
||
| 8 | |||
| 9 | # Modified for xmktclapp (and for version of Tk prior to 8.0) by: |
||
| 10 | # D. Richard Hipp, <drh@hwaci.com> |
||
| 11 | |||
| 12 | # tk_getDirectory [option value ...] |
||
| 13 | # |
||
| 14 | # options are : |
||
| 15 | # [-initialdir dir] display in dir |
||
| 16 | # [-title string] make string title of dialog window |
||
| 17 | # [-ok string] make string the label of OK button |
||
| 18 | # [-open string] make string the label of OPEN button |
||
| 19 | # [-cancel string] make string the label of CANCEL button |
||
| 20 | # [-msg1 string] make string the label of the first directory message |
||
| 21 | # [-msg2 string] make string the label of the second directory message |
||
| 22 | # |
||
| 23 | |||
| 24 | |||
| 25 | wm title . "VERTICAL" |
||
| 26 | frame .mb -bd 2 -relief raised |
||
| 27 | pack .mb -side top -fill x |
||
| 28 | menubutton .mb.file -text File -menu .mb.file.m |
||
| 29 | pack .mb.file -side left -padx 5 |
||
| 30 | set m [menu .mb.file.m] |
||
| 31 | $m add command -label "Open..." -underline 0 -command DoOpen |
||
| 32 | $m add command -label "Save" -underline 0 -command DoSave |
||
| 33 | $m add command -label "Save As..." -underline 5 -command DoSaveAs |
||
| 34 | $m add separator |
||
| 35 | $m add command -label Exit -underline 1 -command DoExit |
||
| 36 | $m add cascade -label ddd -menu .mb.file.m.ddd |
||
| 37 | |||
| 38 | menubutton .mb.help -text Help -menu .mb.help.m |
||
| 39 | pack .mb.help -side right -padx 5 |
||
| 40 | set m [menu .mb.help.m] |
||
| 41 | $m add command -label "About This Program..." -underline 0 \ |
||
| 42 | -command "DoHelp About" |
||
| 43 | $m add command -label "Introduction..." -underline 0 -command "DoHelp What" |
||
| 44 | |||
| 45 | wossat |
||
| 46 | |||
| 47 | frame .a |
||
| 48 | label .a.l -text "Command Filename:" |
||
| 49 | pack .a.l -side left |
||
| 50 | entry .a.e -relief sunken -width 30 -textvariable name |
||
| 51 | pack .a.e -side left |
||
| 52 | pack .a -side top |
||
| 53 | label .l1 -text "Database Filename:" |
||
| 54 | pack .l1 -side left |
||
| 55 | entry .f -relief sunken -width 30 -textvariable dname |
||
| 56 | pack .f -side left |
||
| 57 | button .b -text "Quit" |
||
| 58 | pack .b |
||
| 59 | button .c -text "shoes" |
||
| 60 | pack .c |
||
| 61 | listbox .y |
||
| 62 | |||
| 63 | bind .a.e <Return> { |
||
| 64 | vertical do $name |
||
| 65 | set_id_of_name fred blob |
||
| 66 | set_id_of_name bkk |
||
| 67 | } |
||
| 68 | |||
| 69 | bind .f <Return> { |
||
| 70 | vertical read $name |
||
| 71 | } |
||
| 72 | |||
| 73 | |||
| 74 |