home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / EDITOR / NVI179B / NVI179B.ZIP / tk / init.tcl next >
Text File  |  1996-07-19  |  35KB  |  1,097 lines
  1. #    @(#)init.tcl    8.10 (Berkeley) 7/19/96
  2. proc screen {} {
  3.     global tk_ssize_row
  4.     global tk_ssize_col
  5.  
  6.     # Build menubar with File, Options and Help entries.
  7.     frame .menu -relief raised -borderwidth 1
  8.     pack append . .menu {top fillx}
  9.  
  10.     # File pull-down menu
  11.     menubutton .menu.file -text "File" \
  12.         -menu .menu.file.fileops -underline 0
  13.     menu .menu.file.fileops
  14.     .menu.file.fileops add command -label "Edit ..." \
  15.         -command "tk_edit" -underline 0
  16.     .menu.file.fileops add command -label "Save File" \
  17.         -command "tk_write" -underline 0
  18.     .menu.file.fileops add command -label "Save File as ..." \
  19.         -command "tk_writeas" -underline 1
  20.     .menu.file.fileops add command -label "Save and Quit" \
  21.         -command "tk_writequit" -underline 7
  22.     .menu.file.fileops add command -label "Quit" \
  23.         -command "tk_quit" -underline 0
  24.  
  25.     # Options pull-down menu
  26.     menubutton .menu.option -text "Options" \
  27.         -menu .menu.option.optionops -underline 0
  28.     menu .menu.option.optionops
  29.     .menu.option.optionops add command -label "Set all" \
  30.         -command tk_options -underline 0
  31.  
  32.     # Help pull-down menu
  33.     menubutton .menu.help -text "Help" \
  34.         -menu .menu.help.helpops -underline 0
  35.     menu .menu.help.helpops
  36.     .menu.help.helpops add command -label "On Help" -underline 3 \
  37.         -command tk_help
  38.     .menu.help.helpops add command -label "On Version" -underline 3 \
  39.         -command tk_version
  40.  
  41.     pack append .menu \
  42.         .menu.file {left} .menu.option {left} .menu.help {right}
  43.  
  44.     # Set up for keyboard-based menu traversal
  45.     tk_bindForTraversal .
  46.     bind . <Any-Enter> {focus .}
  47.     focus .
  48.     tk_menuBar .menu .menu.file .menu.help
  49.  
  50.     # Create text window
  51.     text .t -relief raised -bd 1 -setgrid true -yscrollcommand ".s set"
  52.     scrollbar .s -relief flat -command ".t yview"
  53.     pack append . .s {right filly} .t {expand fill}
  54.  
  55.     # Use tags to build a cursor for the text window.
  56.     set bg [lindex [.t config -background] 4]
  57.     set fg [lindex [.t config -foreground] 4]
  58.     .t tag configure tk_cursor -background $fg -foreground $bg
  59.     .t mark set tk_cursor_indx insert
  60.     .t tag add tk_cursor tk_cursor_indx
  61.  
  62.     # Bind the keys.
  63.     bind .t <Any-KeyPress>    {tk_flash; break}
  64.     bind .t 0        {tk_key_enter "0"; break}
  65.     bind .t 1        {tk_key_enter "1"; break}
  66.     bind .t 2        {tk_key_enter "2"; break}
  67.     bind .t 3        {tk_key_enter "3"; break}
  68.     bind .t 4        {tk_key_enter "4"; break}
  69.     bind .t 5        {tk_key_enter "5"; break}
  70.     bind .t 6        {tk_key_enter "6"; break}
  71.     bind .t 7        {tk_key_enter "7"; break}
  72.     bind .t 8        {tk_key_enter "8"; break}
  73.     bind .t 9        {tk_key_enter "9"; break}
  74.     bind .t <BackSpace>    {tk_key_enter "\010"; break}
  75.     bind .t <Control-a>    {tk_key_enter "\001"; break}
  76.     bind .t <Control-b>    {tk_key_enter "\002"; break}
  77.     bind .t <Control-c>    {tk_key_enter "\003"; break}
  78.     bind .t <Control-d>    {tk_key_enter "\004"; break}
  79.     bind .t <Control-e>    {tk_key_enter "\005"; break}
  80.     bind .t <Control-f>    {tk_key_enter "\006"; break}
  81.     bind .t <Control-g>    {tk_key_enter "\007"; break}
  82.     bind .t <Control-h>    {tk_key_enter "\010"; break}
  83.     bind .t <Control-i>    {tk_key_enter "\011"; break}
  84.     bind .t <Control-j>    {tk_key_enter "\012"; break}
  85.     bind .t <Control-k>    {tk_key_enter "\013"; break}
  86.     bind .t <Control-l>    {tk_key_enter "\014"; break}
  87.     bind .t <Control-m>    {tk_key_enter "\015"; break}
  88.     bind .t <Control-n>    {tk_key_enter "\016"; break}
  89.     bind .t <Control-o>    {tk_key_enter "\017"; break}
  90.     bind .t <Control-p>    {tk_key_enter "\020"; break}
  91.     bind .t <Control-q>    {tk_key_enter "\021"; break}
  92.     bind .t <Control-r>    {tk_key_enter "\022"; break}
  93.     bind .t <Control-s>    {tk_key_enter "\023"; break}
  94.     bind .t <Control-t>    {tk_key_enter "\024"; break}
  95.     bind .t <Control-u>    {tk_key_enter "\025"; break}
  96.     bind .t <Control-v>    {tk_key_enter "\026"; break}
  97.     bind .t <Control-w>    {tk_key_enter "\027"; break}
  98.     bind .t <Control-x>    {tk_key_enter "\030"; break}
  99.     bind .t <Control-y>    {tk_key_enter "\031"; break}
  100.     bind .t <Control-z>    {tk_key_enter "\032"; break}
  101.     bind .t <Control_L>    {tk_noop; break}
  102.     bind .t <Control_R>    {tk_noop; break}
  103.     bind .t <Delete>    {tk_key_enter "x"; break}
  104.     bind .t <Down>        {tk_key_enter "j"; break}
  105.     bind .t <End>        {tk_key_enter "G"; break}
  106.     bind .t <Escape>    {tk_key_enter "\033"; break}
  107.     bind .t <Home>        {tk_key_enter "1G"; break}
  108.     bind .t <Insert>    {tk_key_enter "i"; break}
  109.     bind .t <Left>        {tk_key_enter "h"; break}
  110.     bind .t <Next>        {tk_key_enter "\006"; break}
  111.     bind .t <Prior>        {tk_key_enter "\002"; break}
  112.     bind .t <Return>    {tk_key_enter "\015"; break}
  113.     bind .t <Right>        {tk_key_enter "l"; break}
  114.     bind .t <Shift_L>    {tk_noop; break}
  115.     bind .t <Shift_Lock>    {tk_noop; break}
  116.     bind .t <Shift_R>    {tk_noop; break}
  117.     bind .t <Tab>        {tk_key_enter "\011"; break}
  118.     bind .t <Up>        {tk_key_enter "k"; break}
  119.     bind .t <ampersand>    {tk_key_enter "&"; break}
  120.     bind .t <asciicircum>    {tk_key_enter "^"; break}
  121.     bind .t <asciitilde>    {tk_key_enter "~"; break}
  122.     bind .t <asterisk>    {tk_key_enter "*"; break}
  123.     bind .t <at>        {tk_key_enter "@"; break}
  124.     bind .t <backslash>    {tk_key_enter "\\"; break}
  125.     bind .t <bar>        {tk_key_enter "|"; break}
  126.     bind .t <braceleft>    {tk_key_enter "{"; break}
  127.     bind .t <braceright>    {tk_key_enter "; break}"}
  128.     bind .t <bracketleft>    {tk_key_enter "\["; break}
  129.     bind .t <bracketright>    {tk_key_enter "]"; break}
  130.     bind .t <colon>        {tk_key_enter ":"; break}
  131.     bind .t <comma>        {tk_key_enter ","; break}
  132.     bind .t <dollar>    {tk_key_enter "$"; break}
  133.     bind .t <equal>        {tk_key_enter "="; break}
  134.     bind .t <exclam>    {tk_key_enter "!"; break}
  135.     bind .t <greater>    {tk_key_enter ">"; break}
  136.     bind .t <less>        {tk_key_enter "<"; break}
  137.     bind .t <minus>        {tk_key_enter "-"; break}
  138.     bind .t <numbersign>    {tk_key_enter "#"; break}
  139.     bind .t <parenleft>    {tk_key_enter "("; break}
  140.     bind .t <parenright>    {tk_key_enter ")"; break}
  141.     bind .t <percent>    {tk_key_enter "%"; break}
  142.     bind .t <period>    {tk_key_enter "."; break}
  143.     bind .t <plus>        {tk_key_enter "+"; break}
  144.     bind .t <question>    {tk_key_enter "?"; break}
  145.     bind .t <quotedbl>    {tk_key_enter "\""; break}
  146.     bind .t <quoteright>    {tk_key_enter "'"; break}
  147.     bind .t <semicolon>    {tk_key_enter ";"; break}
  148.     bind .t <slash>        {tk_key_enter "/"; break}
  149.     bind .t <space>        {tk_key_enter " "; break}
  150.     bind .t <underscore>    {tk_key_enter "_"; break}
  151.     bind .t A        {tk_key_enter "A"; break}
  152.     bind .t B        {tk_key_enter "B"; break}
  153.     bind .t C        {tk_key_enter "C"; break}
  154.     bind .t D        {tk_key_enter "D"; break}
  155.     bind .t E        {tk_key_enter "E"; break}
  156.     bind .t F        {tk_key_enter "F"; break}
  157.     bind .t G        {tk_key_enter "G"; break}
  158.     bind .t H        {tk_key_enter "H"; break}
  159.     bind .t I        {tk_key_enter "I"; break}
  160.     bind .t J        {tk_key_enter "J"; break}
  161.     bind .t K        {tk_key_enter "K"; break}
  162.     bind .t L        {tk_key_enter "L"; break}
  163.     bind .t M        {tk_key_enter "M"; break}
  164.     bind .t N        {tk_key_enter "N"; break}
  165.     bind .t O        {tk_key_enter "O"; break}
  166.     bind .t P        {tk_key_enter "P"; break}
  167.     bind .t Q        {tk_key_enter "Q"; break}
  168.     bind .t R        {tk_key_enter "R"; break}
  169.     bind .t S        {tk_key_enter "S"; break}
  170.     bind .t T        {tk_key_enter "T"; break}
  171.     bind .t U        {tk_key_enter "U"; break}
  172.     bind .t V        {tk_key_enter "V"; break}
  173.     bind .t W        {tk_key_enter "W"; break}
  174.     bind .t X        {tk_key_enter "X"; break}
  175.     bind .t Y        {tk_key_enter "Y"; break}
  176.     bind .t Z        {tk_key_enter "Z"; break}
  177.     bind .t a        {tk_key_enter "a"; break}
  178.     bind .t b        {tk_key_enter "b"; break}
  179.     bind .t c        {tk_key_enter "c"; break}
  180.     bind .t d        {tk_key_enter "d"; break}
  181.     bind .t e        {tk_key_enter "e"; break}
  182.     bind .t f        {tk_key_enter "f"; break}
  183.     bind .t g        {tk_key_enter "g"; break}
  184.     bind .t h        {tk_key_enter "h"; break}
  185.     bind .t i        {tk_key_enter "i"; break}
  186.     bind .t j        {tk_key_enter "j"; break}
  187.     bind .t k        {tk_key_enter "k"; break}
  188.     bind .t l        {tk_key_enter "l"; break}
  189.     bind .t m        {tk_key_enter "m"; break}
  190.     bind .t n        {tk_key_enter "n"; break}
  191.     bind .t o        {tk_key_enter "o"; break}
  192.     bind .t p        {tk_key_enter "p"; break}
  193.     bind .t q        {tk_key_enter "q"; break}
  194.     bind .t r        {tk_key_enter "r"; break}
  195.     bind .t s        {tk_key_enter "s"; break}
  196.     bind .t t        {tk_key_enter "t"; break}
  197.     bind .t u        {tk_key_enter "u"; break}
  198.     bind .t v        {tk_key_enter "v"; break}
  199.     bind .t w        {tk_key_enter "w"; break}
  200.     bind .t x        {tk_key_enter "x"; break}
  201.     bind .t y        {tk_key_enter "y"; break}
  202.     bind .t z        {tk_key_enter "z"; break}
  203.  
  204.     # XXX
  205.     # I haven't been able to make Tcl/Tk write uninitialized portions
  206.     # of the text window.  Fill in the screen.
  207.     tk_ssize
  208.     .t mark set insert 1.0
  209.     for {set i 1} {$i <= $tk_ssize_row} {incr i} {
  210.         for {set j 1} {$j <= $tk_ssize_col} {incr j} {
  211.             .t insert insert " "
  212.         }
  213.         .t insert insert "\n"
  214.     }
  215. }
  216.  
  217. # tk_noop --
  218. #    Do nothing.
  219. #
  220. # XXX
  221. # I can't figure out how to get a binding that does nothing without
  222. # calling a function, so this stub does it for me.
  223. proc tk_noop {} {
  224. }
  225.  
  226. # tk_key_enter --
  227. #    Enter a key.
  228. proc tk_key_enter {val} {
  229.     global newkey
  230.     global waiting
  231.  
  232.     set waiting 0
  233.     tk_key $val
  234.     set newkey 1
  235. }
  236.  
  237. # tk_key_wait --
  238. #    Wait for a key.
  239. proc tk_key_wait {timeout} {
  240.     global newkey
  241.     global waiting
  242.  
  243.     if { $timeout != 0 } {
  244.         after $timeout "set newkey 1"
  245.     }
  246.     set waiting 1
  247.     tkwait variable newkey
  248. }
  249.  
  250. # Callback functions for the File menu.
  251. # tk_edit
  252. #    Edit another file.
  253. proc tk_edit {} {
  254. }
  255.  
  256. # tk_quit
  257. #    Quit.
  258. proc tk_quit {} {
  259.     global newkey
  260.     global waiting
  261.  
  262.     tk_op quit
  263.     if { $waiting != 0 } {
  264.         set newkey 1
  265.     }
  266. }
  267.  
  268. # tk_write
  269. #    Write the edit buffer.
  270. proc tk_write {} {
  271.     global newkey
  272.     global waiting
  273.  
  274.     tk_op write
  275.     if { $waiting != 0 } {
  276.         set newkey 1
  277.     }
  278. }
  279.  
  280. # tk_writeas
  281. #    Write the edit buffer to a named file.
  282. proc tk_writeas {} {
  283. }
  284.  
  285. # tk_writequit
  286. #    Write and quit.
  287. proc tk_writequit {} {
  288.     global newkey
  289.     global waiting
  290.  
  291.     tk_op writequit
  292.     if { $waiting != 0 } {
  293.         set newkey 1
  294.     }
  295. }
  296.  
  297. # Callback functions for the Help menu.
  298. #
  299. # tk_help --
  300. #    Present a help screen.
  301. proc tk_help {} {
  302.     tk_dialog .d {} "No help screen currently available." {} 0 Continue
  303. }
  304.  
  305. # tk_options
  306. # Contains the option selector box. It is divided into three parts, the
  307. # checkbuttons for the boolean options, the entry fields for the string
  308. # numeric options, and a control area containing buttons.  There is only
  309. # one function.
  310. proc tk_options {} {
  311.  
  312.     # Build option selector box with three subframes for boolean,
  313.     # numeric, and string options.  Make it a toplevel window.
  314.     toplevel .os
  315.     wm title .os options
  316.  
  317.     # Option variables.
  318.     global tko_altwerase
  319.     global tko_autoindent
  320.     global tko_autoprint
  321.     global tko_autowrite
  322.     global tko_backup
  323.     global tko_beautify
  324.     global tko_cdpath
  325.     global tko_cedit
  326.     global tko_columns
  327.     global tko_comment
  328.     global tko_directory
  329.     global tko_edcompatible
  330.     global tko_escapetime
  331.     global tko_errorbells
  332.     global tko_exrc
  333.     global tko_extended
  334.     global tko_filec
  335.     global tko_flash
  336.     global tko_hardtabs
  337.     global tko_iclower
  338.     global tko_ignorecase
  339.     global tko_keytime
  340.     global tko_leftright
  341.     global tko_lines
  342.     global tko_lisp
  343.     global tko_list
  344.     global tko_lock
  345.     global tko_magic
  346.     global tko_matchtime
  347.     global tko_mesg
  348.     global tko_modeline
  349.     global tko_msgcat
  350.     global tko_noprint
  351.     global tko_number
  352.     global tko_octal
  353.     global tko_open
  354.     global tko_optimize
  355.     global tko_paragraphs
  356.     global tko_print
  357.     global tko_prompt
  358.     global tko_readonly
  359.     global tko_recdir
  360.     global tko_redraw
  361.     global tko_remap
  362.     global tko_report
  363.     global tko_ruler
  364.     global tko_scroll
  365.     global tko_searchincr
  366.     global tko_sections
  367.     global tko_secure
  368.     global tko_shell
  369.     global tko_shellmeta
  370.     global tko_shiftwidth
  371.     global tko_showmatch
  372.     global tko_showmode
  373.     global tko_sidescroll
  374.     global tko_slowopen
  375.     global tko_sourceany
  376.     global tko_tabstop
  377.     global tko_taglength
  378.     global tko_tags
  379.     global tko_term
  380.     global tko_terse
  381.     global tko_tildeop
  382.     global tko_timeout
  383.     global tko_ttywerase
  384.     global tko_verbose
  385.     global tko_warn
  386.     global tko_window
  387.     global tko_windowname
  388.     global tko_wraplen
  389.     global tko_wrapmargin
  390.     global tko_wrapscan
  391.     global tko_writeany
  392.  
  393.     # Initialize option values.
  394.     tk_opt_init
  395.  
  396.     # Build subframe for boolean options.
  397.     frame .os.bopts
  398.  
  399.     # This is the width of the edcompatible button.
  400.     set buttonwidth 13
  401.  
  402.     # Pack the boolean os, 5 to a frame.
  403.     frame .os.bopts.f1
  404.     pack append .os.bopts .os.bopts.f1 {top}
  405.     checkbutton .os.bopts.f1.b1 \
  406.         -variable tko_altwerase -text "altwerase" \
  407.         -command "tk_opt_set altwerase $tko_altwerase" \
  408.         -width $buttonwidth -anchor w
  409.     checkbutton .os.bopts.f1.b2 \
  410.         -variable tko_autoindent -text "autoindent" \
  411.         -command "tk_opt_set autoindent $tko_autoindent" \
  412.         -width $buttonwidth -anchor w
  413.     checkbutton .os.bopts.f1.b3 \
  414.         -variable tko_autoprint -text "autoprint" \
  415.         -command "tk_opt_set autoprint $tko_autoprint" \
  416.         -width $buttonwidth -anchor w
  417.     checkbutton .os.bopts.f1.b4 \
  418.         -variable tko_autowrite -text "autowrite" \
  419.         -command "tk_opt_set autowrite $tko_autowrite" \
  420.         -width $buttonwidth -anchor w
  421.     checkbutton .os.bopts.f1.b5 \
  422.         -variable tko_beautify -text "beautify" \
  423.         -command "tk_opt_set beautify $tko_beautify" \
  424.         -width $buttonwidth -anchor w
  425.     pack append .os.bopts.f1 \
  426.         .os.bopts.f1.b1 {left frame w} \
  427.         .os.bopts.f1.b2 {left frame w} \
  428.         .os.bopts.f1.b3 {left frame w} \
  429.         .os.bopts.f1.b4 {left frame w} \
  430.         .os.bopts.f1.b5 {left frame w}
  431.  
  432.     frame .os.bopts.f2
  433.     pack append .os.bopts .os.bopts.f2 {top}
  434.     checkbutton .os.bopts.f2.b1 \
  435.         -variable tko_comment -text "comment" \
  436.         -command "tk_opt_set comment $tko_comment" \
  437.         -width $buttonwidth -anchor w
  438.     checkbutton .os.bopts.f2.b2 \
  439.         -variable tko_edcompatible -text "edcompatible" \
  440.         -command "tk_opt_set edcompatible $tko_edcompatible" \
  441.         -width $buttonwidth -anchor w
  442.     checkbutton .os.bopts.f2.b3 \
  443.         -variable tko_errorbells -text "errorbells" \
  444.         -command "tk_opt_set errorbells $tko_errorbells" \
  445.         -width $buttonwidth -anchor w
  446.     checkbutton .os.bopts.f2.b4 \
  447.         -variable tko_exrc -text "exrc" \
  448.         -command "tk_opt_set exrc $tko_exrc" \
  449.         -width $buttonwidth -anchor w
  450.     checkbutton .os.bopts.f2.b5 \
  451.         -variable tko_extended -text "extended" \
  452.         -command "tk_opt_set extended $tko_extended" \
  453.         -width $buttonwidth -anchor w
  454.     pack append .os.bopts.f2 \
  455.         .os.bopts.f2.b1 {left frame w} \
  456.         .os.bopts.f2.b2 {left frame w} \
  457.         .os.bopts.f2.b3 {left frame w} \
  458.         .os.bopts.f2.b4 {left frame w} \
  459.         .os.bopts.f2.b5 {left frame w}
  460.  
  461.     frame .os.bopts.f3
  462.     pack append .os.bopts .os.bopts.f3 {top}
  463.     checkbutton .os.bopts.f3.b1 \
  464.         -variable tko_flash -text "flash" \
  465.         -command "tk_opt_set flash $tko_flash" \
  466.         -width $buttonwidth -anchor w
  467.     checkbutton .os.bopts.f3.b2 \
  468.         -variable tko_iclower -text "iclower" \
  469.         -command "tk_opt_set iclower $tko_iclower" \
  470.         -width $buttonwidth -anchor w
  471.     checkbutton .os.bopts.f3.b3 \
  472.         -variable tko_ignorecase -text "ignorecase" \
  473.         -command "tk_opt_set ignorecase $tko_ignorecase" \
  474.         -width $buttonwidth -anchor w
  475.     checkbutton .os.bopts.f3.b4 \
  476.         -variable tko_leftright -text "leftright" \
  477.         -command "tk_opt_set leftright $tko_leftright" \
  478.         -width $buttonwidth -anchor w
  479.     checkbutton .os.bopts.f3.b5 \
  480.         -variable tko_lisp -text "lisp" \
  481.         -command "tk_opt_set lisp $tko_lisp" \
  482.         -width $buttonwidth -anchor w
  483.     pack append .os.bopts.f3 \
  484.         .os.bopts.f3.b1 {left frame w} \
  485.         .os.bopts.f3.b2 {left frame w} \
  486.         .os.bopts.f3.b3 {left frame w} \
  487.         .os.bopts.f3.b4 {left frame w} \
  488.         .os.bopts.f3.b5 {left frame w}
  489.  
  490.     frame .os.bopts.f4
  491.     pack append .os.bopts .os.bopts.f4 {top}
  492.     checkbutton .os.bopts.f4.b1 \
  493.         -variable tko_list -text "list" \
  494.         -command "tk_opt_set list $tko_list" \
  495.         -width $buttonwidth -anchor w
  496.     checkbutton .os.bopts.f4.b2 \
  497.         -variable tko_lock -text "lock" \
  498.         -command "tk_opt_set lock $tko_lock" \
  499.         -width $buttonwidth -anchor w
  500.     checkbutton .os.bopts.f4.b3 \
  501.         -variable tko_magic -text "magic" \
  502.         -command "tk_opt_set magic $tko_magic" \
  503.         -width $buttonwidth -anchor w
  504.     checkbutton .os.bopts.f4.b4 \
  505.         -variable tko_mesg -text "mesg" \
  506.         -command "tk_opt_set mesg $tko_mesg" \
  507.         -width $buttonwidth -anchor w
  508.     checkbutton .os.bopts.f4.b5\
  509.         -variable tko_number -text "number" \
  510.         -command "tk_opt_set number $tko_number" \
  511.         -width $buttonwidth -anchor w
  512.     pack append .os.bopts.f4 \
  513.         .os.bopts.f4.b1 {left frame w} \
  514.         .os.bopts.f4.b2 {left frame w} \
  515.         .os.bopts.f4.b3 {left frame w} \
  516.         .os.bopts.f4.b4 {left frame w} \
  517.         .os.bopts.f4.b5 {left frame w}
  518.  
  519.     frame .os.bopts.f5
  520.     pack append .os.bopts .os.bopts.f5 {top}
  521.     checkbutton .os.bopts.f5.b1 \
  522.         -variable tko_octal -text "octal" \
  523.         -command "tk_opt_set octal $tko_octal" \
  524.         -width $buttonwidth -anchor w
  525.     checkbutton .os.bopts.f5.b2 \
  526.         -variable tko_open -text "open" \
  527.         -command "tk_opt_set open $tko_open" \
  528.         -width $buttonwidth -anchor w
  529.     checkbutton .os.bopts.f5.b3 \
  530.         -variable tko_optimize -text "optimize" \
  531.         -command "tk_opt_set optimize $tko_optimize" \
  532.         -width $buttonwidth -anchor w
  533.     checkbutton .os.bopts.f5.b4 \
  534.         -variable tko_prompt -text "prompt" \
  535.         -command "tk_opt_set prompt $tko_prompt" \
  536.         -width $buttonwidth -anchor w
  537.     checkbutton .os.bopts.f5.b5 \
  538.         -variable tko_readonly -text "readonly" \
  539.         -command "tk_opt_set readonly $tko_readonly" \
  540.         -width $buttonwidth -anchor w
  541.     pack append .os.bopts.f5 \
  542.         .os.bopts.f5.b1 {left frame w} \
  543.         .os.bopts.f5.b2 {left frame w} \
  544.         .os.bopts.f5.b3 {left frame w} \
  545.         .os.bopts.f5.b4 {left frame w} \
  546.         .os.bopts.f5.b5 {left frame w}
  547.  
  548.     frame .os.bopts.f6
  549.     pack append .os.bopts .os.bopts.f6 {top}
  550.     checkbutton .os.bopts.f6.b1 \
  551.         -variable tko_remap -text "remap" \
  552.         -command "tk_opt_set remap $tko_remap" \
  553.         -width $buttonwidth -anchor w
  554.     checkbutton .os.bopts.f6.b2 \
  555.         -variable tko_ruler -text "ruler" \
  556.         -command "tk_opt_set ruler $tko_ruler" \
  557.         -width $buttonwidth -anchor w
  558.     checkbutton .os.bopts.f6.b3 \
  559.         -variable tko_searchincr -text "searchincr" \
  560.         -command "tk_opt_set searchincr $tko_searchincr" \
  561.         -width $buttonwidth -anchor w
  562.     checkbutton .os.bopts.f6.b4 \
  563.         -variable tko_secure -text "secure" \
  564.         -command "tk_opt_set secure $tko_secure" \
  565.         -width $buttonwidth -anchor w
  566.     checkbutton .os.bopts.f6.b5 \
  567.         -variable tko_showmatch -text "showmatch" \
  568.         -command "tk_opt_set showmatch $tko_showmatch" \
  569.         -width $buttonwidth -anchor w
  570.     pack append .os.bopts.f6 \
  571.         .os.bopts.f6.b1 {left frame w} \
  572.         .os.bopts.f6.b2 {left frame w} \
  573.         .os.bopts.f6.b3 {left frame w} \
  574.         .os.bopts.f6.b4 {left frame w} \
  575.         .os.bopts.f6.b5 {left frame w}
  576.  
  577.     frame .os.bopts.f7
  578.     pack append .os.bopts .os.bopts.f7 {top}
  579.     checkbutton .os.bopts.f7.b1 \
  580.         -variable tko_showmode -text "showmode" \
  581.         -command "tk_opt_set showmode $tko_showmode" \
  582.         -width $buttonwidth -anchor w
  583.     checkbutton .os.bopts.f7.b2 \
  584.         -variable tko_slowopen -text "slowopen" \
  585.         -command "tk_opt_set slowopen $tko_slowopen" \
  586.         -width $buttonwidth -anchor w
  587.     checkbutton .os.bopts.f7.b3 \
  588.         -variable tko_sourceany -text "sourceany" \
  589.         -command "tk_opt_set sourceany $tko_sourceany" \
  590.         -width $buttonwidth -anchor w
  591.     checkbutton .os.bopts.f7.b4 \
  592.         -variable tko_terse -text "terse" \
  593.         -command "tk_opt_set terse $tko_terse" \
  594.         -width $buttonwidth -anchor w
  595.     checkbutton .os.bopts.f7.b5 \
  596.         -variable tko_tildeop -text "tildeop" \
  597.         -command "tk_opt_set tildeope $tko_tildeop" \
  598.         -width $buttonwidth -anchor w
  599.     pack append .os.bopts.f7 \
  600.         .os.bopts.f7.b1 {left frame w} \
  601.         .os.bopts.f7.b2 {left frame w} \
  602.         .os.bopts.f7.b3 {left frame w} \
  603.         .os.bopts.f7.b4 {left frame w} \
  604.         .os.bopts.f7.b5 {left frame w}
  605.  
  606.     frame .os.bopts.f8
  607.     pack append .os.bopts .os.bopts.f8 {top fillx}
  608.     checkbutton .os.bopts.f8.b1 \
  609.         -variable tko_timeout -text "timeout" \
  610.         -command "tk_opt_set timeout $tko_timeout" \
  611.         -width $buttonwidth -anchor w
  612.     checkbutton .os.bopts.f8.b2 \
  613.         -variable tko_ttywerase -text "ttywerase" \
  614.         -command "tk_opt_set ttywerase $tko_ttywerase" \
  615.         -width $buttonwidth -anchor w
  616.     checkbutton .os.bopts.f8.b3 \
  617.         -variable tko_verbose -text "verbose" \
  618.         -command "tk_opt_set verbose $tko_verbose" \
  619.         -width $buttonwidth -anchor w
  620.     checkbutton .os.bopts.f8.b4 \
  621.         -variable tko_warn -text "warn" \
  622.         -command "tk_opt_set warn $tko_warn" \
  623.         -width $buttonwidth -anchor w
  624.     checkbutton .os.bopts.f8.b5 \
  625.         -variable tko_windowname -text "windowname" \
  626.         -command "tk_opt_set windowname $tko_windowname" \
  627.         -width $buttonwidth -anchor w
  628.     pack append .os.bopts.f8 \
  629.         .os.bopts.f8.b1 {left frame w} \
  630.         .os.bopts.f8.b2 {left frame w} \
  631.         .os.bopts.f8.b3 {left frame w} \
  632.         .os.bopts.f8.b4 {left frame w} \
  633.         .os.bopts.f8.b5 {left frame w}
  634.  
  635.     frame .os.bopts.f9
  636.     pack append .os.bopts .os.bopts.f9 {top fillx}
  637.     checkbutton .os.bopts.f9.b1 \
  638.         -variable tko_wrapscan -text "wrapscan" \
  639.         -command "tk_opt_set wrapscan $tko_wrapscan" \
  640.         -width $buttonwidth -anchor w
  641.     checkbutton .os.bopts.f9.b2 \
  642.         -variable tko_writeany -text "writeany" \
  643.         -command "tk_opt_set writeany $tko_writeany" \
  644.         -width $buttonwidth -anchor w
  645.     pack append .os.bopts.f9 \
  646.         .os.bopts.f9.b1 {left frame w} \
  647.         .os.bopts.f9.b2 {left frame w}
  648.  
  649.     # Build frame for number options:
  650.     frame .os.nopts
  651.  
  652.     # Label and entry widths.
  653.     set lwidth 12
  654.     set ewidth  3
  655.  
  656.     frame .os.nopts.n1
  657.     label .os.nopts.n1.l -text "column:" -width $lwidth -anchor w
  658.     entry .os.nopts.n1.e -width $ewidth -relief raised \
  659.         -textvariable tko_columns
  660.     trace variable tko_columns w tk_opt_ew
  661.     pack append .os.nopts.n1 \
  662.         .os.nopts.n1.l {left} .os.nopts.n1.e {left frame w}
  663.  
  664.     frame .os.nopts.n2
  665.     label .os.nopts.n2.l -text "escapetime:" -width $lwidth -anchor w
  666.     entry .os.nopts.n2.e -width $ewidth -textvariable tko_escapetime \
  667.         -relief raised
  668.     trace variable tko_escapetime w tk_opt_ew
  669.     pack append .os.nopts.n2 \
  670.         .os.nopts.n2.l {left} .os.nopts.n2.e {left frame w}
  671.  
  672.     frame .os.nopts.n3
  673.     label .os.nopts.n3.l -text "hardtabs:" -width $lwidth -anchor w
  674.     entry .os.nopts.n3.e -width $ewidth -textvariable tko_hardtabs \
  675.         -relief raised
  676.     trace variable tko_hardtabs w tk_opt_ew
  677.     pack append .os.nopts.n3 \
  678.         .os.nopts.n3.l {left} .os.nopts.n3.e {left frame w}
  679.  
  680.     frame .os.nopts.n4
  681.     label .os.nopts.n4.l -text "keytime:" -width $lwidth -anchor w
  682.     entry .os.nopts.n4.e -width $ewidth -textvariable tko_keytime \
  683.         -relief raised
  684.     trace variable tko_keytime w tk_opt_ew
  685.     pack append .os.nopts.n4 \
  686.         .os.nopts.n4.l {left} .os.nopts.n4.e {left frame w}
  687.  
  688.     frame .os.nopts.n5
  689.     label .os.nopts.n5.l -text "lines:" -width $lwidth -anchor w
  690.     entry .os.nopts.n5.e -width $ewidth -textvariable tko_lines \
  691.         -relief raised
  692.     trace variable tko_lines w tk_opt_ew
  693.     pack append .os.nopts.n5 \
  694.         .os.nopts.n5.l {left} .os.nopts.n5.e {left frame w}
  695.  
  696.     frame .os.nopts.n6
  697.     label .os.nopts.n6.l -text "matchtime:" -width $lwidth -anchor w
  698.     entry .os.nopts.n6.e -width $ewidth -textvariable tko_matchtime \
  699.         -relief raised
  700.     trace variable tko_matchtime w tk_opt_ew
  701.     pack append .os.nopts.n6 \
  702.         .os.nopts.n6.l {left} .os.nopts.n6.e {left frame w}
  703.  
  704.     frame .os.nopts.n7
  705.     label .os.nopts.n7.l -text "report:" -width $lwidth -anchor w
  706.     entry .os.nopts.n7.e -width $ewidth -textvariable tko_report \
  707.         -relief raised
  708.     trace variable tko_report w tk_opt_ew
  709.     pack append .os.nopts.n7 \
  710.         .os.nopts.n7.l {left} .os.nopts.n7.e {left frame w}
  711.  
  712.     frame .os.nopts.n8
  713.     label .os.nopts.n8.l -text "scroll:" -width $lwidth -anchor w
  714.     entry .os.nopts.n8.e -width $ewidth -textvariable tko_scroll \
  715.         -relief raised
  716.     trace variable tko_scroll w tk_opt_ew
  717.     pack append .os.nopts.n8 \
  718.         .os.nopts.n8.l {left} .os.nopts.n8.e {left frame w}
  719.  
  720.     frame .os.nopts.n9
  721.     label .os.nopts.n9.l -text "shiftwidth:" -width $lwidth -anchor w
  722.     entry .os.nopts.n9.e -width $ewidth -textvariable tko_shiftwidth \
  723.         -relief raised
  724.     trace variable tko_shiftwidth w tk_opt_ew
  725.     pack append .os.nopts.n9 \
  726.         .os.nopts.n9.l {left} .os.nopts.n9.e {left frame w}
  727.  
  728.     frame .os.nopts.n10
  729.     label .os.nopts.n10.l -text "sidescroll:" -width $lwidth -anchor w
  730.     entry .os.nopts.n10.e -width $ewidth -textvariable tko_sidescroll \
  731.         -relief raised
  732.     trace variable tko_sidescroll w tk_opt_ew
  733.     pack append .os.nopts.n10 \
  734.         .os.nopts.n10.l {left} .os.nopts.n10.e {left frame w}
  735.  
  736.     frame .os.nopts.n11
  737.     label .os.nopts.n11.l -text "tabstop:" -width $lwidth -anchor w
  738.     entry .os.nopts.n11.e -width $ewidth -textvariable tko_tabstop \
  739.         -relief raised
  740.     trace variable tko_tabstop w tk_opt_ew
  741.     pack append .os.nopts.n11 \
  742.         .os.nopts.n11.l {left} .os.nopts.n11.e {left frame w}
  743.  
  744.     frame .os.nopts.n12
  745.     label .os.nopts.n12.l -text "taglength:" -width $lwidth -anchor w
  746.     entry .os.nopts.n12.e -width $ewidth -textvariable tko_taglength \
  747.         -relief raised
  748.     trace variable tko_taglength w tk_opt_ew
  749.     pack append .os.nopts.n12 \
  750.         .os.nopts.n12.l {left} .os.nopts.n12.e {left frame w}
  751.  
  752.     frame .os.nopts.n13
  753.     label .os.nopts.n13.l -text "window:" -width $lwidth -anchor w
  754.     entry .os.nopts.n13.e -width $ewidth -textvariable tko_window \
  755.         -relief raised
  756.     trace variable tko_window w tk_opt_ew
  757.     pack append .os.nopts.n13 \
  758.         .os.nopts.n13.l {left} .os.nopts.n13.e {left frame w}
  759.  
  760.     frame .os.nopts.n14
  761.     label .os.nopts.n14.l -text "wraplen:" -width $lwidth -anchor w
  762.     entry .os.nopts.n14.e -width $ewidth -textvariable tko_wraplen \
  763.         -relief raised
  764.     trace variable tko_wraplen w tk_opt_ew
  765.     pack append .os.nopts.n14 \
  766.         .os.nopts.n14.l {left} .os.nopts.n14.e {left frame w}
  767.  
  768.     frame .os.nopts.n15
  769.     label .os.nopts.n15.l -text "wrapmargin:" -width $lwidth -anchor w
  770.     entry .os.nopts.n15.e -width $ewidth -textvariable tko_wrapmargin \
  771.         -relief raised
  772.     trace variable tko_wrapmargin w tk_opt_ew
  773.     pack append .os.nopts.n15 \
  774.         .os.nopts.n15.l {left} .os.nopts.n15.e {left frame w}
  775.  
  776.     pack append .os.nopts \
  777.         .os.nopts.n1 {top fillx} \
  778.         .os.nopts.n3 {top expand fillx} \
  779.         .os.nopts.n4 {top expand fillx} \
  780.         .os.nopts.n5 {top expand fillx} \
  781.         .os.nopts.n6 {top expand fillx} \
  782.         .os.nopts.n7 {top expand fillx} \
  783.         .os.nopts.n8 {top expand fillx} \
  784.         .os.nopts.n9 {top expand fillx} \
  785.         .os.nopts.n10 {top expand fillx} \
  786.         .os.nopts.n11 {top expand fillx} \
  787.         .os.nopts.n12 {top expand fillx} \
  788.         .os.nopts.n13 {top expand fillx} \
  789.         .os.nopts.n14 {top expand fillx} \
  790.         .os.nopts.n15 {top expand fillx}
  791.  
  792.     # Build frame for string options
  793.     frame .os.sopts
  794.  
  795.     # Entry width.
  796.     set ewidth  40
  797.  
  798.     frame .os.sopts.s1
  799.     label .os.sopts.s1.l -text "backup:" -width $lwidth -anchor w
  800.     entry .os.sopts.s1.e -width $ewidth -textvariable tko_backup \
  801.         -relief raised
  802.     pack append .os.sopts.s1 \
  803.         .os.sopts.s1.l {left} .os.sopts.s1.e {left frame w}
  804.  
  805.     frame .os.sopts.s2
  806.     label .os.sopts.s2.l -text "cdpath:" -width $lwidth -anchor w
  807.     entry .os.sopts.s2.e -width $ewidth -textvariable tko_cdpath \
  808.         -relief raised
  809.     pack append .os.sopts.s2 \
  810.         .os.sopts.s2.l {left} .os.sopts.s2.e {left frame w}
  811.  
  812.     frame .os.sopts.s3
  813.     label .os.sopts.s3.l -text "directory:" -width $lwidth -anchor w
  814.     entry .os.sopts.s3.e -width $ewidth -textvariable tko_directory \
  815.         -relief raised
  816.     pack append .os.sopts.s3 \
  817.         .os.sopts.s3.l {left} .os.sopts.s3.e {left frame w}
  818.  
  819.     frame .os.sopts.s4
  820.     label .os.sopts.s4.l -text "cedit:" -width $lwidth -anchor w
  821.     entry .os.sopts.s4.e -width $ewidth -textvariable tko_cedit \
  822.         -relief raised
  823.     pack append .os.sopts.s4 \
  824.         .os.sopts.s4.l {left} .os.sopts.s4.e {left frame w}
  825.  
  826.     frame .os.sopts.s5
  827.     label .os.sopts.s5.l -text "filec:" -width $lwidth -anchor w
  828.     entry .os.sopts.s5.e -width $ewidth -textvariable tko_filec \
  829.         -relief raised
  830.     pack append .os.sopts.s5 \
  831.         .os.sopts.s5.l {left} .os.sopts.s5.e {left frame w}
  832.  
  833.     frame .os.sopts.s6
  834.     label .os.sopts.s6.l -text "msgcat:" -width $lwidth -anchor w
  835.     entry .os.sopts.s6.e -width $ewidth -textvariable tko_msgcat \
  836.         -relief raised
  837.     pack append .os.sopts.s6 \
  838.         .os.sopts.s6.l {left} .os.sopts.s6.e {left frame w}
  839.  
  840.     frame .os.sopts.s7
  841.     label .os.sopts.s7.l -text "noprint:" -width $lwidth -anchor w
  842.     entry .os.sopts.s7.e -width $ewidth -textvariable tko_noprint \
  843.         -relief raised
  844.     pack append .os.sopts.s7 \
  845.         .os.sopts.s7.l {left} .os.sopts.s7.e {left frame w}
  846.  
  847.     frame .os.sopts.s8
  848.     label .os.sopts.s8.l -text "paragraphs:" -width $lwidth -anchor w
  849.     entry .os.sopts.s8.e -width $ewidth -textvariable tko_paragraphs \
  850.         -relief raised
  851.     pack append .os.sopts.s8 \
  852.         .os.sopts.s8.l {left} .os.sopts.s8.e {left frame w}
  853.  
  854.     frame .os.sopts.s9
  855.     label .os.sopts.s9.l -text "print:" -width $lwidth -anchor w
  856.     entry .os.sopts.s9.e -width $ewidth -textvariable tko_print \
  857.         -relief raised
  858.     pack append .os.sopts.s9 \
  859.         .os.sopts.s9.l {left} .os.sopts.s9.e {left frame w}
  860.  
  861.     frame .os.sopts.s10
  862.     label .os.sopts.s10.l -text "recdir:" -width $lwidth -anchor w
  863.     entry .os.sopts.s10.e -width $ewidth -textvariable tko_recdir \
  864.         -relief raised
  865.     pack append .os.sopts.s10 \
  866.         .os.sopts.s10.l {left} .os.sopts.s10.e {left frame w}
  867.  
  868.     frame .os.sopts.s11
  869.     label .os.sopts.s11.l -text "sections:" -width $lwidth -anchor w
  870.     entry .os.sopts.s11.e -width $ewidth -textvariable tko_sections \
  871.         -relief raised
  872.     pack append .os.sopts.s11 \
  873.         .os.sopts.s11.l {left} .os.sopts.s11.e {left frame w}
  874.  
  875.     frame .os.sopts.s12
  876.     label .os.sopts.s12.l -text "shell:" -width $lwidth -anchor w
  877.     entry .os.sopts.s12.e -width $ewidth -textvariable tko_shell \
  878.         -relief raised
  879.     pack append .os.sopts.s12 \
  880.         .os.sopts.s12.l {left} .os.sopts.s12.e {left frame w}
  881.  
  882.     frame .os.sopts.s13
  883.     label .os.sopts.s13.l -text "shellmeta:" -width $lwidth -anchor w
  884.     entry .os.sopts.s13.e -width $ewidth -textvariable tko_shellmeta \
  885.         -relief raised
  886.     pack append .os.sopts.s13 \
  887.         .os.sopts.s13.l {left} .os.sopts.s13.e {left frame w}
  888.  
  889.     frame .os.sopts.s14
  890.     label .os.sopts.s14.l -text "tags:" -width $lwidth -anchor w
  891.     entry .os.sopts.s14.e -width $ewidth -textvariable tko_tags \
  892.         -relief raised
  893.     pack append .os.sopts.s14 \
  894.         .os.sopts.s14.l {left} .os.sopts.s14.e {left frame w}
  895.  
  896.     frame .os.sopts.s15
  897.     label .os.sopts.s15.l -text "term:" -width $lwidth -anchor w
  898.     entry .os.sopts.s15.e -width $ewidth -textvariable tko_term \
  899.         -relief raised
  900.     pack append .os.sopts.s15 \
  901.         .os.sopts.s15.l {left} .os.sopts.s15.e {left frame w}
  902.  
  903.     pack append .os.sopts \
  904.         .os.sopts.s1 {top expand fillx} \
  905.         .os.sopts.s2 {top expand fillx} \
  906.         .os.sopts.s3 {top expand fillx} \
  907.         .os.sopts.s4 {top expand fillx} \
  908.         .os.sopts.s5 {top expand fillx} \
  909.         .os.sopts.s6 {top expand fillx} \
  910.         .os.sopts.s7 {top expand fillx} \
  911.         .os.sopts.s8 {top expand fillx} \
  912.         .os.sopts.s9 {top expand fillx} \
  913.         .os.sopts.s10 {top expand fillx} \
  914.         .os.sopts.s11 {top expand fillx} \
  915.         .os.sopts.s12 {top expand fillx} \
  916.         .os.sopts.s13 {top expand fillx} \
  917.         .os.sopts.s14 {top expand fillx} \
  918.         .os.sopts.s15 {top expand fillx}
  919.  
  920.     # Build frame for continue button.
  921.     frame .os.control -bd 4
  922.     button .os.control.quit -text "Continue" -command "destroy .os"
  923.     bind .os <Return> ".os.control.quit flash; destroy .os"
  924.     pack append .os.control .os.control.quit {left}
  925.  
  926.     # Pack everything together.
  927.     pack append .os \
  928.         .os.bopts {top} \
  929.         .os.control {bottom fillx} \
  930.         .os.nopts {left fillx padx 4m pady 4m} \
  931.         .os.sopts {left fillx pady 4m}
  932.  
  933.     grab .os
  934.     focus .os
  935. }
  936.  
  937. # tk_opt_ew --
  938. #    Handle a change to an option entry widget.
  939. proc tk_opt_ew {name element op} {
  940.     upvar $name x
  941.     tk_opt_set "$name=$x"
  942. }
  943.  
  944. # tk_err --
  945. #    Display a Tcl/Tk error message.
  946. proc tk_err {msg} {
  947.     tk_dialog .d {} "$msg" {} 0 Continue
  948.  
  949.     #puts "msg: $msg"
  950. }
  951.  
  952. # tk_addstr --
  953. #    Add a string to the screen.
  954. proc tk_addstr {len str} {
  955.     global tk_cursor_row
  956.     global tk_cursor_col
  957.     
  958.     # Delete the current characters, then insert the new ones.
  959.     .t mark set insert $tk_cursor_row.$tk_cursor_col
  960.     .t delete insert "insert + $len chars"
  961.     .t insert insert "$str"
  962.     incr tk_cursor_col $len
  963.  
  964.     #puts "tk_addstr: row $tk_cursor_row col $tk_cursor_col: insert $str"
  965. }
  966.  
  967. # tk_clrtoeol --
  968. #    Clear to the end of the line.
  969. proc tk_clrtoeol {} {
  970.     global tk_cursor_row
  971.     global tk_cursor_col
  972.     global tk_ssize_col
  973.  
  974.     # Overwrite to the end of the line with spaces.
  975.     .t mark set insert $tk_cursor_row.$tk_cursor_col
  976.     .t delete insert "insert lineend"
  977.     for {set j $tk_cursor_col} {$j < $tk_ssize_col} {incr j} {
  978.         .t insert insert " "
  979.     }
  980.  
  981.     #puts "tk_clrtoel: row $tk_cursor_row col $tk_cursor_col"
  982. }
  983.  
  984. # tk_deleteln --
  985. #    Delete the line.
  986. proc tk_deleteln {} {
  987.     global tk_cursor_row
  988.     global tk_cursor_col
  989.     global tk_ssize_col
  990.  
  991.     # Delete the line.
  992.     .t mark set insert $tk_cursor_row.$tk_cursor_col
  993.     .t delete insert "insert lineend + 1 chars"
  994.  
  995.     # Append a new, blank line at the end of the screen.
  996.     .t mark set insert end
  997.     for {set j 1} {$j <= $tk_ssize_col} {incr j} {
  998.         .t insert insert " "
  999.     }
  1000.     .t insert insert "\n"
  1001.  
  1002.     #puts "tk_deleteln: row $tk_cursor_row"
  1003. }
  1004.  
  1005. # tk_flash --
  1006. #    Flash the screen.
  1007. proc tk_flash {} {
  1008.     set bg [lindex [.t config -background] 4]
  1009.     set fg [lindex [.t config -foreground] 4]
  1010.     .t configure -background $fg -foreground $bg
  1011.     update idletasks
  1012.     .t configure -background $bg -foreground $fg
  1013.     update idletasks
  1014. }
  1015.  
  1016. # tk_insertln --
  1017. #    Insert the line.
  1018. proc tk_insertln {} {
  1019.     global tk_cursor_row
  1020.     global tk_cursor_col
  1021.     global tk_ssize_row
  1022.     global tk_ssize_col
  1023.  
  1024.     # Delete the last line on the screen.
  1025.     .t mark set insert $tk_ssize_row.0
  1026.     .t delete insert "insert lineend + 1 chars"
  1027.  
  1028.     # Insert a new, blank line.
  1029.     .t mark set insert $tk_cursor_row.$tk_cursor_col
  1030.     for {set j 1} {$j <= $tk_ssize_col} {incr j} {
  1031.         .t insert insert " "
  1032.     }
  1033.     .t insert insert "\n"
  1034.  
  1035.     #puts "tk_insertln: row $tk_cursor_row"
  1036. }
  1037.  
  1038. # tk_move --
  1039. #    Move the cursor.
  1040. proc tk_move {row col} {
  1041.     global tk_cursor_row
  1042.     global tk_cursor_col
  1043.  
  1044.     # Convert to Tcl/Tk coordinates, update the insert cursor.
  1045.     set tk_cursor_row [ expr $row + 1 ]
  1046.     set tk_cursor_col $col
  1047.     .t mark set insert $tk_cursor_row.$tk_cursor_col
  1048.  
  1049.     # Update the screen cursor.
  1050.     .t tag remove tk_cursor tk_cursor_indx
  1051.     .t mark set tk_cursor_indx insert
  1052.     .t tag add tk_cursor tk_cursor_indx
  1053.  
  1054.     #puts "tk_move: row $tk_cursor_row col $tk_cursor_col"
  1055. }
  1056.  
  1057. # tk_rename --
  1058. #    Rename the screen.
  1059. proc tk_rename {name} {
  1060.     wm title . "$name"
  1061. }
  1062.  
  1063. # tk_ssize --
  1064. #    Return the window size.
  1065. proc tk_ssize {} {
  1066.     global tk_ssize_col
  1067.     global tk_ssize_row
  1068.  
  1069.     set s [ .t configure -width ]
  1070.     set tk_ssize_col [ lindex $s [ expr [ llength $s ] -1 ] ]
  1071.     set s [ .t configure -height ]
  1072.     set tk_ssize_row [ lindex $s [ expr [ llength $s ] -1 ] ]
  1073.  
  1074.     #puts "tk_ssize: rows $tk_ssize_row, cols $tk_ssize_col"
  1075. }
  1076.  
  1077. # tk_standout --
  1078. #    Change into standout mode.
  1079. proc tk_standout {} {
  1080. }
  1081.  
  1082. # tk_standend --
  1083. #    Change out of standout mode.
  1084. proc tk_standend {} {
  1085. }
  1086.  
  1087. # Cursor
  1088. set tk_cursor_row    1
  1089. set tk_cursor_col    0
  1090.  
  1091. # Screen size
  1092. set tk_ssize_row    0
  1093. set tk_ssize_col    0
  1094.  
  1095. screen
  1096. #tkwait window .
  1097.