mirror of
https://salsa.debian.org/dskoll/remind.git
synced 2026-04-16 06:18:47 +02:00
Added Print... button, print dialog and file browser to tkremind.
This commit is contained in:
dfs
338
tkremind
338
tkremind
@@ -11,7 +11,7 @@
|
||||
#
|
||||
#--------------------------------------------------------------
|
||||
|
||||
# $Id: tkremind,v 1.6 1996-05-25 19:36:50 dfs Exp $
|
||||
# $Id: tkremind,v 1.7 1996-07-07 16:24:29 dfs Exp $
|
||||
|
||||
# the next line restarts using wish \
|
||||
exec wish "$0" "$@"
|
||||
@@ -26,6 +26,9 @@ set ConfirmQuit 0
|
||||
# Remind program to execute -- supply full path if you want
|
||||
set Remind "remind"
|
||||
|
||||
# Rem2PS program to execute -- supply full path if you want
|
||||
set Rem2PS "rem2ps"
|
||||
|
||||
# Reminder file to source -- default
|
||||
set ReminderFile {NOSUCHFILE}
|
||||
catch {set ReminderFile "$env(HOME)/.reminders"}
|
||||
@@ -60,20 +63,28 @@ set SkipType 1
|
||||
|
||||
# Remind command line
|
||||
set CommandLine {}
|
||||
set PSCmd {}
|
||||
|
||||
# Print options -- destination file; letter-size; landscape; fill page
|
||||
set PrintDest file
|
||||
set PrintSize letter
|
||||
set PrintOrient landscape
|
||||
set PrintFill 1
|
||||
|
||||
#---------------------------------------------------------------------------
|
||||
# Initialize -- initialize things
|
||||
#---------------------------------------------------------------------------
|
||||
proc Initialize {} {
|
||||
|
||||
global DayNames argc argv CommandLine ReminderFile AppendFile Remind
|
||||
global DayNames argc argv CommandLine ReminderFile AppendFile Remind PSCmd
|
||||
|
||||
set CommandLine "|$Remind -itkremind=1 -p"
|
||||
|
||||
set PSCmd "$Remind -p"
|
||||
set i 0
|
||||
while {$i < $argc} {
|
||||
if {[regexp -- {-[bgxim].*} [lindex $argv $i]]} {
|
||||
append CommandLine " [lindex $argv $i]"
|
||||
append PSCmd " [lindex $argv $i]"
|
||||
} else {
|
||||
break
|
||||
}
|
||||
@@ -91,16 +102,17 @@ proc Initialize {} {
|
||||
|
||||
# Check system sanity
|
||||
if {! [file readable $ReminderFile]} {
|
||||
tk_dialog .error Error "Can't read reminder file `$ReminderFile'" error -1 Ok
|
||||
tk_dialog .error Error "Can't read reminder file `$ReminderFile'" error 0 Ok
|
||||
exit 1
|
||||
}
|
||||
|
||||
if {! [file writable $AppendFile]} {
|
||||
tk_dialog .error Error "Can't write reminder file `$AppendFile'" error -1 Ok
|
||||
tk_dialog .error Error "Can't write reminder file `$AppendFile'" error 0 Ok
|
||||
exit 1
|
||||
}
|
||||
|
||||
append CommandLine " $ReminderFile"
|
||||
append PSCmd " $ReminderFile"
|
||||
set DayNames [GetWeekdayNames]
|
||||
# puts "CommandLine: $CommandLine"
|
||||
}
|
||||
@@ -222,9 +234,10 @@ proc CreateCalWindow { firstDay mondayFirst daysInMonth month year dayNames } {
|
||||
button .b.this -text {Today} -command {ThisMonth}
|
||||
button .b.next -text {Next Month} -command {MoveMonth 1}
|
||||
button .b.goto -text {Go To Date...} -command {GotoDialog}
|
||||
button .b.print -text {Print...} -command {DoPrint}
|
||||
button .b.quit -text {Quit} -command {Quit}
|
||||
label .b.status -text "" -width 10 -relief sunken
|
||||
pack .b.prev .b.this .b.next .b.goto .b.quit -side left -fill x
|
||||
pack .b.prev .b.this .b.next .b.goto .b.print .b.quit -side left -fill x
|
||||
pack .b.status -side left -fill x -expand 1
|
||||
pack .h -side top -expand 1 -fill both
|
||||
pack .b -side top -fill x -expand 0
|
||||
@@ -326,6 +339,129 @@ proc Status { stuff } {
|
||||
update idletasks
|
||||
}
|
||||
|
||||
#---------------------------------------------------------------------------
|
||||
# DoPrint -- print a calendar
|
||||
# Arguments:
|
||||
# None
|
||||
#---------------------------------------------------------------------------
|
||||
proc DoPrint {} {
|
||||
global PrintDest PrintSize PrintOrient PrintFill PrintStatus Rem2PS PSCmd
|
||||
global CurMonth CurYear MonthNames
|
||||
catch {destroy .p}
|
||||
toplevel .p
|
||||
wm title .p "Print..."
|
||||
wm iconname .p "Print..."
|
||||
frame .p.f1 -relief sunken -border 2
|
||||
frame .p.f11
|
||||
frame .p.f12
|
||||
frame .p.f2 -relief sunken -border 2
|
||||
frame .p.f3 -relief sunken -border 2
|
||||
frame .p.f4
|
||||
|
||||
radiobutton .p.tofile -text "To file: " -variable PrintDest -value file
|
||||
entry .p.filename
|
||||
button .p.browse -text "Browse..." -command PrintFileBrowse
|
||||
radiobutton .p.tocmd -text "To command: " -variable PrintDest -value command
|
||||
entry .p.command
|
||||
.p.command insert end "lpr"
|
||||
|
||||
label .p.size -text "Paper Size:"
|
||||
radiobutton .p.letter -text "Letter" -variable PrintSize -value letter
|
||||
radiobutton .p.a4 -text "A4" -variable PrintSize -value a4
|
||||
|
||||
label .p.orient -text "Orientation:"
|
||||
radiobutton .p.landscape -text "Landscape" -variable PrintOrient -value landscape
|
||||
radiobutton .p.portrait -text "Portrait" -variable PrintOrient -value portrait
|
||||
|
||||
checkbutton .p.fill -text "Fill page" -variable PrintFill
|
||||
|
||||
button .p.print -text "Print" -command {set PrintStatus print}
|
||||
button .p.cancel -text "Cancel" -command {set PrintStatus cancel}
|
||||
|
||||
pack .p.f1 .p.f2 .p.f3 -side top -fill both -expand 1 -anchor w
|
||||
pack .p.fill -side top -anchor w -fill none -expand 0
|
||||
pack .p.f4 -side top -fill both -expand 1 -anchor w
|
||||
pack .p.f11 .p.f12 -in .p.f1 -side top -fill none -expand 0 -anchor w
|
||||
pack .p.tofile .p.filename .p.browse -in .p.f11 -side left -fill none -expand 0 -anchor w
|
||||
pack .p.tocmd .p.command -in .p.f12 -side left -fill none -expand 0 -anchor w
|
||||
pack .p.size .p.letter .p.a4 -in .p.f2 -side top -fill none -expand 0 -anchor w
|
||||
pack .p.orient .p.landscape .p.portrait -in .p.f3 -side top -fill none -expand 0 -anchor w
|
||||
pack .p.print .p.cancel -in .p.f4 -side left -fill none -expand 0
|
||||
|
||||
bind .p <KeyPress-Escape> ".p.cancel flash; .p.cancel invoke"
|
||||
bind .p <KeyPress-Return> ".p.print flash; .p.print invoke"
|
||||
set PrintStatus 2
|
||||
CenterWindow .p
|
||||
tkwait visibility .p
|
||||
focus .p.filename
|
||||
set oldFocus [focus]
|
||||
grab .p
|
||||
tkwait variable PrintStatus
|
||||
catch {focus $oldFocus}
|
||||
set fname [.p.filename get]
|
||||
set cmd [.p.command get]
|
||||
destroy .p
|
||||
if {$PrintStatus == "cancel"} {
|
||||
return
|
||||
}
|
||||
if {$PrintDest == "file"} {
|
||||
if {$fname == ""} {
|
||||
tk_dialog .error Error "No filename specified" error 0 Ok
|
||||
return
|
||||
}
|
||||
if {[file isdirectory $fname]} {
|
||||
tk_dialog .error Error "$fname is a directory" error 0 Ok
|
||||
return
|
||||
}
|
||||
if {[file readable $fname]} {
|
||||
set ans [tk_dialog .error Overwrite? "Overwrite $fname?" question 0 No Yes]
|
||||
if {$ans == 0} {
|
||||
return
|
||||
}
|
||||
}
|
||||
set fname "> $fname"
|
||||
} else {
|
||||
set fname "| $cmd"
|
||||
}
|
||||
|
||||
# Build the command line
|
||||
set cmd "$PSCmd 1 [lindex $MonthNames $CurMonth] $CurYear | $Rem2PS -c3"
|
||||
if {$PrintSize == "letter"} {
|
||||
append cmd " -m Letter"
|
||||
} else {
|
||||
append cmd " -m A4"
|
||||
}
|
||||
|
||||
if {$PrintOrient == "landscape"} {
|
||||
append cmd " -l"
|
||||
}
|
||||
|
||||
if {$PrintFill} {
|
||||
append cmd " -e"
|
||||
}
|
||||
|
||||
append cmd " $fname"
|
||||
Status "Printing..."
|
||||
if {[catch {eval "exec $cmd"} err]} {
|
||||
tk_dialog .error Error "Error during printing: $err" error 0 Ok
|
||||
}
|
||||
Status "Ready."
|
||||
}
|
||||
|
||||
#---------------------------------------------------------------------------
|
||||
# PrintFileBrowse -- browse for a filename for Print dialog
|
||||
# Arguments: none
|
||||
#---------------------------------------------------------------------------
|
||||
proc PrintFileBrowse {} {
|
||||
set ans [BrowseForFile .filebrowse "Print to file..." "Ok" 0 "*.ps"]
|
||||
if {$ans != ""} {
|
||||
.p.filename delete 0 end
|
||||
.p.filename insert end $ans
|
||||
.p.filename icursor end
|
||||
.p.filename xview end
|
||||
}
|
||||
}
|
||||
|
||||
#---------------------------------------------------------------------------
|
||||
# GotoDialog -- Do the "Goto..." dialog
|
||||
#---------------------------------------------------------------------------
|
||||
@@ -358,6 +494,7 @@ proc GotoDialog {} {
|
||||
pack .g.y.e -side left -fill x -expand 1
|
||||
pack .g.y -expand 1 -fill x
|
||||
pack .g.b -expand 1 -fill x
|
||||
bind .g <KeyPress-Escape> ".g.b.cancel flash; .g.b.cancel invoke"
|
||||
CenterWindow .g
|
||||
set oldFocus [focus]
|
||||
grab .g
|
||||
@@ -373,11 +510,11 @@ proc DoGoto {} {
|
||||
global CurYear CurMonth MonthNames
|
||||
set year [.g.y.e get]
|
||||
if { ! [regexp {^[0-9]+$} $year] } {
|
||||
tk_dialog .error Error {Illegal year specified (1990-2078)} error -1 Ok
|
||||
tk_dialog .error Error {Illegal year specified (1990-2078)} error 0 Ok
|
||||
return
|
||||
}
|
||||
if { $year < 1990 || $year > 2078 } {
|
||||
tk_dialog .error Error {Illegal year specified (1990-2078)} error -1 Ok
|
||||
tk_dialog .error Error {Illegal year specified (1990-2078)} error 0 Ok
|
||||
return
|
||||
}
|
||||
set month [lsearch -exact $MonthNames [.g.mon cget -text]]
|
||||
@@ -586,6 +723,7 @@ proc CreateModifyDialog {w day firstDay} {
|
||||
button $w.cancel -text "Cancel" -background "#e0c9c9" -command "set ModifyDialogResult 3"
|
||||
pack $w.add $w.preview $w.cancel -side left -anchor w -in $w.buttons -expand 1 -fill x
|
||||
|
||||
bind $w <KeyPress-Escape> "$w.cancel flash; $w.cancel invoke"
|
||||
set ModifyDialogResult 0
|
||||
|
||||
# Center the window on the root
|
||||
@@ -694,7 +832,7 @@ proc ModifyDay {d firstDay} {
|
||||
}
|
||||
set problem [catch {set rem [CreateReminder .mod]} err]
|
||||
if {$problem} {
|
||||
tk_dialog .error Error "$err" error -1 Ok
|
||||
tk_dialog .error Error "$err" error 0 Ok
|
||||
} else {
|
||||
if {$ModifyDialogResult == 2} {
|
||||
set err [EditReminder $err]
|
||||
@@ -999,6 +1137,7 @@ proc EditReminder {rem} {
|
||||
pack .edit.t -side top -fill both -expand 1
|
||||
pack .edit.f -side top -fill x -expand 1
|
||||
pack .edit.ok .edit.cancel -in .edit.f -side left -fill x -expand 1
|
||||
bind .edit <KeyPress-Escape> ".edit.cancel flash; .edit.cancel invoke"
|
||||
set ModifyDialogResult 0
|
||||
CenterWindow .edit
|
||||
tkwait visibility .edit
|
||||
@@ -1012,6 +1151,187 @@ proc EditReminder {rem} {
|
||||
return $rem
|
||||
}
|
||||
|
||||
#---------------------------------------------------------------------------
|
||||
# SetWinAttr -- sets an attribute for a window
|
||||
# Arguments:
|
||||
# w -- window name
|
||||
# attr -- attribute name
|
||||
# val -- value to set it to
|
||||
# Returns:
|
||||
# $val
|
||||
#---------------------------------------------------------------------------
|
||||
proc SetWinAttr {w attr val} {
|
||||
global attrPriv
|
||||
set attrPriv($w-$attr) $val
|
||||
}
|
||||
|
||||
#---------------------------------------------------------------------------
|
||||
# GetWinAttr -- gets an attribute for a window
|
||||
# Arguments:
|
||||
# w -- window name
|
||||
# attr -- attribute name
|
||||
# Returns:
|
||||
# Value of attribute
|
||||
#---------------------------------------------------------------------------
|
||||
proc GetWinAttr {w attr} {
|
||||
global attrPriv
|
||||
return $attrPriv($w-$attr)
|
||||
}
|
||||
|
||||
#---------------------------------------------------------------------------
|
||||
# WaitWinAttr -- wait for a window attribute to change
|
||||
# Arguments:
|
||||
# w -- window name
|
||||
# attr -- attribute name
|
||||
# Returns:
|
||||
# Value of attribute
|
||||
#---------------------------------------------------------------------------
|
||||
proc WaitWinAttr {w attr} {
|
||||
global attrPriv
|
||||
tkwait variable attrPriv($w-$attr)
|
||||
return $attrPriv($w-$attr)
|
||||
}
|
||||
|
||||
#---------------------------------------------------------------------------
|
||||
# BrowseForFile -- creates and operates a file browser dialog.
|
||||
# Arguments:
|
||||
# w -- dialog window.
|
||||
# title -- dialog title
|
||||
# oktext -- text for "OK" button
|
||||
# showdots -- if non-zero, shows "dot" files as well.
|
||||
# Returns:
|
||||
# complete path of filename chosen, or "" if Cancel pressed.
|
||||
#---------------------------------------------------------------------------
|
||||
proc BrowseForFile {w title {oktext "OK"} {showdots 0} {filter "*"}} {
|
||||
catch {destroy $w}
|
||||
toplevel $w
|
||||
wm title $w $title
|
||||
|
||||
# Global array to hold window attributes
|
||||
global a${w}
|
||||
|
||||
SetWinAttr $w status busy
|
||||
SetWinAttr $w showdots $showdots
|
||||
|
||||
frame $w.fileframe
|
||||
frame $w.butframe
|
||||
label $w.cwd -text [pwd]
|
||||
entry $w.entry
|
||||
label $w.masklab -text "Match: "
|
||||
listbox $w.list -yscrollcommand "$w.scroll set"
|
||||
scrollbar $w.scroll -command "$w.list yview"
|
||||
button $w.ok -text $oktext -command "BrowseForFileOK $w"
|
||||
button $w.cancel -text "Cancel" -command "BrowseForFileCancel $w"
|
||||
entry $w.filter -width 7
|
||||
$w.filter insert end $filter
|
||||
|
||||
pack $w.cwd $w.entry -side top -expand 0 -fill x
|
||||
pack $w.fileframe -side top -expand 1 -fill both
|
||||
pack $w.butframe -side top -expand 0 -fill x
|
||||
pack $w.list -in $w.fileframe -side left -expand 1 -fill both
|
||||
pack $w.scroll -in $w.fileframe -side left -expand 0 -fill y
|
||||
pack $w.ok -in $w.butframe -side left -expand 1 -fill x
|
||||
pack $w.cancel -in $w.butframe -side left -expand 1 -fill x
|
||||
pack $w.masklab -in $w.butframe -side left -expand 0
|
||||
pack $w.filter -in $w.butframe -side left -expand 1 -fill x
|
||||
|
||||
# Fill in the box and wait for status to change
|
||||
BrowseForFileRead $w [pwd]
|
||||
|
||||
bind $w <KeyPress-Escape> "$w.cancel flash; $w.cancel invoke"
|
||||
bind $w.list <Button-1> "$w.entry delete 0 end; $w.entry insert 0 \[selection get\]"
|
||||
bind $w.list <Double-Button-1> "$w.ok flash; $w.ok invoke"
|
||||
bind $w.list <Return> "$w.entry delete 0 end; $w.entry insert 0 \[selection get\]; $w.ok flash; $w.ok invoke"
|
||||
bind $w.entry <Return> "$w.ok flash; $w.ok invoke"
|
||||
bind $w.filter <Return> "BrowseForFileRead $w"
|
||||
|
||||
bindtags $w.list "Listbox $w.list $w all"
|
||||
CenterWindow $w
|
||||
set oldFocus [focus]
|
||||
tkwait visibility $w
|
||||
focus $w.entry
|
||||
set oldGrab [grab current $w]
|
||||
grab set $w
|
||||
WaitWinAttr $w status
|
||||
catch {focus $oldFocus}
|
||||
catch {grab set $oldGrab}
|
||||
set ans [GetWinAttr $w status]
|
||||
destroy $w
|
||||
return $ans
|
||||
}
|
||||
|
||||
proc BrowseForFileCancel {w} {
|
||||
SetWinAttr $w status {}
|
||||
}
|
||||
|
||||
proc BrowseForFileOK {w} {
|
||||
set fname [$w.entry get]
|
||||
if {$fname != ""} {
|
||||
if {[string match */ $fname]} {
|
||||
set fname [string trimright $fname /]
|
||||
}
|
||||
if {[$w.cwd cget -text] == "/"} {
|
||||
set fname "/$fname"
|
||||
} else {
|
||||
set fname "[$w.cwd cget -text]/$fname"
|
||||
}
|
||||
# If it's a directory, change directories
|
||||
if {[file isdirectory $fname]} {
|
||||
BrowseForFileRead $w $fname
|
||||
} else {
|
||||
SetWinAttr $w status $fname
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
#---------------------------------------------------------------------------
|
||||
# BrowseForFileRead -- read the current directory into the file browser
|
||||
# Arguments:
|
||||
# w -- window name
|
||||
# dir -- directory
|
||||
# Returns:
|
||||
# nothing
|
||||
#---------------------------------------------------------------------------
|
||||
proc BrowseForFileRead {w {dir ""}} {
|
||||
# Save working dir
|
||||
set cwd [pwd]
|
||||
if {$dir == ""} {
|
||||
set dir [$w.cwd cget -text]
|
||||
}
|
||||
if {[catch "cd $dir" err]} {
|
||||
tk_dialog .error Error "$err" error 0 Ok
|
||||
return
|
||||
}
|
||||
$w.cwd configure -text [pwd]
|
||||
if {[GetWinAttr $w showdots]} {
|
||||
set flist [glob -nocomplain .* *]
|
||||
} else {
|
||||
set flist [glob -nocomplain *]
|
||||
}
|
||||
set flist [lsort $flist]
|
||||
set filter [$w.filter get]
|
||||
if {$filter == ""} {
|
||||
set filter "*"
|
||||
}
|
||||
$w.list delete 0 end
|
||||
foreach item $flist {
|
||||
if {$item != "." && $item != ".."} {
|
||||
if {[file isdirectory $item]} {
|
||||
$w.list insert end "$item/"
|
||||
} else {
|
||||
if {[string match $filter $item]} {
|
||||
$w.list insert end $item
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
if {[pwd] != "/"} {
|
||||
$w.list insert 0 "../"
|
||||
}
|
||||
cd $cwd
|
||||
$w.entry delete 0 end
|
||||
}
|
||||
|
||||
proc main {} {
|
||||
wm withdraw .
|
||||
puts "\nTkRemind Copyright (c) 1996 by David F. Skoll\n"
|
||||
|
||||
Reference in New Issue
Block a user