PortAuthority

Check-in [f0dc80a259]
Login

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

Overview
Comment:Fixes for Catalina
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:f0dc80a259d2348059f6322de5674b88e4a7c8b9
User & Date: kevin 2019-10-17 01:28:00
Context
2019-12-01
02:26
Minor tweaks check-in: b48abdc55a user: kevin tags: trunk
2019-10-17
01:28
Fixes for Catalina check-in: f0dc80a259 user: kevin tags: trunk
2019-10-16
06:13
Fix dylib issues check-in: 5e97af62e6 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Scripts/AppMain.tcl.







1






package require portauthority
>
>
>
>
>
>

1
2
3
4
5
6
7
#remove system frameworks from Catalina, causes too many conflicts

foreach item [lsearch -regexp -all $auto_path /System] {
    set auto_path [lreplace $auto_path $item $item]
}

package require portauthority

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

1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
....
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
	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  -relief flat -bd 0  -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 [ttk::notebook .preferences.n]
    pack $n -side top -fill both -expand yes
    

    #path preferences







|







 







|







1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
....
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
	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 floating
	wm title .variants "Variants"
	ttk::frame .variants.f -padding 5
	pack .variants.f -side top -fill both -expand yes
	listbox .variants.f.list  -relief flat -bd 0  -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 floating
    wm title .preferences "PortAuthority Preferences"
    
    set n [ttk::notebook .preferences.n]
    pack $n -side top -fill both -expand yes
    

    #path preferences