The following patch seems to do basically the right thing (please pardon
if my near-zero knowledge of Tcl/Tk exhibits in it):
Index: start.tcl
===================================================================
RCS file: /cvsroot/scid/scid/tcl/start.tcl,v
retrieving revision 1.100
diff -u -r1.100 start.tcl
--- start.tcl 16 Nov 2010 11:10:49 -0000 1.100
+++ start.tcl 17 Nov 2010 19:38:20 -0000
@@ -894,7 +894,9 @@
incr height_used [ lindex [ grid bbox $bd 0 0 ] 3 ]
}
# game info
- incr height_used [ lindex [grid bbox .main 0 3] 3]
+ set game_info_font_height 18
+ set min_game_info_height [expr 6*$game_info_font_height]
+ incr height_used $min_game_info_height
# staus bar
incr height_used [ lindex [grid bbox .main 0 5] 3]
@@ -937,6 +939,8 @@
::board::resize2 .main.board $newSize
set ::boardSize $newSize
+
+ .main.gameInfo configure -height [expr ($min_game_info_height+($availh-$newSize*8))/$game_info_font_height]
update idletasks
bind .main <Configure> { ::docking::handleConfigureEvent ::resizeMainBoard }
The only problem is how to set correct game_info_font_height value --
can anybody help?
Even better would be if the call `.main.gameInfo configure' in the patch
could be omitted by defining the height of gameInfo as flexible (filling
available space after board resize). But I don't know how to do it in
Tk.
------------------------------------------------------------------------------
Beautiful is writing same markup. Internet Explorer 9 supports
standards for HTML5, CSS3, SVG 1.1, ECMAScript5, and DOM L2 & L3.
Spend less time writing and rewriting code and more time creating great
experiences on the web. Be a part of the beta today
http://p.sf.net/sfu/msIE9-sfdev2dev
_______________________________________________
Scid-users mailing list
Scid-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/scid-users
