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