contrib/nvi/tk/init.tcl

   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 .