Manpower

Check-in [adef03287d]
Login

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

Overview
Comment:7.1
Timelines: family | ancestors | trunk
Files: files | file ages | folders
SHA1:adef03287daaaab3d36af91a951d553902da0fb7
User & Date: kevin 2019-11-07 14:04:10
Context
2019-11-07
14:04
7.1 Leaf 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
...
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
...
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
...
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009

    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

    }

}
................................................................................

    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
................................................................................
    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"]
................................................................................
    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"} {







<
<
|







 







|
<
<







 







|







 







|







727
728
729
730
731
732
733


734
735
736
737
738
739
740
741
...
795
796
797
798
799
800
801
802


803
804
805
806
807
808
809
...
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
...
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005

    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

    }

}
................................................................................

    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
................................................................................
    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"]
................................................................................
    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]]