WidGet file, version 1.1, created:  Fri Feb 06 16:45:48 GMT 1998
Widget button#45
	geometry row 3
	other error {}
	other type button
	other master {}
	configure text redial
	other pathname button#45
	configure font Helvetica,14
	other tags {}
	other level {}
	configure background #280080
	other help {}
	configure foreground green
	configure activebackground #86a6c0
	configure padx 0
	other comments {}
	configure pady 0
	geometry column 4
	configure command {set newentry $entry; set entry {}; update; set stext { R e d i a l l i n g . . . }; set statusbar "Busy... "; scroller $stext; update; set entry $newentry; set statusbar "After redialling you have been connected to  $newentry"}
	configure activeforeground green
	other tabbing {}
	other item_name button#45button#42
	geometry sticky nesw
Widget button#1
	configure highlightbackground blue
	geometry row 3
	other type button
	other error {}
	other master {}
	configure text 5
	other pathname button#1
	configure font Helvetica,19
	other tags {}
	other level {}
	configure background #86a6c0
	other help {}
	configure foreground yellow
	configure activebackground grey
	other comments {}
	geometry column 2
	configure activeforeground blue
	configure command {lappend entry {5}; set statusbar {}}
	other tabbing {}
	other item_name button#1
	geometry sticky nesw
Widget button#10
	configure highlightbackground blue
	geometry row 5
	other error {}
	other type button
	other master {}
	configure text 0
	other pathname button#10
	configure font Helvetica,19
	other tags {}
	configure highlightcolor blue
	other level {}
	configure background #86a6c0
	other help {}
	configure foreground yellow
	configure activebackground grey
	other comments {}
	geometry column 2
	configure command {lappend entry {0}; set statusbar {}}
	other tabbing {}
	other item_name button#10
	configure activeforeground blue
	geometry sticky nesw
Widget button#46
	geometry row 4
	other error {}
	other type button
	other master {}
	configure text phonebook
	other pathname button#46
	other tags {}
	configure font Helvetica,14
	other level {}
	configure background #280080
	other help {}
	configure foreground white
	configure activebackground #86a6c0
	other comments {}
	geometry column 5
	configure command {set statusbar "Calling menu of favourite numbers..."}
	other item_name button#46
	other tabbing {}
	configure activeforeground white
	geometry sticky nesw
Widget button#2
	configure highlightbackground blue
	geometry row 2
	other error {}
	other type button
	other master {}
	configure text 3
	other pathname button#2
	configure font Helvetica,19
	other tags {}
	other level {}
	configure background #86a6c0
	other help {}
	configure foreground yellow
	configure activebackground grey
	other comments {}
	geometry column 3
	configure command {lappend entry {3}; set statusbar {}}
	other tabbing {}
	other item_name button#2
	configure activeforeground blue
	geometry sticky nesw
Widget button#11
	configure highlightbackground blue
	geometry row 4
	other error {}
	other type button
	other master {}
	configure text 8
	other pathname button#11
	configure font Helvetica,19
	other tags {}
	configure highlightcolor blue
	other level {}
	configure background #86a6c0
	other help {}
	configure foreground yellow
	configure activebackground grey
	other comments {}
	geometry column 2
	configure activeforeground blue
	configure command {lappend entry {8}; set statusbar {}}
	other tabbing {}
	other item_name button#11
	geometry sticky nesw
Widget button#47
	geometry columnspan 2
	geometry row 1
	other error {}
	other type button
	other master {}
	configure text {Patelli Phone}
	other pathname button#47
	configure font Helvetica,24
	other tags {}
	configure highlightcolor #8ef4bc
	configure background #268280
	other level {}
	other help {}
	configure foreground yellow
	configure activebackground #268280
	configure borderwidth 8
	other comments {}
	geometry column 4
	configure activeforeground yellow
	other tabbing {}
	other item_name button#47
	geometry sticky nesw
Widget entry#5
	configure highlightbackground blue
	geometry columnspan 3
	geometry row 1
	other {} {}
	other error {}
	other type entry
	configure textvariable entry
	other master {}
	other pathname entry#5
	configure justify right
	other tags {}
	configure font Helvetica,17,Bold
	configure background #d2e6ec
	other level {}
	configure width 19
	other help {}
	configure borderwidth 8
	other comments {}
	configure cursor {}
	geometry column 1
	configure relief ridge
	other item_name entry#5entry#5
	other tabbing {}
	geometry sticky nesw
Widget button#3
	configure highlightbackground blue
	geometry row 2
	other error {}
	other type button
	other master {}
	configure text 2
	other pathname button#3
	configure font Helvetica,19
	other tags {}
	other level {}
	configure background #86a6c0
	other help {}
	configure foreground yellow
	configure activebackground grey
	other comments {}
	geometry column 2
	configure command {lappend entry {2}; set statusbar {}}
	other tabbing {}
	other item_name button#3
	configure activeforeground blue
	geometry sticky nesw
Widget button#12
	configure highlightbackground blue
	geometry row 2
	other error {}
	other type button
	other master {}
	configure text 1
	other pathname button#12
	configure font Helvetica,19
	other tags {}
	configure highlightcolor blue
	other level {}
	configure background #86a6c0
	other help {}
	configure foreground yellow
	configure activebackground grey
	other comments {}
	geometry column 1
	configure command {lappend entry {1}; set statusbar {} }
	other tabbing {}
	other item_name button#12
	configure activeforeground blue
	geometry sticky nesw
Widget button#4
	configure highlightbackground blue
	geometry row 3
	other error {}
	other type button
	other master {}
	configure text 6
	other pathname button#4
	configure font Helvetica,19
	other tags {}
	configure highlightcolor blue
	other level {}
	configure background #86a6c0
	other help {}
	configure foreground yellow
	configure activebackground grey
	other comments {}
	geometry column 3
	configure activeforeground blue
	configure command {lappend entry {6}; set statusbar {}}
	other tabbing {}
	other item_name button#4
	geometry sticky nesw
Widget entry#6
	geometry columnspan 5
	geometry row 6
	other error {}
	other type entry
	configure textvariable statusbar
	other master {}
	other pathname entry#6
	other tags {}
	configure background #d2e6ec
	other level {}
	other help {}
	other comments {}
	geometry column 1
	other tabbing {}
	other item_name entry#6
	geometry sticky nesw
Widget button#13
	geometry row 2
	other error {}
	other type button
	other master {}
	configure text delete
	other pathname button#13
	configure font Helvetica,14
	other tags {}
	other level {}
	configure background #280080
	other help {}
	configure foreground white
	configure activebackground #86a6c0
	other comments {}
	geometry column 5
	configure activeforeground white
	configure command {deleter; set statusbar "Character has been deleted"}
	other tabbing {}
	other item_name button#13
	geometry sticky nesw
Widget button#6
	configure highlightbackground blue
	geometry row 3
	other error {}
	other type button
	other master {}
	configure text 4
	other pathname button#6
	configure font Helvetica,19
	other tags {}
	other level {}
	configure background #86a6c0
	other help {}
	configure foreground yellow
	configure activebackground grey
	other comments {}
	geometry column 1
	configure command {lappend entry {4}; set statusbar {}}
	other tabbing {}
	other item_name button#6
	configure activeforeground blue
	geometry sticky nesw
Widget button#7
	configure highlightbackground blue
	geometry row 4
	other error {}
	other type button
	other master {}
	configure text 7
	other pathname button#7
	configure font Helvetica,19
	other tags {}
	configure highlightcolor blue
	other level {}
	configure background #86a6c0
	other help {}
	configure foreground yellow
	configure activebackground grey
	other comments {}
	geometry column 1
	configure activeforeground blue
	configure command {lappend entry {7}; set statusbar {}}
	other tabbing {}
	other item_name button#7
	geometry sticky nesw
Widget f
	other generic_options {button {activebackground #ececec activeforeground Black anchor center background white bitmap {} borderwidth 2 command {} comments {} cursor {} default disabled disabledforeground #a3a3a3 error {- button configuration -} font Times,0 foreground black height 0 help {} highlightbackground white highlightcolor Black highlightthickness 1 image {} item_name sample_button justify center level {} master {} padx 10 pady 3 pathname sample_button relief raised state normal tabbing {} tags {} takefocus {} text button textvariable {} type button underline -1 width 0 wraplength 0
		} canvas {
		} checkbutton {activebackground #ececec activeforeground Black anchor center background white bitmap {} borderwidth 2 command {} comments {} cursor {} disabledforeground #a3a3a3 error {- checkbutton configuration -} font Helvetica,12 foreground black height 0 help {} highlightbackground white highlightcolor Black highlightthickness 1 image {} indicatoron 1 item_name sample_checkbutton justify center level {} master {} offvalue 0 onvalue 1 padx 1 pady 1 pathname sample_checkbutton relief flat selectcolor #b03060 selectimage {} state normal tabbing {} tags {} takefocus {} text checkbutton textvariable {} type checkbutton underline -1 variable example_checkbutton width 0 wraplength 0
		} entry {background white borderwidth 2 comments {} cursor xterm error {- entry configuration -} exportselection 1 font Helvetica,12 foreground black help {} highlightbackground white highlightcolor Black highlightthickness 1 insertbackground Black insertborderwidth 0 insertofftime 300 insertontime 600 insertwidth 2 item_name sample_entry justify left level {} master {} pathname sample_entry relief sunken selectbackground #c3c3c3 selectborderwidth 1 selectforeground Black show {} state normal tabbing {} tags {} takefocus {} textvariable entry type entry width 20 xscrollcommand {}
		} frame {background grey borderwidth 0 class Frame colormap {} comments {} container 0 cursor {} error {- frame configuration -} height 0 help {} highlightbackground grey highlightcolor Black highlightthickness 0 item_name sample_frame level {} master {} panel {} pathname sample_frame relief flat tabbing {} tags {} takefocus 0 type frame visual {} width 0
		} label {
		} listbox {
		} menubutton {
		} message {
		} radiobutton {
		} scale {
		} scrollbar {activebackground #ececec activerelief raised background white borderwidth 2 command {} comments {} cursor {} elementborderwidth -1 error {- scrollbar configuration -} help {} highlightbackground white highlightcolor Black highlightthickness 1 item_name sample_scrollbar jump 0 level {} master {} orient vertical pathname sample_scrollbar relief sunken repeatdelay 300 repeatinterval 100 tabbing {} tags {} takefocus {} troughcolor #c3c3c3 type scrollbar width 15
		} text {
		}
	}
	other panel {}
	other resize_row {0 0 0 0 0 0}
	other type frame
	other code {proc deleter {} {
global entry
set i [expr [llength $entry] - 1]
if { $i <= 0 } {
	set entry {}
	return
}
 
for {set j 0} { $j < $i } { incr j } {
	lappend newentry [lindex $entry $j]
}
set entry {}
set entry $newentry
}


proc scroller {scrtext} {
global entry
set j [llength $scrtext]
set i 0
while {$i<$j} {
	lappend arr [lindex $scrtext $i]
	set entry $arr
	update
	set k 0
	while {$k < 20000} {
		incr k
	}
	set entry {}
	incr i
}
}


proc delay {} {
set i 0
while {$i < 200000} {
	incr i
}
}













}
	other min_row {91 63 61 58 40 30}
	other master {}
	other pathname f
	other resize_column {0 0 0 2 2}
	other tags {}
	other level 0
	configure background #e9e9e9
	other min_column {60 60 60 2 98}
	other help {}
	other Colors {black white bisque grey red green blue magenta yellow white #08bee6 #86a6c0 #7698ba #0028da #002886 #36ce8c #68b6a2 #8ef4bc #503ebc #d2e6ec #900ea4 #280080 #268280 #90cedc #22c6ca #aa06ee}
	other comments {}
	other item_name f
	other tabbing {}
Widget button#16
	configure highlightbackground blue
	geometry row 5
	other error {}
	other type button
	other master {}
	configure text #
	other pathname button#16
	configure font Helvetica,19
	configure highlightcolor blue
	other tags {}
	configure background #86a6c0
	other level {}
	other help {}
	configure foreground yellow
	configure activebackground #c0c0c0
	other comments {}
	geometry column 3
	configure activeforeground blue
	other item_name button#16
	other tabbing {}
	configure command {lappend entry {#}; set statusbar {} }
	geometry sticky nesw
Widget button#17
	configure highlightbackground blue
	geometry row 5
	other error {}
	other type button
	other master {}
	configure text *
	other pathname button#17
	configure font Helvetica,30
	other tags {}
	configure highlightcolor blue
	other level {}
	configure background #86a6c0
	other help {}
	configure foreground yellow
	configure activebackground grey
	other comments {}
	geometry column 1
	configure command {lappend entry {*}; set statusbar {} }
	other tabbing {}
	other item_name button#17
	configure activeforeground blue
	geometry sticky nesw
Widget button#9
	configure highlightbackground blue
	geometry row 4
	other error {}
	other type button
	other master {}
	configure text 9
	other pathname button#9
	configure font Helvetica,19
	other tags {}
	configure highlightcolor blue
	other level {}
	configure background #86a6c0
	other help {}
	configure foreground yellow
	configure activebackground grey
	other comments {}
	geometry column 3
	configure command {lappend entry {9}; set statusbar {}}
	other tabbing {}
	other item_name button#9
	configure activeforeground blue
	geometry sticky nesw
Widget button#19
	geometry row 4
	other error {}
	other type button
	other master {}
	configure text disconnect
	other pathname button#19
	configure font Helvetica,14
	other tags {}
	configure background #280080
	other level {}
	other help {}
	configure foreground red
	configure activebackground #86a6c0
	other comments {}
	geometry column 4
	other tabbing {}
	other item_name button#19
	configure command {set newentry $entry; set entry {}; update; set scrollingtext { D i s c o n n e c t i n g . . . }; set statusbar "Busy..."; scroller $scrollingtext; update; set entry $newentry; set statusbar "You have been disconnected from  $newentry"}
	configure activeforeground red
	geometry sticky nesw
Widget scale#1
	configure orient h
	configure foreground white
	configure activebackground #86a6c0
	configure variable example_scale
	other error {}
	other tags {}
	other level {}
	other help {}
	configure label volume
	other master {}
	other pathname scale#1
	configure font Helvetica,12
	configure background #280080
	geometry sticky ew
	other tabbing {}
	other item_name scale#1
	geometry row 5
	other type scale
	geometry column 4
	other comments {}
Widget button#42
	geometry row 2
	other error {}
	other type button
	other master {}
	configure text connect
	other pathname button#42
	other tags {}
	configure font Helvetica,14
	configure background #280080
	other level {}
	other help {}
	configure foreground green
	configure activebackground #86a6c0
	configure padx 0
	configure pady 0
	other comments {}
	geometry column 4
	other item_name button#42button#42
	other tabbing {}
	configure activeforeground green
	configure command {set newentry $entry; set entry {}; update; set stext { C o n n e c t i n g . . . }; set statusbar { Busy... }; scroller $stext; update; set entry $newentry; set statusbar " You have been connected to  $newentry "}
	geometry sticky nesw
Widget button#43
	geometry row 3
	other error {}
	other type button
	other master {}
	configure text clear
	other pathname button#43
	other tags {}
	configure font Helvetica,14
	configure background #280080
	other level {}
	other help {}
	configure foreground white
	configure activebackground #86a6c0
	other comments {}
	geometry column 5
	configure activeforeground white
	other item_name button#43
	other tabbing {}
	configure command {set entry {}; set statusbar "Display has been cleared"}
	geometry sticky nesw
Widget button#44
	geometry row 5
	other error {}
	other type button
	other master {}
	configure text {net calls}
	other pathname button#44
	configure font Helvetica,14
	other tags {}
	configure background #280080
	other level {}
	other help {}
	configure foreground white
	configure activebackground #86a6c0
	other comments {}
	geometry column 5
	configure activeforeground white
	other tabbing {}
	other item_name button#44
	configure command {set statusbar "Connecting to internet phone directory page..."}
	geometry sticky nesw

