+++ /dev/null
-#!../src/bltwish
-
-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
-
OSDN Git Service
