pkg://ical-2.2-26.src.rpm:271471/ical-2.2-print.patch  info  downloads

*** ical_text.tcl	Sat Aug  5 02:52:47 2000
--- ical_text.tcl	Mon Oct 23 11:37:44 2000
***************
*** 47,53 ****
  
      if $print {
  	# Generate postscript
! 	puts stdout [pr_output $ical(startdate) $showcount]
      } else {
  	# Generate listing
  	set lastdate ""
--- 47,55 ----
  
      if $print {
  	# Generate postscript
! 	set papersize SetUSLetter
! 	catch {set papersize [cal option PrintPaperSize]}
! 	puts stdout [pr_output $ical(startdate) $showcount $papersize]
      } else {
  	# Generate listing
  	set lastdate ""