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: |
f0dc80a259d2348059f6322de5674b88 |
| 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 |
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
| | | 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 |
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
|
| ︙ | ︙ | |||
1733 1734 1735 1736 1737 1738 1739 |
global portauthority_growl
global notify_image
global playsound
global showstatus
#create gui
toplevel .preferences
| | | 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 |
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
|
| ︙ | ︙ |