PortAuthority

Check-in [72fa7fed11]
Login

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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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