PortAuthority

Check-in [878f406884]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Further tweaks
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 878f4068841dd2baa23bd8104ace295bdb71f887
User & Date: kevin 2018-12-31 02:50:58
Context
2019-01-03
02:56
Re-set auxiliary windows in utility style check-in: 72fa7fed11 user: kevin tags: trunk
2018-12-31
02:50
Further tweaks check-in: 878f406884 user: kevin tags: trunk
02:32
Update for Mojave check-in: a0507cee51 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to libs/portauthority/portauthority-main.tcl.

1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
	set variantport $new
	set variantlist [split [exec $portpath -q variants $new 2> $::env(TMPDIR)/varianterrors.txt] \n]
	puts $variantlist
	
	catch {destroy .variants}
	toplevel .variants
	wm title .variants "Variants"
	::tk::unsupported::MacWindowStyle style .variants utility {hud 
	    closeBox}
	wm attributes .variants -alpha 0.9
	frame .variants.f -padx 5 -pady 5 -bg gray20 
	pack .variants.f -side top -fill both -expand yes
	listbox .variants.f.list  -font {-size 10} -relief flat -bd 0  -bg white -selectbackground gray80 -exportselection 0 -selectmode single
	pack .variants.f.list -side top -fill both -expand yes

	frame .variants.bottom -padx 5 -pady 5 -bg gray20
	pack .variants.bottom -side bottom -fill both -expand yes
	label .variants.bottom.install -text "Install" -bg gray40 -foreground white   -font {-size 10} 
	label .variants.bottom.spacer -text "  " -bg gray20
	label .variants.bottom.cancel -text "Cancel"  -bg gray40 -foreground white -highlightbackground gray40  -font {-size 10} 
	pack .variants.bottom.install .variants.bottom.spacer .variants.bottom.cancel -side right -fill both

	bind .variants.bottom.install <Button-1> {.variants.bottom.install configure -bg gray30; installPortVariant}
	bind .variants.bottom.install <ButtonRelease-1> {.variants.bottom.install configure -bg gray40}

	bind .variants.bottom.cancel <Button-1> {.variants.bottom.cancel configure -bg gray30; destroy .variants}
	bind .variants.bottom.install <ButtonRelease-1> {.variants.button.cancel configure -bg gray40}
	
	
	foreach item $variantlist {
	    .variants.f.list insert end [string trimleft [lindex [split $item \:] 0]]
	}

    }
}








<
<
<
|

|


|

|
<
<
<

<
<
|
<
<
|
<







1184
1185
1186
1187
1188
1189
1190



1191
1192
1193
1194
1195
1196
1197
1198



1199


1200


1201

1202
1203
1204
1205
1206
1207
1208
	set variantport $new
	set variantlist [split [exec $portpath -q variants $new 2> $::env(TMPDIR)/varianterrors.txt] \n]
	puts $variantlist
	
	catch {destroy .variants}
	toplevel .variants
	wm title .variants "Variants"



	ttk::frame .variants.f -padding 5
	pack .variants.f -side top -fill both -expand yes
	listbox .variants.f.list  -font {-size 10} -relief flat -bd 0  -bg #F6F6F6  -selectbackground #D2D2D2 -exportselection 0 -selectmode single
	pack .variants.f.list -side top -fill both -expand yes

	ttk::frame .variants.bottom -padding 5
	pack .variants.bottom -side bottom -fill both -expand yes
	ttk::button .variants.bottom.install -text "Install" -command installPortVariant 






	ttk::button .variants.bottom.cancel -text "Cancel" -command {destroy .variants}


	pack .variants.bottom.install .variants.bottom.cancel -side left -fill both

	foreach item $variantlist {
	    .variants.f.list insert end [string trimleft [lindex [split $item \:] 0]]
	}

    }
}