the game over dialog

[MA Dunzi]

| tcltk/tkconq.tcl rev 1.102
| # This is overkill, but it seems to be the only way to force these two lines to justify.

I created '.gameover.hint' as 'label' and it seems to work in unix.

--- tkconq.tcl.orig	Wed Jun 19 03:45:16 2002
+++ tkconq.tcl	Wed Jun 19 02:20:11 2002
@@ -3995,16 +3995,8 @@
 	    -command { exit_xconq }
     pack .gameover.quitnow -side top -padx 4 -pady 4
 
-    text .gameover.hint -width 36 -height 2 -borderwidth 0 -font $textfont 
+    label .gameover.hint -width 36 -font $textfont -text "If you continue, you can look around\n and see how the game ended."
     pack .gameover.hint -side top -padx 4 -pady 4
-
-    .gameover.hint insert end "If you continue, you can look around\n and see how the game ended."
-    .gameover.hint configure -state disabled
-    # This is overkill, but it seems to be the only way to force these two lines to justify.
-    .gameover.hint tag add line1 1.0
-    .gameover.hint tag add line2 2.0
-    .gameover.hint tag configure line1 -justify center     
-    .gameover.hint tag configure line2 -justify center     
 
     button .gameover.continue -text "Continue" \
 	    -command { dismiss_game_over_dialog }

--
MA Dunzi <tadalunch@s5.xrea.com> http://tadalunch.s5.xrea.com/xconq/index.html