Manpower

Check-in [c1e83138e0]
Login

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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
}