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 ] |