WidGet file, version 1.0, created:  Fri Jan 10 14:12:12 PST 1997
Widget button#1
	geometry row 2
	other error {}
	other type button
	configure highlightthickness 2
	other master {}
	configure text Clr
	other pathname button#1
	other tags {}
	other level {}
	other help {}
	configure padx 4
	geometry column 1
	other comments {}
	configure borderwidth 2
	other item_name button#1
	other tabbing {}
	configure command {key %W}
Widget button#10
	geometry row 5
	other error {}
	other type button
	configure highlightthickness 2
	other master {}
	configure text 2
	other pathname button#10
	other tags {}
	other level {}
	other help {}
	geometry column 2
	other comments {}
	configure borderwidth 2
	other item_name button#10
	other tabbing {}
	configure command {key %W}
Widget button#11
	geometry columnspan 2
	geometry row 6
	other error {}
	other type button
	other master {}
	configure highlightthickness 2
	configure text 0
	other pathname button#11
	other tags {}
	other level {}
	other help {}
	configure borderwidth 2
	other comments {}
	geometry column 1
	configure command {key %W}
	other tabbing {}
	other item_name button#11
	geometry sticky ew
Widget button#3
	geometry row 3
	other error {}
	other type button
	other master {}
	configure highlightthickness 2
	configure text 7
	other pathname button#3
	other tags {}
	other level {}
	other help {}
	configure borderwidth 2
	other comments {}
	geometry column 1
	configure command {key %W}
	other tabbing {}
	other item_name button#3
Widget button#12
	geometry row 6
	other error {}
	other type button
	configure highlightthickness 2
	other master {}
	configure text .
	other pathname button#12
	other tags {}
	other level {}
	other help {}
	geometry column 3
	other comments {}
	configure borderwidth 2
	other item_name button#12
	other tabbing {}
	configure command {key %W}
Widget button#13
	geometry row 5
	other error {}
	other type button
	other master {}
	configure highlightthickness 2
	configure text 3
	other pathname button#13
	other tags {}
	other level {}
	other help {}
	configure borderwidth 2
	other comments {}
	geometry column 3
	configure command {key %W}
	other tabbing {}
	other item_name button#13
Widget button#4
	geometry row 4
	other error {}
	other type button
	configure highlightthickness 2
	other master {}
	configure text 4
	other pathname button#4
	other tags {}
	other level {}
	other help {}
	geometry column 1
	other comments {}
	configure borderwidth 2
	other item_name button#4
	other tabbing {}
	configure command {key %W}
Widget button#14
	geometry row 4
	other error {}
	other type button
	configure highlightthickness 2
	other master {}
	configure text 6
	other pathname button#14
	other tags {}
	other level {}
	other help {}
	geometry column 3
	other comments {}
	configure borderwidth 2
	other item_name button#14
	other tabbing {}
	configure command {key %W}
Widget button#5
	geometry row 5
	other error {}
	other type button
	other master {}
	configure highlightthickness 2
	configure text 1
	other pathname button#5
	other tags {}
	other level {}
	other help {}
	configure borderwidth 2
	other comments {}
	geometry column 1
	configure command {key %W}
	other tabbing {}
	other item_name button#5
Widget button#15
	geometry row 3
	other error {}
	other type button
	other master {}
	configure highlightthickness 2
	configure text 9
	other pathname button#15
	other tags {}
	other level {}
	other help {}
	configure borderwidth 2
	other comments {}
	geometry column 3
	configure command {key %W}
	other tabbing {}
	other item_name button#15
Widget f
	other panel {}
	other resize_row {0 0 0 0 0 0}
	other type frame
	other code {global aval result opr state tcl_precision
set aval 0.0
set state 0
set opr ""
set tcl_precision 15

proc key {arg} {
  global aval result opr state
  set arg [$arg cget -text]

  switch -regexp -- $arg {
    {[0-9]} {
      if {$result == "0.0" || $state == 1} {
        set result $arg
      } else {
        append result $arg
      }
      set state 0
    }
    {\.} {
      if {![regexp {\.} $result]} {
        if {$result == "0.0" || $state == 1} {
          set result $arg
        } else {
          append result $arg
        }
        set state 0
      }
    }
    {Clr} {
      if {$result == 0.0} {
        set aval 0.0
      }
      set result 0.0
      set state 0
    }
    {=} {
	if {![regexp {\.} $result]} {
          append result ".0"
        }
	set result [eval "expr [subst $aval$opr$result]"]
        set state 1
    }
    default {
	set aval $result
	set opr $arg
	set result 0.0
	set state 0
    }
  }
}
}
	other min_row {30 30 30 30 30 30}
	other master {}
	other pathname f
	other tags {}
	other resize_column {0 0 0 0}
	other level 0
	configure background #e9e9e9
	other help {}
	other min_column {30 30 30 30}
	other Colors {black white bisque grey red green blue magenta yellow #AE00B200C300}
	other comments {}
	other item_name f
	other tabbing {}
Widget button#16
	geometry row 2
	other error {}
	other type button
	configure highlightthickness 2
	other master {}
	configure text /
	other pathname button#16
	other tags {}
	other level {}
	other help {}
	geometry column 3
	other comments {}
	configure borderwidth 2
	other item_name button#16
	other tabbing {}
	configure command {key %W}
Widget button#7
	geometry row 2
	other error {}
	other type button
	other master {}
	configure highlightthickness 2
	configure text =
	other pathname button#7
	other tags {}
	other level {}
	other help {}
	configure borderwidth 2
	other comments {}
	geometry column 2
	configure command {key %W}
	other tabbing {}
	other item_name button#7
Widget button#17
	geometry row 2
	other error {}
	other type button
	other master {}
	configure highlightthickness 2
	configure text *
	other pathname button#17
	other tags {}
	other level {}
	other help {}
	configure borderwidth 2
	other comments {}
	geometry column 4
	configure command {key %W}
	other tabbing {}
	other item_name button#17
Widget button#8
	geometry row 3
	other error {}
	other type button
	configure highlightthickness 2
	other master {}
	configure text 8
	other pathname button#8
	other tags {}
	other level {}
	other help {}
	geometry column 2
	other comments {}
	configure borderwidth 2
	other item_name button#8
	other tabbing {}
	configure command {key %W}
Widget button#18
	geometry row 3
	other error {}
	other type button
	configure highlightthickness 2
	other master {}
	configure text -
	other pathname button#18
	other tags {}
	other level {}
	other help {}
	geometry column 4
	other comments {}
	configure borderwidth 2
	other item_name button#18
	other tabbing {}
	configure command {key %W}
Widget button#9
	geometry row 4
	other error {}
	other type button
	other master {}
	configure highlightthickness 2
	configure text 5
	other pathname button#9
	other tags {}
	other level {}
	other help {}
	configure borderwidth 2
	other comments {}
	geometry column 2
	configure command {key %W}
	other tabbing {}
	other item_name button#9
Widget button#19
	geometry row 4
	other error {}
	other type button
	other master {}
	configure highlightthickness 2
	configure text +
	other pathname button#19
	other tags {}
	other level {}
	other help {}
	configure borderwidth 2
	other comments {}
	geometry column 4
	configure command {key %W}
	other tabbing {}
	other item_name button#19
Widget button#21
	geometry row 5
	other error {}
	geometry rowspan 2
	other type button
	other master {}
	configure highlightthickness 2
	configure text =
	other pathname button#21
	other tags {}
	other level {}
	other help {}
	configure borderwidth 2
	other comments {}
	geometry column 4
	configure command {key %W}
	other tabbing {}
	other item_name button#21
	geometry sticky ns
Widget entry#1
	geometry columnspan 4
	geometry row 1
	other error {}
	other type entry
	configure textvariable result
	other master {}
	configure highlightthickness 2
	other pathname entry#1
	other tags {}
	other level {}
	other help {}
	geometry column 1
	other comments {}
	configure borderwidth 2
	other item_name result
	other tabbing {}

