Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | More fixes |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | c1e83138e0d3cbfb39eaa1d421e093cdf16d2396 |
| User & Date: | kevin 2019-08-24 15:41:21 |
Context
|
2019-08-25
| ||
| 02:26 | Fix URL processing check-in: 1dd379503a user: kevin tags: trunk | |
|
2019-08-24
| ||
| 15:41 | More fixes check-in: c1e83138e0 user: kevin tags: trunk | |
| 15:01 | Fix disappearing text in clickLink proc check-in: 9207cda0d8 user: kevin tags: trunk | |
Changes
Changes to libs/manpower/manpower-main.tcl.
395
396
397
398
399
400
401
402
403
404
405
406
407
408
...
949
950
951
952
953
954
955
956
957
958
959
960
961
962
|
bind . <Command-W> {wm state . withdrawn}
bind . <Command-w> {wm state . withdrawn}
wm protocol . WM_DELETE_WINDOW {wm withdraw .}
.middle.left.tree selection set All
}
## Code to do the sorting of the tree contents when clicked on
proc SortBy {tree col direction} {
set tree .middle.right.upper.frame.listbox
................................................................................
set manitem {}
after 500
regproc::readLic $appname::name $appname::version
}
#handle program shutdown via command-q
proc ::tk::mac::Quit {} {
exit
}
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
...
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
|
bind . <Command-W> {wm state . withdrawn}
bind . <Command-w> {wm state . withdrawn}
wm protocol . WM_DELETE_WINDOW {wm withdraw .}
.middle.left.tree selection set All
bind all <<LightAqua>> {changeImagesLight}
bind all <<DarkAqua>> {changeImagesDark}
checkDarkMode
}
## Code to do the sorting of the tree contents when clicked on
proc SortBy {tree col direction} {
set tree .middle.right.upper.frame.listbox
................................................................................
set manitem {}
after 500
regproc::readLic $appname::name $appname::version
}
proc changeImagesDark {} {
foreach item [image names] {
if {[image type $item] eq "bitmap"} {
$item configure -foreground white
}
}
}
proc changeImagesLight {} {
foreach item [image names] {
if {[image type $item] eq "bitmap"} {
$item configure -foreground black
}
}
}
proc checkDarkMode {} {
set mode [catch {exec defaults read -g AppleInterfaceStyle} msg]
if {$msg eq "Dark"} {
event generate . <<DarkAqua>>
} else {
event generate . <<LightAqua>>
}
}
#handle program shutdown via command-q
proc ::tk::mac::Quit {} {
exit
}
|