X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=client.tcl;h=e0a2d1d10d06f8c7a5cd3966440dcbff62dc2aa5;hb=a7caf27a7125f7be3aa5e8c8c1a5f806f2a51a17;hp=9112e98801d2c4eb18706965cee22361c32e101e;hpb=c5866f47a7794183f53eb764b3dcbd5f09339640;p=ir-tcl-moved-to-github.git diff --git a/client.tcl b/client.tcl index 9112e98..e0a2d1d 100644 --- a/client.tcl +++ b/client.tcl @@ -4,7 +4,10 @@ # Sebastian Hammer, Adam Dickmeiss # # $Log: client.tcl,v $ -# Revision 1.106 1998-06-10 13:22:47 adam +# Revision 1.107 1999-02-11 11:30:08 adam +# Updated for WIN32. +# +# Revision 1.106 1998/06/10 13:22:47 adam # Minor changes. # # Revision 1.105 1998/06/10 13:00:45 adam @@ -817,8 +820,8 @@ if {[catch {set g $windowGeometry(.)}]} { # to a default value or to the value in windowGeometry(.) toplevelG .init place-force .init . -message .init.top -text "IrTcl" -relief raised -border 1 -font $font(bb,normal) -text .init.msg -width 30 -height 4 +message .init.top -aspect 500 -text "IrTcl" -relief raised -border 1 -font $font(bb,normal) +text .init.msg -width 40 -height 4 pack .init.top -side top -fill x -expand yes pack .init.msg -side bottom -fill both -expand yes wm iconify .