[Tkabber-dev] r735 - in trunk/tkabber-plugins: . checkers chess georoster reversi

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Sep 29 23:33:27 MSD 2006


Author: sergei
Date: 2006-09-29 23:33:05 +0400 (Fri, 29 Sep 2006)
New Revision: 735

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/checkers/checkers.tcl
   trunk/tkabber-plugins/chess/chess.tcl
   trunk/tkabber-plugins/georoster/georoster.tcl
   trunk/tkabber-plugins/reversi/reversi.tcl
Log:
	* checkers/checkers.tcl, chess/chess.tcl, georoster/georoster.tcl,
	  reversi/reversi.tcl: Replaced customizeable radio variables by
	  options variables.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2006-09-29 19:30:42 UTC (rev 734)
+++ trunk/tkabber-plugins/ChangeLog	2006-09-29 19:33:05 UTC (rev 735)
@@ -1,3 +1,9 @@
+2006-09-29  Sergei Golovan  <sgolovan at nes.ru>
+
+	* checkers/checkers.tcl, chess/chess.tcl, georoster/georoster.tcl,
+	  reversi/reversi.tcl: Replaced customizeable radio variables by
+	  options variables.
+
 2006-09-27  Sergei Golovan  <sgolovan at nes.ru>
 
 	* checkers/checkers.tcl, chess/chess.tcl, reversi/reversi.tcl:

Modified: trunk/tkabber-plugins/checkers/checkers.tcl
===================================================================
--- trunk/tkabber-plugins/checkers/checkers.tcl	2006-09-29 19:30:42 UTC (rev 734)
+++ trunk/tkabber-plugins/checkers/checkers.tcl	2006-09-29 19:33:05 UTC (rev 735)
@@ -42,12 +42,11 @@
     custom::defgroup Checkers [::msgcat::mc "Checkers plugin options."] -group Plugins
     custom::defvar options(theme) Checkers \
 	[::msgcat::mc "Checkers figures theme."] -group Checkers \
-	-type radio -layout vertical \
-	-values $values \
+	-type options -values $values \
 	-command [namespace current]::load_stored_theme
     custom::defvar options(game) russian \
 	[::msgcat::mc "Default game variant."] -group Checkers \
-	-type radio -layout vertical \
+	-type options \
 	-values $game_names_list
     custom::defvar options(flip_black_view) 1 \
 	[::msgcat::mc "Flip board view when playing black (Russian, Spanish, Italian) or white (Straight, Pool, Brazilian) by default."] \
@@ -59,15 +58,15 @@
 	[::msgcat::mc "Show tooltips with short instructions."] \
 	-type boolean -group Checkers \
 	-command [list [namespace current]::set_tooltips]
+    custom::defvar options(sound) "" \
+        [::msgcat::mc "Sound to play after opponent's turn"] \
+	-type file -group Checkers
     custom::defvar options(allow_illegal) 0 \
 	[::msgcat::mc "Allow illegal moves (useful for debugging)."] \
 	-type boolean -group Checkers
     custom::defvar options(accept_illegal) 0 \
 	[::msgcat::mc "Accept opponent illegal moves (useful for debugging)."] \
 	-type boolean -group Checkers
-    custom::defvar options(sound) "" \
-        [::msgcat::mc "Sound to play after opponent's turn"] \
-	-type file -group Checkers
 }
 
 proc checkers::load_stored_theme {args} {

Modified: trunk/tkabber-plugins/chess/chess.tcl
===================================================================
--- trunk/tkabber-plugins/chess/chess.tcl	2006-09-29 19:30:42 UTC (rev 734)
+++ trunk/tkabber-plugins/chess/chess.tcl	2006-09-29 19:33:05 UTC (rev 735)
@@ -44,8 +44,7 @@
     custom::defgroup Chess [::msgcat::mc "Chess plugin options."] -group Plugins
     custom::defvar options(theme) Classic \
 	[::msgcat::mc "Chess figures theme."] -group Chess \
-	-type radio -layout vertical \
-	-values $values \
+	-type options -values $values \
 	-command [namespace current]::load_stored_theme
     custom::defvar options(flip_black_view) 1 \
 	[::msgcat::mc "Flip board view when playing black by default."] \
@@ -60,15 +59,15 @@
 	[::msgcat::mc "Show tooltips with short instructions."] \
 	-type boolean -group Chess \
 	-command [list [namespace current]::set_tooltips]
+    custom::defvar options(sound) "" \
+        [::msgcat::mc "Sound to play after opponent's turn"] \
+	-type file -group Chess
     custom::defvar options(allow_illegal) 0 \
 	[::msgcat::mc "Allow illegal moves (useful for debugging)."] \
 	-type boolean -group Chess
     custom::defvar options(accept_illegal) 0 \
 	[::msgcat::mc "Accept opponent illegal moves (useful for debugging)."] \
 	-type boolean -group Chess
-    custom::defvar options(sound) "" \
-        [::msgcat::mc "Sound to play after opponent's turn"] \
-	-type file -group Chess
 }
 
 proc chess::load_stored_theme {args} {

Modified: trunk/tkabber-plugins/georoster/georoster.tcl
===================================================================
--- trunk/tkabber-plugins/georoster/georoster.tcl	2006-09-29 19:30:42 UTC (rev 734)
+++ trunk/tkabber-plugins/georoster/georoster.tcl	2006-09-29 19:33:05 UTC (rev 735)
@@ -91,7 +91,7 @@
 
     custom::defvar options(showcities) all \
         [::msgcat::mc "Specify how to show cities at the map."] \
-        -group GeoRoster -type radio -layout vertical \
+        -group GeoRoster -type options \
 	-values $opt2label_list -command [namespace current]::set_showcities
     
     variable showcities $opt2label($options(showcities))

Modified: trunk/tkabber-plugins/reversi/reversi.tcl
===================================================================
--- trunk/tkabber-plugins/reversi/reversi.tcl	2006-09-29 19:30:42 UTC (rev 734)
+++ trunk/tkabber-plugins/reversi/reversi.tcl	2006-09-29 19:33:05 UTC (rev 735)
@@ -29,8 +29,7 @@
     custom::defgroup Reversi [::msgcat::mc "Reversi plugin options."] -group Plugins
     custom::defvar options(theme) Checkers \
 	[::msgcat::mc "Reversi figures theme."] -group Reversi \
-	-type radio -layout vertical \
-	-values $values \
+	-type options -values $values \
 	-command [namespace current]::load_stored_theme
     custom::defvar options(flip_white_view) 0 \
 	[::msgcat::mc "Flip board view when playing white by default."] \
@@ -42,15 +41,15 @@
 	[::msgcat::mc "Show tooltips with short instructions."] \
 	-type boolean -group Reversi \
 	-command [list [namespace current]::set_tooltips]
+    custom::defvar options(sound) "" \
+	[::msgcat::mc "Sound to play after oppponent's turn"] \
+	-type file -group Reversi
     custom::defvar options(allow_illegal) 0 \
 	[::msgcat::mc "Allow illegal moves (useful for debugging)."] \
 	-type boolean -group Reversi
     custom::defvar options(accept_illegal) 0 \
 	[::msgcat::mc "Accept opponent illegal moves (useful for debugging)."] \
 	-type boolean -group Reversi
-    custom::defvar options(sound) "" \
-	[::msgcat::mc "Sound to play after oppponent's turn"] \
-	-type file -group Reversi
 }
 
 proc reversi::load_stored_theme {args} {



More information about the Tkabber-dev mailing list