Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Re-set auxiliary windows in utility style |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
72fa7fed11c75fe31c2c5dcad523681a |
| User & Date: | kevin 2019-01-03 02:56:40 |
Context
|
2019-01-04
| ||
| 03:02 | Update AppleScript implementation check-in: e1107d8e3c user: kevin tags: trunk | |
|
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 | |
Changes
Changes to libs/machelp/help.tcl.
| ︙ | ︙ | |||
152 153 154 155 156 157 158 159 160 161 162 163 164 165 |
# we will also have a TOC pane.
#
proc ::Help::DoDisplay {TOP} {
variable state
catch {destroy $TOP}
toplevel $TOP
wm title $TOP "Help"
frame $TOP.bottom -bd 2 -relief ridge
button $TOP.b -text "Print" -command [list ::Help::PrintHelp $TOP]
pack $TOP.bottom -side bottom -fill both
pack $TOP.b -side bottom -expand 1 -pady 10 -in $TOP.bottom
| > | 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 |
# we will also have a TOC pane.
#
proc ::Help::DoDisplay {TOP} {
variable state
catch {destroy $TOP}
toplevel $TOP
tk::unsupported::MacWindowStyle style $TOP utility
wm title $TOP "Help"
frame $TOP.bottom -bd 2 -relief ridge
button $TOP.b -text "Print" -command [list ::Help::PrintHelp $TOP]
pack $TOP.bottom -side bottom -fill both
pack $TOP.b -side bottom -expand 1 -pady 10 -in $TOP.bottom
|
| ︙ | ︙ |
Changes to libs/portauthority/portauthority-main.tcl.
| ︙ | ︙ | |||
1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 |
set new [lindex [split $item] 0]
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
| > | 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 |
set new [lindex [split $item] 0]
set variantport $new
set variantlist [split [exec $portpath -q variants $new 2> $::env(TMPDIR)/varianterrors.txt] \n]
puts $variantlist
catch {destroy .variants}
toplevel .variants
tk::unsupported::MacWindowStyle style .variants utility
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
|
| ︙ | ︙ | |||
1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 |
global portauthority_growl
global notify_image
global playsound
global showstatus
#create gui
toplevel .preferences
wm title .preferences "PortAuthority Preferences"
set n [NoteBook .preferences.n]
pack $n -side top -fill both -expand yes
$n insert 0 pathpref -text Paths
$n insert 1 copytext -text Copy
| > | 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 |
global portauthority_growl
global notify_image
global playsound
global showstatus
#create gui
toplevel .preferences
tk::unsupported::MacWindowStyle style .preferences utility
wm title .preferences "PortAuthority Preferences"
set n [NoteBook .preferences.n]
pack $n -side top -fill both -expand yes
$n insert 0 pathpref -text Paths
$n insert 1 copytext -text Copy
|
| ︙ | ︙ |