Manpower

Check-in [adef03287d]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:7.1
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: adef03287daaaab3d36af91a951d553902da0fb7
User & Date: kevin 2019-11-07 14:04:10
Context
2019-12-01
02:29
Minor tweaks check-in: 32f17a64ae user: kevin tags: trunk
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
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Manpower User Help.docx.

cannot compute difference between binary files

Changes to libs/manpower/manpower-main.tcl.

727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743

    if { $PDFfile == ""} {
	return; # they clicked cancel
    } else {	
	
	set rawman [exec man $manitem > $cachedir/$manitem-man.txt  2>$cachedir/manerror]
	set getman [exec $rmanpath -f ASCII $cachedir/$manitem-man.txt  > $cachedir/$manitem.txt 2>$cachedir/manerror]    

	exec /usr/bin/textutil -convert html  $cachedir/$manitem.txt -output  $cachedir/manprint.html 2>$cachedir/printerr
	catch {exec /usr/sbin/cupsfilter -i "text/html" $cachedir/manprint.html > $cachedir/manprint.pdf 2>$cachedir/pdferr}

	after 50   
	file copy -force $cachedir/manprint.pdf  $PDFfile

    }

}







<
<
|







727
728
729
730
731
732
733


734
735
736
737
738
739
740
741

    if { $PDFfile == ""} {
	return; # they clicked cancel
    } else {	
	
	set rawman [exec man $manitem > $cachedir/$manitem-man.txt  2>$cachedir/manerror]
	set getman [exec $rmanpath -f ASCII $cachedir/$manitem-man.txt  > $cachedir/$manitem.txt 2>$cachedir/manerror]    


	catch {exec /usr/sbin/cupsfilter -i "text/plain" $cachedir/$manitem-man.txt  > $cachedir/manprint.pdf 2>$cachedir/pdferr}

	after 50   
	file copy -force $cachedir/manprint.pdf  $PDFfile

    }

}
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813

    if {$manitem == ""} {
	return
    }

    set rawman [exec man $manitem > $cachedir/$manitem-man.txt  2>$cachedir/manerror]
    set getman [exec $rmanpath -f ASCII $cachedir/$manitem-man.txt  > $cachedir/$manitem.txt 2>$cachedir/manerror]    

    exec /usr/bin/textutil -convert html  $cachedir/$manitem.txt -output  $cachedir/manprint.html  2>$cachedir/converterror
    catch {exec /usr/sbin/cupsfilter -i "text/html" $cachedir/manprint.html > $cachedir/manprint.pdf  2>$cachedir/printerror}

    after 50
    cocoaprint::print $cachedir/manprint.pdf .

}

#add bookmarks







<
<
|







795
796
797
798
799
800
801


802
803
804
805
806
807
808
809

    if {$manitem == ""} {
	return
    }

    set rawman [exec man $manitem > $cachedir/$manitem-man.txt  2>$cachedir/manerror]
    set getman [exec $rmanpath -f ASCII $cachedir/$manitem-man.txt  > $cachedir/$manitem.txt 2>$cachedir/manerror]    


	catch {exec /usr/sbin/cupsfilter -i "text/plain" $cachedir/$manitem-man.txt  > $cachedir/manprint.pdf 2>$cachedir/pdferr}

    after 50
    cocoaprint::print $cachedir/manprint.pdf .

}

#add bookmarks
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"]







|







903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
    global appversion
    global datadir
    global rmanpath
    global cachedir
    global searchterm
    global mynode
    
    appname::setAppName Manpower 7.1 


    set rmanpath [file join [file dirname [info script]] rman]

    
    #check for app support directory
    set appdir [file join $::env(HOME) "Library" "Application Support" "Manpower"]
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
    singleManPage
}


#custom "about" dialog
proc aboutWindow {} {

    tk_messageBox -parent . -icon info -title "About Manpower" -message "Manpower: Man Page Viewer" -detail "Version 7.0\n(c) 2019 WordTech Communications LLC"

}

#raise window if closed--dock click
proc ::tk::mac::ReopenApplication {} {

    if { [wm state .] == "withdrawn"} {







|







991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
    singleManPage
}


#custom "about" dialog
proc aboutWindow {} {

    tk_messageBox -parent . -icon info -title "About Manpower" -message "Manpower: Man Page Viewer" -detail "Version 7.1\n(c) 2019 WordTech Communications LLC"

}

#raise window if closed--dock click
proc ::tk::mac::ReopenApplication {} {

    if { [wm state .] == "withdrawn"} {

Changes to libs/manpower/manpower.tcl.

1
2
3
package provide manpower 7.0

source [file join [file dirname [info script]] manpower-main.tcl]
|


1
2
3
package provide manpower 7.1

source [file join [file dirname [info script]] manpower-main.tcl]

Changes to libs/manpower/pkgIndex.tcl.

1
2
3

  package ifneeded manpower 7.0 [list source [file join $dir manpower.tcl]]


|

1
2
3

  package ifneeded manpower 7.1 [list source [file join $dir manpower.tcl]]