|
Lines 472-478
Link Here
|
| 472 |
-state $variantstate($col2) -variable variantvalue($col2) \ |
472 |
-state $variantstate($col2) -variable variantvalue($col2) \ |
| 473 |
-command [ list set_variant_value_cmd $col2 ] |
473 |
-command [ list set_variant_value_cmd $col2 ] |
| 474 |
grid .newgame.top.checks.v$col1 .newgame.top.checks.v$col2 \ |
474 |
grid .newgame.top.checks.v$col1 .newgame.top.checks.v$col2 \ |
| 475 |
-sticky w -pad 5 |
475 |
-sticky w -padx 5 -pady 5 |
| 476 |
} |
476 |
} |
| 477 |
for { set v 0 } { $v < 16 } { incr v } { |
477 |
for { set v 0 } { $v < 16 } { incr v } { |
| 478 |
if { "$variantstate($v)" == "active" } { |
478 |
if { "$variantstate($v)" == "active" } { |
|
Lines 785-821
Link Here
|
| 785 |
-command { adjust_advantage_cmd 1 } |
785 |
-command { adjust_advantage_cmd 1 } |
| 786 |
button .newgame.top.plbuttons.aminus -text "A-" -state disabled \ |
786 |
button .newgame.top.plbuttons.aminus -text "A-" -state disabled \ |
| 787 |
-command { adjust_advantage_cmd -1 } |
787 |
-command { adjust_advantage_cmd -1 } |
| 788 |
grid .newgame.top.plbuttons.aplus .newgame.top.plbuttons.aminus -sticky ew -pad 2 |
788 |
grid .newgame.top.plbuttons.aplus .newgame.top.plbuttons.aminus -sticky ew -padx 2 -pady 2 |
| 789 |
button .newgame.top.plbuttons.add -text "Add" \ |
789 |
button .newgame.top.plbuttons.add -text "Add" \ |
| 790 |
-command { add_player_cmd } -width 8 |
790 |
-command { add_player_cmd } -width 8 |
| 791 |
grid .newgame.top.plbuttons.add -columnspan 2 -sticky ew -pad 2 |
791 |
grid .newgame.top.plbuttons.add -columnspan 2 -sticky ew -padx 2 -pady 2 |
| 792 |
button .newgame.top.plbuttons.remove -text "Remove" -width 8 |
792 |
button .newgame.top.plbuttons.remove -text "Remove" -width 8 |
| 793 |
grid .newgame.top.plbuttons.remove -columnspan 2 -sticky ew -pad 2 |
793 |
grid .newgame.top.plbuttons.remove -columnspan 2 -sticky ew -padx 2 -pady 2 |
| 794 |
|
794 |
|
| 795 |
menubutton .newgame.top.plbuttons.sidelib -text "Side Name" \ |
795 |
menubutton .newgame.top.plbuttons.sidelib -text "Side Name" \ |
| 796 |
-menu .newgame.top.plbuttons.sidelib.menu \ |
796 |
-menu .newgame.top.plbuttons.sidelib.menu \ |
| 797 |
-borderwidth 2 -relief raised -width 8 |
797 |
-borderwidth 2 -relief raised -width 8 |
| 798 |
menu .newgame.top.plbuttons.sidelib.menu -tearoff 0 |
798 |
menu .newgame.top.plbuttons.sidelib.menu -tearoff 0 |
| 799 |
grid .newgame.top.plbuttons.sidelib -columnspan 2 -sticky ew -pad 2 |
799 |
grid .newgame.top.plbuttons.sidelib -columnspan 2 -sticky ew -padx 2 -pady 2 |
| 800 |
|
800 |
|
| 801 |
button .newgame.top.plbuttons.rename -text "Random" \ |
801 |
button .newgame.top.plbuttons.rename -text "Random" \ |
| 802 |
-command { rename_side_for_player_cmd -1 } -width 8 |
802 |
-command { rename_side_for_player_cmd -1 } -width 8 |
| 803 |
grid .newgame.top.plbuttons.rename -columnspan 2 -sticky ew -pad 2 |
803 |
grid .newgame.top.plbuttons.rename -columnspan 2 -sticky ew -padx 2 -pady 2 |
| 804 |
button .newgame.top.plbuttons.computer -text "Computer" \ |
804 |
button .newgame.top.plbuttons.computer -text "Computer" \ |
| 805 |
-command { cycle_ai_cmd } -width 8 |
805 |
-command { cycle_ai_cmd } -width 8 |
| 806 |
grid .newgame.top.plbuttons.computer -columnspan 2 -sticky ew -pad 2 |
806 |
grid .newgame.top.plbuttons.computer -columnspan 2 -sticky ew -padx 2 -pady 2 |
| 807 |
button .newgame.top.plbuttons.exchange -text "Exchange" \ |
807 |
button .newgame.top.plbuttons.exchange -text "Exchange" \ |
| 808 |
-command { exchange_players_cmd } -width 8 |
808 |
-command { exchange_players_cmd } -width 8 |
| 809 |
grid .newgame.top.plbuttons.exchange -columnspan 2 -sticky ew -pad 2 |
809 |
grid .newgame.top.plbuttons.exchange -columnspan 2 -sticky ew -padx 2 -pady 2 |
| 810 |
|
810 |
|
| 811 |
label .newgame.top.plbuttons.indeplabel -text "Indep Units" |
811 |
label .newgame.top.plbuttons.indeplabel -text "Indep Units" |
| 812 |
grid .newgame.top.plbuttons.indeplabel -columnspan 2 -sticky ew -pad 2 |
812 |
grid .newgame.top.plbuttons.indeplabel -columnspan 2 -sticky ew -padx 2 -pady 2 |
| 813 |
button .newgame.top.plbuttons.indepside -text "Add AI" \ |
813 |
button .newgame.top.plbuttons.indepside -text "Add AI" \ |
| 814 |
-command { set_indepside toggle } -width 6 |
814 |
-command { set_indepside toggle } -width 6 |
| 815 |
grid .newgame.top.plbuttons.indepside -columnspan 2 -pad 2 |
815 |
grid .newgame.top.plbuttons.indepside -columnspan 2 -padx 2 -pady 2 |
| 816 |
button .newgame.top.plbuttons.indepconfig -text "Config" \ |
816 |
button .newgame.top.plbuttons.indepconfig -text "Config" \ |
| 817 |
-command { popup_indepside_config } -width 6 |
817 |
-command { popup_indepside_config } -width 6 |
| 818 |
grid .newgame.top.plbuttons.indepconfig -columnspan 2 -pad 2 |
818 |
grid .newgame.top.plbuttons.indepconfig -columnspan 2 -padx 2 -pady 2 |
| 819 |
|
819 |
|
| 820 |
# Add names to the side library menu, disabling already-used names. |
820 |
# Add names to the side library menu, disabling already-used names. |
| 821 |
set numsidelib [ side_lib_size ] |
821 |
set numsidelib [ side_lib_size ] |