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: |
6418da5aa93f8b9704f250e99a99089a |
User & Date: | kevin 2019-10-17 01:14:55 |
Context
2019-11-07
| ||
14:04 | 7.1 check-in: adef03287d user: kevin tags: trunk | |
2019-10-17
| ||
01:14 | Fixes for Catalina check-in: 6418da5aa9 user: kevin tags: trunk | |
2019-10-16
| ||
06:15 | Fix breaking dylibs check-in: 418c1f4264 user: kevin tags: trunk | |
Changes
Changes to Scripts/AppMain.tcl.
1 | package require manpower | > > > > > > > | 1 2 3 4 5 6 7 8 | #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 manpower |
Deleted libs/launcher1.1/liblauncher1.1.dylib.
cannot compute difference between binary files
Deleted libs/launcher1.1/pkgIndex.tcl.
|
| < < < < < < < |
Changes to libs/machelp/help.tcl.
︙ | ︙ | |||
270 271 272 273 274 275 276 | # # ::Help::Click -- Handles clicking a link on the help page # proc ::Help::Click {w x y} { set range [$w tag prevrange link "[$w index @$x,$y] + 1 char"] if {[tk windowingsystem] eq "aqua"} { | < | | | 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 | # # ::Help::Click -- Handles clicking a link on the help page # proc ::Help::Click {w x y} { set range [$w tag prevrange link "[$w index @$x,$y] + 1 char"] if {[tk windowingsystem] eq "aqua"} { if {[llength $range] && [regexp "http*" [eval $w get $range]]} { exec open [eval $w get $range] return } if {[llength $range] && [regexp "@" [eval $w get $range]]} { set mail [eval $w get $range] exec open "mailto:$mail" return } } if {[llength $range]} {::Help::Show [eval $w get $range]} } |
︙ | ︙ |
Changes to libs/machelp/machelp.tcl.
1 2 | package provide machelp 1.0 | < < | 1 2 3 4 5 6 7 8 9 | package provide machelp 1.0 namespace eval machelp { if {![info exists library]} { variable library [file dirname [info script]] } |
︙ | ︙ | |||
35 36 37 38 39 40 41 | #e-mail developer for assistance proc usermail {} { variable appname variable appversion | | | | 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | #e-mail developer for assistance proc usermail {} { variable appname variable appversion exec open mailto:kw@codebykevin.com?subject=$appname } #e-mail developer for assistance proc appweb {} { variable appname variable appversion exec open http://www.codebykevin.com/$appname.html } namespace export * } |
Changes to libs/manpower/manpower-main.tcl.
︙ | ︙ | |||
349 350 351 352 353 354 355 | .middle.right add .middle.right.upper .middle.right add .middle.right.lower .middle add .middle.left .middle add .middle.right toplevel .bookmarks | | | 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 | .middle.right add .middle.right.upper .middle.right add .middle.right.lower .middle add .middle.left .middle add .middle.right toplevel .bookmarks tk::unsupported::MacWindowStyle style .bookmarks floating wm title .bookmarks "Bookmarks" #draw drawer window offscreen ttk::label .bookmarks.header -text "Bookmarks" pack .bookmarks.header -side top -fill both -expand yes ttk::frame .bookmarks.top |
︙ | ︙ | |||
907 908 909 910 911 912 913 | global appversion global datadir global rmanpath global cachedir global searchterm global mynode | | | 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 | global appversion global datadir global rmanpath global cachedir global searchterm global mynode appname::setAppName Manpower 7.0 set rmanpath [file join [file dirname [info script]] rman] #check for app support directory set appdir [file join $::env(HOME) "Library" "Application Support" "Manpower"] |
︙ | ︙ |