diff options
| author | Omar Rizwan <omar@omar.website> | 2023-01-17 22:22:52 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-01-17 22:22:52 +0000 |
| commit | 94dfc98fd9dea079f9d516c2e4ed7343a4c6cbd4 (patch) | |
| tree | 1eb7f4b125000823a6ae4c6fc0515d4527cd3590 /virtual-programs | |
| parent | Start reintroducing graphviz support (diff) | |
| download | folk-94dfc98fd9dea079f9d516c2e4ed7343a4c6cbd4.tar.gz folk-94dfc98fd9dea079f9d516c2e4ed7343a4c6cbd4.zip | |
Minor changes for Hex table -- wifi, music note, print colors
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"] |