Subversion Repositories Vertical

#/bin/sh -f

# comment\

exec /bin/cygwish80 $0 %*

source scripts/functions.tcl

OpenConsole .con cmd>

# Modified for xmktclapp (and for version of Tk prior to 8.0) by:

# D. Richard Hipp, <drh@hwaci.com>

# tk_getDirectory [option value ...]

#

#  options are :

#   [-initialdir dir]     display in dir

#   [-title string]       make string title of dialog window

#   [-ok string]          make string the label of OK button

#   [-open string]        make string the label of OPEN button

#   [-cancel string]      make string the label of CANCEL button

#   [-msg1 string]        make string the label of the first directory message

#   [-msg2 string]        make string the label of the second directory message

#

wm title . "VERTICAL"

frame .mb -bd 2 -relief raised

pack .mb -side top -fill x

menubutton .mb.file -text File -menu .mb.file.m

pack .mb.file -side left -padx 5

set m [menu .mb.file.m]

$m add command -label "Open..." -underline 0 -command DoOpen

$m add command -label "Save" -underline 0 -command DoSave

$m add command -label "Save As..." -underline 5 -command DoSaveAs

$m add separator

$m add command -label Exit -underline 1 -command DoExit

$m add cascade -label ddd  -menu .mb.file.m.ddd

menubutton .mb.help -text Help -menu .mb.help.m

pack .mb.help -side right -padx 5

set m [menu .mb.help.m]

$m add command -label "About This Program..." -underline 0 \

   -command "DoHelp About"

$m add command -label "Introduction..." -underline 0 -command "DoHelp What"

wossat

frame .a

label .a.l  -text "Command Filename:"

pack .a.l -side left

entry .a.e -relief sunken -width 30 -textvariable name

pack .a.e -side left

pack .a -side top

label .l1  -text "Database Filename:"

pack .l1 -side left

entry .f -relief sunken -width 30 -textvariable dname

pack .f -side left

button .b -text "Quit"

pack .b

button .c -text "shoes"

pack .c

listbox .y

bind .a.e <Return> {

  vertical do $name

  set_id_of_name fred blob

  set_id_of_name bkk

  }

bind .f <Return> {

  vertical read $name

  }