diff options
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/music.folk | 5 | ||||
| -rw-r--r-- | virtual-programs/print.folk | 4 |
2 files changed, 4 insertions, 5 deletions
diff --git a/virtual-programs/music.folk b/virtual-programs/music.folk index 664caffd..b7472ba6 100644 --- a/virtual-programs/music.folk +++ b/virtual-programs/music.folk @@ -118,14 +118,13 @@ proc ::Music::finishSetup {} { } proc ::Music::waitForDbus {} { - puts "waiting now" + puts "Waiting for D-Bus." if {[file exists /run/user/1000/bus]} { - puts "done waiting" + puts "Found D-Bus." ::Music::finishSetup } else { after 100 ::Music::waitForDbus } } -puts "about to wait" ::Music::waitForDbus diff --git a/virtual-programs/print.folk b/virtual-programs/print.folk index dedb8458..f1ac7a09 100644 --- a/virtual-programs/print.folk +++ b/virtual-programs/print.folk @@ -119,7 +119,7 @@ proc ::programToPs {id text {format "letter"} {side "front"}} { %!PS << /PageSize \[$PageWidth $PageHeight\] >> setpagedevice - [expr { $side eq "back" ? { 0.4 setgray } : {} }] + /settextcolor {[expr { $side eq "back" ? { 0.4 setgray } : { 0 setgray } }]} def /Courier findfont $fontsize scalefont @@ -131,7 +131,7 @@ proc ::programToPs {id text {format "letter"} {side "front"}} { incr lineidx subst { $margin [expr $PageHeight-$margin-$lineidx*$lineheight] moveto - 0.5 setgray ([format "%- 3s" $linenum]) show 0 setgray ($line) show + 0.4 setgray ([format "%- 3s" $linenum]) show settextcolor ($line) show } }] "\n"] |