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