View | Details | Raw Unified
Collapse All | Expand All

(-) tcltk/tkconq.tcl.old (-12 / +12 lines)
 Lines 472-478    Link Here  
		    -state $variantstate($col2) -variable variantvalue($col2) \
		    -state $variantstate($col2) -variable variantvalue($col2) \
		    -command [ list set_variant_value_cmd $col2 ]
		    -command [ list set_variant_value_cmd $col2 ]
	    grid .newgame.top.checks.v$col1 .newgame.top.checks.v$col2 \
	    grid .newgame.top.checks.v$col1 .newgame.top.checks.v$col2 \
		    -sticky w -pad 5
 
		    -sticky w -ipadx 5 -ipady 5
 
	}
	}
	for { set v 0 } { $v < 16 } { incr v } {
	for { set v 0 } { $v < 16 } { incr v } {
	    if { "$variantstate($v)" == "active" } {
	    if { "$variantstate($v)" == "active" } {
 Lines 785-821    Link Here  
	    -command { adjust_advantage_cmd 1 }
	    -command { adjust_advantage_cmd 1 }
    button .newgame.top.plbuttons.aminus -text "A-" -state disabled \
    button .newgame.top.plbuttons.aminus -text "A-" -state disabled \
	    -command { adjust_advantage_cmd -1 }
	    -command { adjust_advantage_cmd -1 }
    grid .newgame.top.plbuttons.aplus .newgame.top.plbuttons.aminus -sticky ew -pad 2
 
    grid .newgame.top.plbuttons.aplus .newgame.top.plbuttons.aminus -sticky ew -ipadx 2 -ipady 2
 
    button .newgame.top.plbuttons.add -text "Add" \
    button .newgame.top.plbuttons.add -text "Add" \
	    -command { add_player_cmd } -width 8
	    -command { add_player_cmd } -width 8
    grid .newgame.top.plbuttons.add -columnspan 2 -sticky ew -pad 2
 
    grid .newgame.top.plbuttons.add -columnspan 2 -sticky ew -ipadx 2 -ipady 2
 
    button .newgame.top.plbuttons.remove -text "Remove" -width 8
    button .newgame.top.plbuttons.remove -text "Remove" -width 8
    grid .newgame.top.plbuttons.remove -columnspan 2 -sticky ew -pad 2
 
    grid .newgame.top.plbuttons.remove -columnspan 2 -sticky ew -ipadx 2 -ipady 2
 

        
    menubutton .newgame.top.plbuttons.sidelib -text "Side Name" \
    menubutton .newgame.top.plbuttons.sidelib -text "Side Name" \

        
	    -menu .newgame.top.plbuttons.sidelib.menu \
	    -menu .newgame.top.plbuttons.sidelib.menu \

        
	    -borderwidth 2 -relief raised -width 8
	    -borderwidth 2 -relief raised -width 8

        
    menu .newgame.top.plbuttons.sidelib.menu -tearoff 0
    menu .newgame.top.plbuttons.sidelib.menu -tearoff 0

            

              
    grid .newgame.top.plbuttons.sidelib -columnspan 2 -sticky ew -pad 2

              
    grid .newgame.top.plbuttons.sidelib -columnspan 2 -sticky ew -ipadx 2 -ipady 2

            

        

        
    button .newgame.top.plbuttons.rename -text "Random" \
    button .newgame.top.plbuttons.rename -text "Random" \

        
	    -command { rename_side_for_player_cmd -1 } -width 8
	    -command { rename_side_for_player_cmd -1 } -width 8

            

              
    grid .newgame.top.plbuttons.rename -columnspan 2 -sticky ew -pad 2

              
    grid .newgame.top.plbuttons.rename -columnspan 2 -sticky ew -ipadx 2 -ipady 2

            

        
    button .newgame.top.plbuttons.computer -text "Computer" \
    button .newgame.top.plbuttons.computer -text "Computer" \

        
	    -command { cycle_ai_cmd } -width 8
	    -command { cycle_ai_cmd } -width 8

            

              
    grid .newgame.top.plbuttons.computer -columnspan 2 -sticky ew -pad 2

              
    grid .newgame.top.plbuttons.computer -columnspan 2 -sticky ew -ipadx 2 -ipady 2

            

        
    button .newgame.top.plbuttons.exchange -text "Exchange" \
    button .newgame.top.plbuttons.exchange -text "Exchange" \

        
	    -command { exchange_players_cmd } -width 8
	    -command { exchange_players_cmd } -width 8

            

              
    grid .newgame.top.plbuttons.exchange -columnspan 2 -sticky ew -pad 2

              
    grid .newgame.top.plbuttons.exchange -columnspan 2 -sticky ew -ipadx 2 -ipady 2

            

        

        
    label .newgame.top.plbuttons.indeplabel -text "Indep Units"
    label .newgame.top.plbuttons.indeplabel -text "Indep Units"

            

              
    grid .newgame.top.plbuttons.indeplabel -columnspan 2 -sticky ew -pad 2

              
    grid .newgame.top.plbuttons.indeplabel -columnspan 2 -sticky ew -ipadx 2 -ipady 2

            

        
    button .newgame.top.plbuttons.indepside -text "Add AI" \
    button .newgame.top.plbuttons.indepside -text "Add AI" \

        
	    -command { set_indepside toggle } -width 6
	    -command { set_indepside toggle } -width 6

            

              
    grid .newgame.top.plbuttons.indepside -columnspan 2 -pad 2

              
    grid .newgame.top.plbuttons.indepside -columnspan 2 -ipadx 2 -ipady 2

            

        
    button .newgame.top.plbuttons.indepconfig -text "Config" \
    button .newgame.top.plbuttons.indepconfig -text "Config" \

        
	    -command { popup_indepside_config } -width 6
	    -command { popup_indepside_config } -width 6

            

              
    grid .newgame.top.plbuttons.indepconfig -columnspan 2 -pad 2

              
    grid .newgame.top.plbuttons.indepconfig -columnspan 2 -ipadx 2 -ipady 2

            

        

        
    # Add names to the side library menu, disabling already-used names.
    # Add names to the side library menu, disabling already-used names.

        
    set numsidelib [ side_lib_size ]
    set numsidelib [ side_lib_size ]

  

    

    

       Lines 2985-2991
       
    
  Link Here 
    

  

        
	pack .bool.msg .bool.buttons -side top -fill x -padx 10 -pady 10
	pack .bool.msg .bool.buttons -side top -fill x -padx 10 -pady 10

        
	button .bool.buttons.yes -text Yes -command [ list bool_yes $mapn ]
	button .bool.buttons.yes -text Yes -command [ list bool_yes $mapn ]

        
	button .bool.buttons.no -text No -command [ list bool_no $mapn ]
	button .bool.buttons.no -text No -command [ list bool_no $mapn ]

            

              
	grid .bool.buttons.yes .bool.buttons.no -pad 5

              
	grid .bool.buttons.yes .bool.buttons.no -ipadx 5 -ipady 5

            

        
	# (should use dflt arg here)
	# (should use dflt arg here)

        
	update idletasks
	update idletasks

        
    }
    }