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: |
c1e83138e0d3cbfb39eaa1d421e093cd |
| 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 |
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
| > > > > > | 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 |
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
|
| ︙ | ︙ | |||
949 950 951 952 953 954 955 956 957 958 959 960 961 962 |
set manitem {}
after 500
regproc::readLic $appname::name $appname::version
}
#handle program shutdown via command-q
proc ::tk::mac::Quit {} {
exit
}
| > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 |
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
}
|
| ︙ | ︙ |