blt-demo 2.4z-4.2 / usr / share / blt2.4 / examples / form.tcl

#!/usr/bin/wish

package require BLT
# --------------------------------------------------------------------------
# Starting with Tcl 8.x, the BLT commands are stored in their own 
# namespace called "blt".  The idea is to prevent name clashes with
# Tcl commands and variables from other packages, such as a "table"
# command in two different packages.  
#
# You can access the BLT commands in a couple of ways.  You can prefix
# all the BLT commands with the namespace qualifier "blt::"
#  
#    blt::graph .g
#    blt::table . .g -resize both
# 
# or you can import all the command into the global namespace.
#
#    namespace import blt::*
#    graph .g
#    table . .g -resize both
#
# --------------------------------------------------------------------------
if { $tcl_version >= 8.0 } {
    namespace import blt::*
    namespace import -force blt::tile::*
}
#source scripts/demo.tcl

option add *takeFocus 0

set file1 ../demos/images/chalk.gif
set file2 ../demos/images/tan_paper.gif
image create photo texture1 -file $file1
image create photo texture2 -file $file2
option add *Frame.Tile texture1
option add *Toplevel.Tile texture1
option add *Label.Tile texture1
option add *Scrollbar.tile texture1
#option add *Scrollbar.activeTile texture2
option add *Button.tile texture1
#option add *Button.activeTile texture2
option add *HighlightThickness 0
option add *Entry.highlightThickness 2

#
# Initialization of global variables and Tk resource database
#
#
# Resources available
#
# Tk.normalBgColor: 
# Tk.normalFgColor: 
# Tk.focusHighlightColor: 
# Tk.statusFont: 
# Tk.titleFont: 
# Tk.headingFont: 
# Tk.subheadingFont:
# Tk.entryFont:
# Tk.textFont:
#

#debug 50
bitmap define attlogo { { 60 30 } {
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x7e, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0xfe, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0xf8, 0x03,
    0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0xff, 0x83, 0xf9, 0x87, 0x7f, 0x00,
    0x00, 0x00, 0x00, 0x80, 0xf9, 0x87, 0x7f, 0x00, 0x40, 0x00, 0xf0, 0xc7,
    0xc3, 0x38, 0x0c, 0x00, 0xc0, 0xff, 0xff, 0xc7, 0xc3, 0x7c, 0x0c, 0x00,
    0x00, 0x00, 0x00, 0x40, 0xc2, 0x6c, 0x0c, 0x00, 0x40, 0x00, 0xf8, 0x67,
    0xc6, 0x9c, 0x0d, 0x00, 0xc0, 0xff, 0xff, 0xe7, 0xc7, 0xf8, 0x0d, 0x00,
    0x00, 0x00, 0x00, 0xe0, 0xc7, 0xec, 0x0c, 0x00, 0x80, 0x01, 0xfe, 0x33,
    0xcc, 0xfc, 0x0d, 0x00, 0x00, 0xff, 0xff, 0x33, 0xcc, 0xb8, 0x0d, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfe, 0xff, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x7f, 0x00, 0x00, 0x00, 0x00, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x0f, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }
}

bitmap define globe_00 { { 32 32 } {
    00 40 02 00 00 1c 3c 00 00 01 fe 00 80 80 fe 03 60 00 ff 07 10 c0 f1 0f
    00 80 c0 1f 00 c0 07 3f 00 c0 ff 3f 00 f0 ff 4f 02 f0 ff 5d 00 f0 ff 1b
    00 f0 ff 8f 02 f0 ff 0f 06 e0 fc 0f 0e 00 f8 0f 0f 00 f8 07 3f 00 f8 03
    7e 00 f0 03 7e 00 f0 03 3e 00 f0 0b 3c 00 f0 09 3c 00 f0 01 18 00 f0 00
    18 00 70 00 10 00 00 00 10 00 00 00 20 00 00 00 40 00 00 00 00 00 00 00
    00 00 00 00 00 00 1f 00 }
}

bitmap define globe_01 { { 32 32 } {
    00 c0 00 00 00 34 38 00 00 02 e8 00 80 01 fa 03 e0 00 fc 07 30 00 e6 0f
    10 00 86 1f 08 00 3e 3c 04 00 ff 3f 04 80 ff 5f 02 80 ff 3f 00 80 ff 2f
    00 80 ff 3f 0c 00 ff 3f 1c 00 ee 3f 3c 00 c0 3f 7e 00 c0 1f fe 01 80 1f
    fc 03 80 1f fc 01 80 1f fc 01 80 2f f8 01 80 0f f0 00 80 17 f0 00 80 03
    f0 00 80 03 60 00 00 00 60 00 00 00 40 00 00 00 80 00 00 00 00 00 00 00
    00 00 00 00 00 00 1e 00 }
}

bitmap define globe_02 { { 32 32 } {
    00 c0 01 00 00 60 30 00 00 04 f0 00 80 07 e0 03 e0 01 f0 07 f0 00 38 0f
    30 00 10 1e 18 00 f0 30 04 00 f8 3f 10 00 f8 7f 12 00 fc 7f 02 00 fc 7f
    04 00 fc 7f 74 00 f8 7f f0 00 70 7f f8 01 00 7e f8 03 00 7e f8 0f 00 7c
    f8 1f 00 3c f0 1f 00 3c f0 0f 00 3e e0 0f 00 5e c0 07 00 1c c0 03 00 0e
    c0 03 00 04 80 01 00 00 80 01 00 00 80 01 00 00 00 01 00 00 00 00 00 00
    00 00 00 00 00 10 1c 00 }
}

bitmap define globe_03 { { 32 32 } {
    00 c0 01 00 00 dc 20 00 00 09 c0 00 80 1f a0 03 e0 07 c0 07 f0 01 c0 0c
    f8 00 40 18 78 00 c0 23 08 00 c0 3f 04 00 e0 7f 54 00 e0 7f 0c 00 c0 7f
    10 00 c0 ff d0 01 c0 ff c0 03 80 fb e0 0f 00 f0 e0 1f 00 f0 e0 ff 00 f0
    e0 ff 00 70 c0 ff 00 70 c0 7f 00 70 00 7f 00 70 00 3f 00 30 00 1f 00 38
    00 1f 00 18 00 0e 00 00 00 06 00 00 00 02 00 00 00 04 00 00 00 00 00 00
    00 00 00 00 00 20 18 00 }
}

bitmap define globe_04 { { 32 32 } {
    00 c0 03 00 00 7c 03 00 00 13 00 00 80 7f c0 03 c0 1f 00 07 e0 0f 00 0d
    f0 03 00 10 f0 01 00 0e 38 01 00 3e 10 00 00 7f 50 00 00 7f 30 00 00 7f
    40 00 00 ff 00 1e 00 fe 00 3f 00 ec 00 7f 00 c0 00 ff 00 c0 00 ff 07 c0
    00 ff 0f c0 00 fe 07 c0 00 fe 07 c0 00 f8 03 40 00 f8 01 60 00 f8 00 20
    00 f8 00 20 00 38 00 00 00 18 00 00 00 18 00 00 00 18 00 00 00 00 00 00
    00 00 00 00 00 40 10 00 }
}

bitmap define globe_05 { { 32 32 } {
    00 c0 03 00 00 bc 06 00 00 cf 00 00 80 ff 01 02 c0 7f 00 06 c0 3f 00 0e
    e0 1f 00 14 e0 0f 00 18 e0 00 00 38 60 00 00 78 40 08 00 78 c0 01 00 78
    00 02 00 f8 00 f0 00 f0 00 f0 01 b0 00 f8 07 80 00 f8 0f 80 00 f8 3f 00
    00 f8 7f 00 00 f0 3f 80 00 f0 3f 80 00 c0 1f 00 00 c0 0f 00 00 c0 07 40
    00 c0 07 00 00 c0 01 00 00 e0 00 00 00 60 00 00 00 40 00 00 00 00 00 00
    00 00 00 00 00 80 10 00 }
}

bitmap define globe_06 { { 32 32 } {
    00 80 07 00 00 7c 0d 00 00 9f 03 00 00 ff 07 02 00 ff 03 04 80 ff 00 08
    c0 7f 00 00 80 3f 00 30 80 07 00 20 00 03 00 60 00 03 00 60 00 0e 00 60
    00 10 00 e0 00 80 07 c0 00 80 0f c0 00 80 3f 00 00 c0 7f 00 00 c0 ff 01
    00 c0 ff 03 00 80 ff 01 00 80 ff 01 00 00 fe 00 00 00 7e 00 00 00 3e 00
    00 00 1f 00 00 00 0f 00 00 00 03 00 00 00 03 00 00 00 01 00 00 00 00 00
    00 00 00 00 00 00 01 00 }
}

bitmap define globe_07 { { 32 32 } {
    00 80 07 00 00 fc 1a 00 00 7d 02 00 00 fe 1f 00 00 fe 0f 00 00 fe 07 00
    00 ff 03 00 00 fe 01 20 00 1c 01 00 00 1c 00 40 00 18 00 40 00 70 00 00
    00 80 00 80 00 00 39 80 00 00 7c 00 00 00 fc 01 00 00 fe 03 00 00 fe 0f
    00 00 fc 0f 00 00 fc 0f 00 00 f8 07 00 00 f0 07 00 00 f0 03 00 00 f0 01
    00 00 f8 00 00 00 38 00 00 00 18 00 00 00 0c 00 00 00 04 00 00 00 00 00
    00 00 00 00 00 00 02 00 }
}

bitmap define globe_08 { { 32 32 } {
    00 00 07 00 00 fc 25 00 00 f8 19 00 00 f8 7f 00 00 f8 3f 00 00 f8 1f 00
    00 f8 1f 00 00 f8 0f 00 00 f0 08 00 00 f0 00 00 00 c0 04 00 00 80 03 00
    00 00 0c 00 00 00 c8 01 00 00 e0 03 00 00 e0 0f 00 00 e0 0f 00 00 f0 3f
    00 00 e0 3f 00 00 e0 3f 00 00 c0 1f 00 00 80 1f 00 00 80 0f 00 00 c0 07
    00 00 c0 03 00 00 c0 01 00 00 60 00 00 00 30 00 00 00 10 00 00 00 00 00
    00 00 00 00 00 00 04 00 }
}

bitmap define globe_09 { { 32 32 } {
    00 00 03 00 00 fc 27 00 00 f0 13 00 00 e0 ff 00 00 e0 ff 01 00 e0 7f 00
    00 e0 7f 00 00 c0 7f 00 00 80 47 00 00 80 07 00 00 00 26 00 00 00 1c 00
    00 00 60 00 00 00 40 0e 00 00 00 1f 00 00 00 3f 00 00 00 3f 00 00 00 7f
    00 00 00 7f 00 00 00 7f 00 00 00 7e 00 00 00 3c 00 00 00 3e 00 00 00 1e
    00 00 00 0f 00 00 00 07 00 00 80 01 00 00 80 00 00 00 40 00 00 00 00 00
    00 00 00 00 00 00 08 00 }
}

bitmap define globe_10 { { 32 32 } {
    00 00 06 00 00 f4 2f 00 00 c8 4f 00 00 80 ff 01 00 80 ff 01 00 80 ff 01
    00 00 ff 01 00 00 fe 01 00 00 3c 00 00 00 3c 00 00 00 30 04 00 00 e0 00
    00 00 00 01 00 00 00 3a 00 00 00 38 00 00 00 78 00 00 00 f8 00 00 00 fc
    00 00 00 f8 00 00 00 f8 00 00 00 f8 00 00 00 70 00 00 00 70 00 00 00 38
    00 00 00 18 00 00 00 0c 00 00 00 06 00 00 00 03 00 00 00 00 00 00 00 00
    00 00 00 00 00 00 10 00 }
}

bitmap define globe_11 { { 32 32 } {
    00 00 06 00 00 ec 1f 00 00 91 9f 00 00 00 fe 03 00 00 fc 07 00 00 fc 07
    00 00 fc 07 00 00 f0 07 00 00 f0 01 00 00 e0 00 00 00 80 05 00 00 00 07
    00 00 00 08 00 00 00 60 00 00 00 e0 00 00 00 e0 00 00 00 e0 00 00 00 e0
    01 00 00 e0 00 00 00 e0 00 00 00 e0 00 00 00 40 00 00 00 60 00 00 00 60
    00 00 00 30 00 00 00 10 40 00 00 08 40 00 00 04 00 00 00 00 00 00 00 00
    00 00 00 00 00 00 10 00 }
}

bitmap define globe_12 { { 32 32 } {
    00 00 04 00 00 dc 3f 00 00 42 7e 00 00 00 f8 03 20 00 f0 07 10 00 f0 0f
    00 00 e0 0f 00 00 c0 0f 00 00 00 07 00 00 00 06 00 00 00 14 00 00 00 18
    00 00 00 20 00 00 00 80 00 00 00 80 00 00 00 80 00 00 00 80 01 00 00 80
    00 00 00 80 00 00 00 80 02 00 00 80 02 00 00 00 04 00 00 40 04 00 00 40
    08 00 00 20 08 00 00 00 00 00 00 10 00 00 00 08 00 00 00 00 00 00 00 00
    00 00 00 00 00 00 00 00 }
}

bitmap define globe_13 { { 32 32 } {
    00 00 04 00 00 bc 3f 00 00 01 79 00 80 00 e0 03 60 00 c0 07 10 00 80 0f
    00 00 80 1f 08 00 00 1e 00 00 00 1c 00 00 00 58 00 00 00 10 00 00 00 20
    00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 06 00 00 00
    04 00 00 00 00 00 00 00 02 00 00 00 0e 00 00 00 0c 00 00 00 1c 00 00 00
    18 00 00 00 30 00 00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 10 00 00 }
}

bitmap define globe_14 { { 32 32 } {
    00 00 00 00 00 fc 3f 00 00 03 e6 00 80 01 c0 03 60 00 00 07 30 00 00 0f
    00 00 00 1e 00 00 00 38 04 00 00 30 00 00 00 30 02 00 00 00 00 00 00 40
    00 00 00 80 00 00 00 00 02 00 00 00 01 00 00 00 01 00 00 00 18 00 00 00
    00 00 00 00 00 00 00 00 14 00 00 00 3c 00 00 00 3c 00 00 00 7c 00 00 00
    78 00 00 00 60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 30 00 00 }
}

bitmap define globe_15 { { 32 32 } {
    00 00 00 00 00 fc 3d 00 00 27 c8 00 80 13 00 03 e0 01 00 06 70 00 00 0c
    10 00 00 18 18 00 00 30 0c 00 00 20 0c 00 00 40 02 00 00 00 02 00 00 00
    00 00 00 00 00 00 00 00 01 00 00 00 03 00 00 00 13 00 00 00 64 00 00 00
    c0 00 00 00 00 00 00 00 30 00 00 00 f8 00 00 00 f8 01 00 00 f8 03 00 00
    f0 03 00 00 80 03 00 00 00 80 00 00 00 40 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 70 00 00
  }
}

bitmap define globe_16 { { 32 32 } {
    00 00 00 00 00 fc 3b 00 00 9f a0 00 80 4f 00 02 e0 0f 00 04 f0 01 00 08
    70 00 00 10 38 00 00 20 3c 00 00 00 1c 00 00 00 06 00 00 00 04 00 00 00
    04 00 00 00 00 00 00 00 20 00 00 00 0a 00 00 00 0a 00 00 00 00 03 00 00
    28 06 00 00 00 00 00 00 c0 02 00 00 e0 07 00 00 f0 0f 00 00 e0 1f 00 00
    e0 1f 00 00 00 0c 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 f0 00 00 }
}

bitmap define globe_17 { { 32 32 } {
    00 00 00 00 00 fc 37 00 00 3f 42 00 80 3f 01 02 e0 1f 00 00 f0 07 00 00
    f0 11 00 00 f8 04 00 00 fc 00 00 00 7c 00 00 00 1a 00 00 00 9a 00 00 00
    18 00 00 00 00 00 00 00 00 00 00 00 20 00 00 00 28 00 00 00 08 18 00 00
    00 30 00 00 00 10 00 00 00 17 00 00 00 3f 00 00 c0 7f 00 00 80 7f 00 00
    80 7f 00 00 00 70 00 00 00 00 10 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 f0 01 00
  }
}

bitmap define globe_18 { { 32 32 } {
    00 00 00 00 00 fc 2f 00 00 ff 84 00 80 ff 04 00 e0 7f 00 00 f0 9f 00 00
    f0 97 00 00 f8 27 00 00 fc 07 00 00 fc 03 00 00 6c 00 00 00 64 00 00 00
    60 04 00 00 40 00 00 00 20 00 00 00 20 01 00 00 a0 01 00 00 00 c0 05 00
    00 88 00 00 00 00 00 00 00 38 01 00 00 fc 01 00 00 fe 03 00 00 fe 03 00
    00 fc 03 00 00 80 03 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 f0 03 00
  }
}

bitmap define globe_19 { { 32 32 } {
    00 40 00 00 00 fc 3f 00 00 ff 13 00 80 ff 13 00 e0 ff 03 00 f0 ff 00 00
    f0 9f 00 00 f8 3f 00 00 fc 3f 00 00 f8 1f 00 00 ba 07 00 00 98 23 00 00
    08 03 00 00 08 00 00 00 00 00 00 00 80 09 00 00 00 0d 01 00 00 21 0e 00
    00 00 1c 00 00 00 00 00 00 c0 09 00 00 e0 0f 00 00 f0 1f 00 00 f0 1f 00
    00 f0 1f 00 00 00 0e 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 f0 07 00
  }
}

bitmap define globe_20 { { 32 32 } {
    00 00 00 00 00 fc 3f 00 00 ff 07 00 80 ff 0f 00 e0 ff 0f 00 f0 ff 13 00
    f0 ff 10 00 f8 ff 00 00 fc ff 01 00 f4 ff 00 00 e6 1e 00 00 62 1c 01 00
    20 18 00 00 20 10 00 00 01 80 00 00 01 cc 00 00 01 68 08 00 00 00 60 00
    00 00 c0 00 00 00 00 00 00 00 5c 00 00 00 7e 00 00 80 ff 00 00 80 ff 00
    00 80 ff 00 00 00 70 00 00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 f0 0f 00
  }
}

bitmap define globe_21 { { 32 32 } {
    00 80 00 00 00 fc 3f 00 00 ff 1f 00 80 ff bf 00 e0 ff 3f 00 f0 ff 1f 00
    f8 ff 17 00 f8 ff 27 00 ec ff 0f 00 8c ff 07 00 9e f7 00 00 0e e3 00 00
    06 c1 00 00 06 81 10 00 03 40 04 00 03 20 06 00 03 40 06 00 01 80 00 03
    01 00 00 02 02 00 00 00 02 00 e0 02 02 00 f0 03 00 00 fc 03 00 00 fc 03
    00 00 fc 03 00 00 c0 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 00
    00 00 00 00 00 f0 1f 00 }
}

bitmap define globe_22 { { 32 32 } {
    00 00 01 00 00 fc 3f 00 00 ff 3f 00 80 ff 7f 00 e0 ff ff 00 f0 ff 7f 00
    f0 ff 1f 00 e0 ff 3f 00 fc ff 3f 00 34 fe 3f 00 76 bc 07 00 36 1c 07 00
    0e 08 0e 00 1e 08 80 00 0f 00 02 00 0f 00 20 00 07 00 36 00 07 00 04 08
    07 00 00 18 06 00 00 00 16 00 00 0b 16 00 80 0f 04 00 e0 0f 04 00 e0 0f
    08 00 e0 0f 00 00 00 06 00 00 00 10 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 f0 1f 00 }
}

bitmap define globe_23 { { 32 32 } {
    00 00 00 00 00 fc 3f 00 00 ff 7f 00 80 ff ff 01 e0 ff ff 01 e0 ff ff 01
    e8 ff ff 00 c0 ff ff 00 fc fe ff 01 dc f2 ff 01 de e3 3d 00 de e1 38 02
    7e 40 70 00 fe 40 00 04 7f 00 00 00 3e 00 30 01 3e 00 a0 01 1e 00 20 20
    1e 00 00 20 1c 00 00 00 9c 00 00 3c 1c 00 00 3e 1c 00 00 3f 18 00 80 3f
    10 00 00 1f 00 00 00 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 f0 1f 00 }
}

bitmap define globe_24 { { 32 32 } {
    00 00 02 00 00 fc 3f 00 00 fe ff 00 80 ff ff 01 c0 ff ff 03 80 ff ff 03
    e0 ff ff 03 18 ff ff 03 fc ff ff 07 7c 87 ff 07 fe 1f ef 01 fe 0e c6 01
    fe 01 82 03 fe 03 02 00 ff 03 00 08 fc 01 80 09 fc 00 00 0d fc 00 00 00
    f8 00 00 80 f8 00 00 00 f8 00 00 20 78 02 00 70 70 02 00 7c 70 00 00 3c
    60 00 00 3c 00 00 00 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 f0 1f 00 }
}

bitmap define globe_25 { { 32 32 } {
    00 00 00 00 00 f0 3f 00 00 fc ff 00 80 ff ff 03 80 ff ff 07 a0 ff ff 07
    10 ff ff 07 30 f8 ff 0f f8 df ff 1f fc 3b fc 1f fc fb 78 07 fe 77 30 0e
    fe 1f 30 0c fe 3f 00 48 fe 1f 00 00 f0 0f 00 24 f0 07 00 a0 f0 07 00 08
    e0 07 00 00 e0 07 00 00 e0 27 00 c0 e0 13 00 40 c0 13 00 70 c0 03 00 70
    80 01 00 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 f0 1f 00 }
}

bitmap define globe_26 { { 32 32 } {
    00 40 00 00 00 e0 3f 00 00 e8 ff 00 00 fc ff 03 00 ff ff 07 c0 fe ff 0f
    40 f0 ff 1f e0 e0 ff 1f f0 ff fe 3f f8 df e1 3f f8 df c7 1b fc bf 83 19
    fc ff 80 30 fc ff 01 20 f8 ff 00 00 c0 ff 00 00 c0 7f 00 e0 80 3f 00 20
    80 3f 00 00 80 3f 00 00 80 3f 01 80 80 9f 00 00 00 9f 00 40 00 0f 00 60
    00 0e 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 f0 1f 00 }
}

bitmap define globe_27 { { 32 32 } {
    00 80 00 00 00 c4 3f 00 00 f0 ff 00 00 fe ff 03 00 fe ff 07 00 eb ff 0f
    80 c9 ff 1f 80 07 ff 3f c0 ff f7 3f e0 ff 0e 7f f0 ff 3e 6e f0 ff 1d 64
    f0 ff 07 44 f0 ff 0f 00 60 ff 0f 00 00 fe 07 40 00 fe 03 00 01 fc 01 00
    01 fc 01 00 00 fc 01 00 00 fc 09 00 02 fc 08 00 00 f8 04 00 00 78 00 40
    00 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 e0 1f 00 }
}

bitmap define globe_28 { { 32 32 } {
    00 00 00 00 00 88 3f 00 00 40 ff 00 00 e8 ff 03 00 f8 ff 07 00 8c ff 0f
    00 06 fe 1f 00 1e f8 3f 00 ff bf 3f 80 ff 77 7c 80 ff ff 79 c0 ff ef 10
    c0 ff 3f 90 c0 ff 7f 00 81 fb 7f 00 01 f0 3f 00 01 f0 1f 00 03 e0 1f 00
    07 e0 0f 00 02 c0 1f 00 02 e0 5f 00 06 e0 47 00 04 c0 27 00 04 c0 03 00
    00 80 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 c0 1f 00 }
}

bitmap define globe_29 { { 32 32 } {
    00 40 01 00 00 0c 3f 00 00 80 fd 00 00 a0 ff 03 20 e0 ff 07 00 30 fd 0f
    00 10 f4 1f 00 f8 c0 3f 00 f8 ff 3f 00 fc bf 73 00 fe ff 67 00 fe 7f 47
    00 fe ff 41 00 fe ff 03 01 dc ff 03 03 00 ff 01 07 80 ff 00 0f 00 ff 00
    1f 00 7e 00 0e 00 fe 00 0e 00 ff 02 0e 00 3f 01 0c 00 3e 01 0c 00 1e 00
    08 00 1c 00 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
    00 00 00 00 00 80 1f 00 }
}

# ----------------------------------------------------------------
#
# SetOption --  
#	
#	Sets the option array associated with the resource. It
# 	first check to see if the resource exists in the option
#	data base, otherwise it uses the default value given.
#	
#
# Arguments
#	name		-- Name of the resource. Used as index into
#			   the option array.
#	value		-- default value given.
# Globals
#	pq_dict  	-- Associative array where the option resources
#			   are stored.
#
# ----------------------------------------------------------------

proc SetOption { name value } {
    global pq_dict
    set widgetOption [option get . $name Tk]
    if { $widgetOption != "" } {
	set value $widgetOption
    }
    set pq_dict($name) $value
}

set pq_dict(textIndex) {}

set pq_dict(entryNames) {
    last first middle 
    area exch ext 
    com org tl
    room oldloc loc 
    street 
    city state zip 
    ema
}

set pq_dict(numEntries) [llength $pq_dict(entryNames)]
set pq_dict(index) 0
set pq_dict(defaults) {}

set cnt 0
foreach name $pq_dict(entryNames) {
    if { $cnt > 0 } {
	set pq_dict(format) $pq_dict(format):%$name
    } else {
	set pq_dict(format) %$name
    }
    incr cnt
}

set visual [winfo screenvisual .]
if { ($visual == "staticgray") || ($visual == "grayscale") } {
    option add *Entry.background white
    option add *Text.background white
    set pq_dict(visual) mono
} else {
    set depth [winfo screendepth .]
    if { $depth < 8 } {
	SetOption normalBgColor grey
	SetOption normalFgColor black
	SetOption focusHighlightColor white
    } else {
#fff4de
	SetOption normalBgColor grey90
	SetOption normalFgColor #da5f5f
	SetOption normalFgColor navyblue
	SetOption focusHighlightColor #fffdf8 
    }
    option add *Entry.background $pq_dict(normalBgColor) widgetDefault
    option add *Text.background $pq_dict(normalBgColor) widgetDefault
    option add *Label.foreground $pq_dict(normalFgColor) widgetDefault
    option add *Button.foreground $pq_dict(normalFgColor) widgetDefault
    set pq_dict(visual) color
}    

SetOption statusFont 	 -*-Helvetica-Medium-R-*-*-14-*-*-*-*-*-*-*
SetOption titleFont	 -*-Helvetica-Bold-R-*-*-14-*-*-*-*-*-*-*
SetOption headingFont 	 -*-Helvetica-Medium-R-*-*-14-*-*-*-*-*-*-*
SetOption subheadingFont -*-Helvetica-Medium-R-*-*-12-*-*-*-*-*-*-* 
SetOption entryFont 	 -*-Courier-Medium-R-*-*-12-*-*-*-*-*-*-*
SetOption textFont 	 -*-Courier-Bold-R-*-*-12-*-*-*-*-*-*-*
#SetOption entryFont 	 fixed
#SetOption textFont 	 fixed

option add *Label.borderWidth 	0		    widgetDefault
option add *Entry.relief 	sunken              widgetDefault
option add *Entry.width 	11		    widgetDefault
option add *Entry.borderWidth 	2		    widgetDefault
option add *Entry.font 		$pq_dict(entryFont) widgetDefault
option add *Text.font		$pq_dict(textFont)  widgetDefault
option add *Text.width 		35		    widgetDefault
option add *Text.height 	10 		    widgetDefault
option add *Scrollbar.relief 	flat		    widgetDefault
option add *Scrollbar.minSlider	10		    widgetDefault
option add *Button.padY 6
option add *Text.relief 	sunken		    widgetDefault
option add *Text.borderWidth 	2 		    widgetDefault

foreach name $pq_dict(entryNames) {
    option add *${name}_label.font $pq_dict(subheadingFont) widgetDefault
}

option add *Label.Font          $pq_dict(subheadingFont)
option add *status_label.font   $pq_dict(statusFont)  widgetDefault
option add *name_label.font   	$pq_dict(headingFont) widgetDefault
option add *tel_label.font 	$pq_dict(headingFont) widgetDefault
option add *office_label.font 	$pq_dict(headingFont) widgetDefault
option add *addr_label.font 	$pq_dict(headingFont) widgetDefault
option add *loc_title.font 	$pq_dict(headingFont) widgetDefault
option add *org_title.font 	$pq_dict(headingFont) widgetDefault

option add *overall_label.text	"Customer Database"
option add *name_label.text	"Name"
option add *tel_label.text 	"Telephone"
option add *addr_label.text	"Address"
option add *last_label.text	"last"
option add *first_label.text	"first"
option add *middle_label.text	"middle"
option add *com_label.text	"company"
option add *org_label.text      "organization"
option add *tl_label.text	"title"
option add *ext_label.text	"extension"
option add *exch_label.text	"exchange"
option add *area_label.text	"area code"
option add *loc_label.text	"extension"
option add *oldloc_label.text	"exchange"
option add *room_label.text	"area code"
option add *street_label.text	"street address"
option add *ema_label.text	"e-mail"
option add *city_label.text	"city"
option add *state_label.text	"state"
option add *zip_label.text	"zip code"
option add *org_title.text	"Organization"
option add *loc_title.text	"Fax"

option add *clear_button.text	"Clear"
option add *quit_button.text	"Quit"
option add *cancel_button.text	"Cancel"

# --------------------------------------------------------------------------
#
# Procedures to perform post queries
#

# ----------------------------------------------------------------
#
# StopQuery --  
#	
#	Stops any current "pq" request by setting the variable
#	associated with the background subprocesses. 
#
# Arguments
#	None.
#
# Globals
#	postOutput 	-- variable where collected output from 
#			   pq command will be stored
#
# ----------------------------------------------------------------

proc StopQuery {} {
    global postOutput
    set postOutput {}
}


# ----------------------------------------------------------------
#
# PostQuery --  
#	
#	Collects the data from the entry widget fields and 
#	executes a "pq" request.  The "pq" command is executed 
#	in the background and a "wait" is setup to wait for the 
#	command to finish.  This allows the animation routine
#	to operate and exposure events to be handled properly.
#
# Arguments
#	None.
#
# Globals
#	postOutput 	    -- variable where collected output from 
#			       pq command will be stored
#	pq_dict(entryNames) -- list of entry widget names
#	pq_dict(textIndex)  -- starting index of highlighted information
#			       (a line in the text widget)
#
# ----------------------------------------------------------------

proc PostQuery {} {
    global pq_dict 

    .status_label configure -text {}
    set cnt 0
    foreach name $pq_dict(entryNames) {
	set value [.${name}_entry get]
	if { $value != "" } {
	    set value [split $value "|"]
    	    foreach i $value {
	        if { $cnt > 0 } {
		    set query $query/$name=[list $i]
	        } else {
		    set query $name=[list $i]
	        }
	        incr cnt
 	    }
	}
    }
    if { $cnt == 0 } {
	return
    }
    set fmt {%^24pn\t%10org\t%6loc\t%area-%exch-%ext\t%ema}
    global postOutput postError
    set postOutput {}
    set postError {}
    bgexec postStatus -error postError -output postOutput \
	pq -o $fmt $query &
    Animate on
    tkwait variable postStatus
    if { $postOutput != "" } {
	.text configure -state normal
	.text delete 0.0 end
	.text insert 0.0 $postOutput
	.text configure -state disabled
	.status_label configure -text "Post query successful"
    } else {
	.status_label configure -text "Post query failed"
    }
    set pq_dict(textIndex) {}
    Animate off
    if { $postError != "" }  {
        tkerror $postError
    }
}


# ----------------------------------------------------------------
#
# ClearFields --  
#	
#	Clears the all the entry fields.
#
# Arguments
#	None.
#
# Globals
#	pq_dict(entryNames) -- list of entry widget names
#	pq_dict(textIndex)  -- starting index of highlighted information
#			       (a line in the text widget)
#
# ----------------------------------------------------------------

proc ClearFields {} {
    global pq_dict 

    busy hold . ; update
    foreach name $pq_dict(entryNames) {
	.${name}_entry delete 0 end
    }
    set pq_dict(textIndex) {}
    .status_label configure -text "Cleared query fields"
    busy release .
}


# ----------------------------------------------------------------
#
# FillFields --  
#	
#	Makes a post query based upon the highlighted line in
#	the text widget to fill in all post entry fields.
#
# Arguments
#	x		    x screen coordinate
#	y 		    y screen coordinate
#
# Globals
#	postOutput 	    variable where collected output from pq 
#			    command will be stored
#	pq_dict(format)     standard query format to collect data for 
#			    all entry fields
#	pq_dict(entryNames) list of entry widget names
#
# ----------------------------------------------------------------

proc FillFields { x y } {
    global pq_dict 

    set info [.text get [list @$x,$y linestart] [list @$x,$y lineend]]
    set info [split $info \t]
    if { [llength $info] == 0 } {
	return
    }
    set name [string trim [lindex $info 0]]
    set name [split $name ,]
    set last [lindex $name 0]
    set name [split [lindex $name 1]]
    set first [lindex $name 0]
    set middle [lindex $name 1]
    set org [string trim [lindex $info 1]]
    set loc [string trim [lindex $info 2]]
    set tel [string trim [lindex $info 3]]
    set query last=$last/first=$first/middle=$middle/org=$org/loc=$loc/tel=[list $tel]
    global postOutput
    set postOutput {}
    bgexec postStatus -output postOutput \
	pq -o $pq_dict(format) $query &
    Animate on
    tkwait variable postStatus

    if { $postOutput == "" } {
	# Try again with out the telephone number
	set query last=$last/first=$first/middle=$middle/org=$org/loc=$loc
	set postStatus {}
	bgexec postStatus -output postOutput \
		pq -o $pq_dict(format) $query &
	tkwait variable postStatus
    }	
    Animate off
    if { $postOutput == "" } {
	.status_label configure -text "Post query failed"
    } else {
        .status_label configure -text "Post database fields found"
        set postOutput [split $postOutput : ]
	set cnt 0
	foreach name $pq_dict(entryNames) {
	    .${name}_entry delete 0 end
	    .${name}_entry insert 0 [lindex $postOutput $cnt]
	    incr cnt
	}
    }
}


# ----------------------------------------------------------------
#
# HighlightText --  
#	
#	Highlight the text under the current line (as based upon
#	the given screen coordinates.  Only highlight the line if
#	pointer has been moved to the another line.
#
# Arguments
#	x		    x screen coordinate
#	y 		    y screen coordinate
#
# Globals
#	pq_dict(visual)     either "mono" or "color"; indicates if
#			    color screen features can be used
#	pq_dict(textIndex)  starting index of highlighted information
#	pq_dict(normalFgColor)    color to use for highlighted region
#
# ----------------------------------------------------------------

proc HighlightText { x y } {
    global pq_dict

    set newIndex [.text index [list @$x,$y linestart]]
    if { $newIndex != $pq_dict(textIndex) } {
	catch { .text tag delete highlight }
	.text tag add highlight $newIndex [list $newIndex lineend]
	if { $pq_dict(visual) == "color" } {
	    .text tag configure highlight \
		-foreground $pq_dict(normalFgColor) -underline on
	} else {
	    .text tag configure highlight -underline on 
	}
	set pq_dict(textIndex) $newIndex
    }
}


# ----------------------------------------------------------------
#
# ChangeFocus --  
#	
#	Change the keyboard focus to the next/last entry widget.
#
# Arguments
#	direction	    either "next" or "last"; indicates in 
#			    which direction to change focus
#
# Globals
#	pq_dict(entryNames) list of entry widget names
#	pq_dict(index)      current index in list of entry widget 
#			    names of the keyboard focus. An index
#			    of -1 indicates there is no focus.
#	pq_dict(numEntries) number of names in entry widget list
#
# ----------------------------------------------------------------

proc ChangeFocus direction {
    global pq_dict 

    case $direction {
	next {
	    incr pq_dict(index)
	    if { $pq_dict(index) == $pq_dict(numEntries) } {
		set pq_dict(index) 0
	    }
	}
	last {
	    set pq_dict(index) [expr $pq_dict(index)-1]
	    if { $pq_dict(index) < 0 } {
		set pq_dict(index) [expr $pq_dict(numEntries)-1]
	    }
	}
    }
    focus .[lindex $pq_dict(entryNames) $pq_dict(index)]_entry 
    update idletasks
    update
}


# ----------------------------------------------------------------
#
# ColorFocus --  
#	
#	Change background color of entry widget with active 
#	keyboard focus
#
# Arguments
#	w		    name of entry widget to change
#	bool		    either "on" or "off"; indicates if
#			    the focus highlight should turned on
#			    or off.
#
# Globals
#	pq_dict(entryNames) list of entry widget names
#	pq_dict(index)      current index in list of entry widget 
#			    names of the keyboard focus. An index
#			    of -1 indicates there is no focus.
#	pq_dict(visual)     either "mono" or "color"; indicates if
#			    color screen features can be used
#
# ----------------------------------------------------------------

proc ColorFocus { w bool } {
    global pq_dict 

    regexp {\.([a-z]+)_entry} $w dummy name
    if { $pq_dict(visual) == "color" && [info commands $w] == $w } {
	if { $bool == "on" } {
	    set pq_dict(index) [lsearch $pq_dict(entryNames) $name]
	    $w configure -background $pq_dict(focusHighlightColor) 
        } else {	
	    $w configure -background $pq_dict(normalBgColor) 
        }
    }
}

# ----------------------------------------------------------------
#
# Animate --  
#	
#	Activates/deactivates an animated bitmap and busy window.
#	A cancel button is mapped and raised so that it is unaffected
#	by the busy window.
#
# Arguments
#	option		    either "on", "off", or "continue"; 
#			    indicates whether animation should
#			    be started, stoped or continued.
#
# Globals
#	pq_dict(entryNames) list of entry widget names
#	pq_dict(index)      current index in list of entry widget 
#			    names of the keyboard focus. An index
#			    of -1 indicates there is no focus.
#	pq_dict(visual)     either "mono" or "color"; indicates if
#			    color screen features can be used
#
# ----------------------------------------------------------------

set pq_dict(curBitmap) 0
set pq_dict(lastBitmap) 0

proc Animate option {
    global pq_dict

    case $option {
	on {
	    busy hold . 
	    .status_label configure -text "Searching..."
	    global topLevel
	    table $topLevel .cancel_button 18,8 -anchor e -reqwidth .70i
	    winop raise .cancel_button
	    .quit_button configure -state disabled
	    .clear_button configure -state disabled
	    winop raise .cancel_button
	    set pq_dict(lastFocus) [focus]
            focus -force .
	    set pq_dict(curBitmap) $pq_dict(lastBitmap) 
	    update
	} 
	off {
	    table forget .cancel_button
	    .quit_button configure -state normal
	    .clear_button configure -state normal
	    .trademark configure -bitmap attlogo
	    set pq_dict(lastBitmap) $pq_dict(curBitmap)
	    set pq_dict(curBitmap) -1 
	    focus $pq_dict(lastFocus)
	    busy release .
	}
    }
    #
    # Continue with next bitmap
    #
    if { $pq_dict(curBitmap) >= 0 } {
	set bmap [format globe_%0.2d $pq_dict(curBitmap)] 
	.trademark configure -bitmap $bmap
	incr pq_dict(curBitmap)
	if { $pq_dict(curBitmap) >= 29 } {
	    set pq_dict(curBitmap) 0
	}
	after 100 Animate continue
    }
}

	
# --------------------------------------------------------------------------
#
# main body of program
#
frame .frame 
set topLevel .frame

label .overall_label -font  -*-Helvetica-Bold-R-*-*-18-*-*-*-*-*-*-*
label .name_label -font $pq_dict(titleFont)
label .tel_label  -font $pq_dict(titleFont)
label .addr_label -font $pq_dict(titleFont)
label .org_title -font $pq_dict(titleFont)
label .loc_title -font $pq_dict(titleFont)

foreach name $pq_dict(entryNames) {
    label .${name}_label 
    entry .${name}_entry
}
if [info exists env(POST_DEFAULTS)] {
    set pq_dict(defaults) [split $env(POST_DEFAULTS) ":"]
}
foreach i $pq_dict(defaults) {
    set i [split $i "="]
    if { [llength $i] == 2 } {
	set name [lindex $i 0]
	if { [lsearch $pq_dict(entryNames) $name] >= 0 } {
	    .${name}_entry insert 0 [lindex $i 1]
	}
    }
}
label .orders_title -text "Current Orders" \
	-font  -*-Helvetica-Bold-R-*-*-16-*-*-*-*-*-*-*

set font -*-Helvetica-Bold-R-*-*-14-*-*-*-*-*-*-*
button .clear_button -command ClearFields -font $font
button .quit_button -command { exit }  -font $font
button .search_button -text "Search" -font $font 

label .status_label
button .cancel_button -command StopQuery 
#-relief raised
label .trademark -bitmap attlogo 
text .text -yscrollcommand { .vscroll set } -state disabled 
scrollbar .vscroll -command { .text yview } 

table $topLevel \
    .overall_label	0,1 -cspan 10 -pady 5 \
    .name_label  	1,2 \
    .last_entry  	2,2 -cspan 2 \
    .first_entry 	2,4 \
    .middle_entry 	2,5 \
    .last_label 	3,2 \
    .first_label 	3,4 \
    .middle_label 	3,5 \
    .tel_label 		1,7 \
    .area_entry 	2,7 \
    .exch_entry 	2,8 \
    .ext_entry 		2,9 \
    .area_label 	3,7 \
    .exch_label  	3,8 \
    .ext_label 		3,9 \
    .org_title		4,2 \
    .com_entry  	5,2 \
    .org_entry 		5,3 \
    .tl_entry 		5,4 \
    .com_label 		6,2 \
    .org_label 		6,3 \
    .tl_label 		6,4 \
    .loc_title		4,7 \
    .room_entry 	5,7 \
    .oldloc_entry 	5,8 \
    .loc_entry 		5,9 \
    .room_label 	6,7 \
    .oldloc_label 	6,8 \
    .loc_label 		6,9 \
    .addr_label 	8,2 \
    .street_entry       9,2 \
    .ema_entry		9,7 -cspan 2  \
    .street_label       10,2 \
    .city_entry 	11,2 -cspan 2 \
    .state_entry 	11,4 \
    .zip_entry 		11,5 \
    .ema_label       	10,7 -cspan 2 \
    .city_label 	12,2 -cspan 2 \
    .state_label 	12,4 \
    .zip_label 		12,5 \
    .orders_title       16,2  -pady { 4 0 } \
    .text 		17,2 -cspan 8 -fill both -padx 2 \
    .vscroll 		17,10 -anchor center -fill both \
    .status_label	18,4 -cspan 6 -reqwidth {0 4i} \
    .search_button      18,3 -reqwidth .9i -anchor center -pady 8\
    .clear_button       18,5 -reqwidth .9i -anchor center \
    .quit_button        18,8 -reqwidth .9i -anchor center

eval table configure $topLevel \
	[info command .*_label] [info commands .*_title] \
	-anchor w -padx 2 -ipadx 2 
eval table configure $topLevel [info command .*_entry] \
	-fill both -padx 2 
eval table configure $topLevel .name_label .tel_label .org_title \
    .com_label .addr_label .street_entry .street_label \
    -cspan 3  
eval table configure $topLevel .last_entry .ema_entry .city_entry \
    .ema_label .city_label -cspan 2 

table configure $topLevel .overall_label -anchor center
table configure $topLevel r16 -pady { 5 5 } -resize both
table configure $topLevel c0 -width .vscroll
table configure $topLevel c0 c10 -resize none 
table configure $topLevel r3 r6 r10 r12 -resize none
table configure $topLevel r17 -height { 40 {} } 
table configure $topLevel r16 r18 -resize none
table configure $topLevel c6 -pad { 5 5 }

if { $topLevel == ".frame" } {
    table . \
	$topLevel 0,0 -fill both
}

bind .text <Button-2> {
    FillFields %x %y
    continue
}

bind .text <Motion> {
    HighlightText %x %y
    continue
}

bind .text <Enter> {
    set pq_dict(textIndex) {}
    HighlightText %x %y
    set info [.text get [list 0.0 linestart] [list 0.0 lineend]]
    if { $info != "" } {
        .status_label configure -text "Query individual with button-2"
    }
    continue
}

bind .text <Leave> {
    if { [busy isbusy .] != "." } {	
	.text tag delete highlight
	.status_label configure -text ""
    }
    continue
}


bind EntryFocus <Tab> {
    ChangeFocus next
    break
}

bind EntryFocus <Shift-Tab> {
    ChangeFocus last
    break
}

if { $pq_dict(visual) == "color" } {
    bind EntryFocus <FocusIn> { 
	ColorFocus %W on 
    }
    bind EntryFocus <FocusOut> { 
	ColorFocus %W off 
    }
}

bind Entry <Return> PostQuery

foreach name $pq_dict(entryNames) {
    set w .${name}_entry
    bindtags $w [list EntryFocus $w Entry all]
}

focus .last_entry