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: | 72fa7fed11c75fe31c2c5dcad523681a834a423d |
| 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
....
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
|
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
................................................................................
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
|
>
>
|
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
....
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
|
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
................................................................................
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
|