diff options
| author | Omar Rizwan <omar@omar.website> | 2022-07-20 21:35:34 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2022-07-20 21:35:34 +0000 |
| commit | a0dfd7ca85a30781b27bb046d7bb128b44e32f9f (patch) | |
| tree | ad9b2ca0c16422004a475f26db4fcd41e4d65979 | |
| parent | move programs/ -> virtual-programs/ in prep for printable programs (diff) | |
| download | folk-a0dfd7ca85a30781b27bb046d7bb128b44e32f9f.tar.gz folk-a0dfd7ca85a30781b27bb046d7bb128b44e32f9f.zip | |
more iterations of print fixing
| -rw-r--r-- | laptop.tcl | 3 | ||||
| -rw-r--r-- | virtual-programs/print.folk | 4 |
2 files changed, 4 insertions, 3 deletions
@@ -104,8 +104,9 @@ proc newProgram "{programCode {$defaultCode}} {programFilename 0}" { set jobid [exec uuidgen] Assert "laptop.tcl" wishes to print $code with job id $jobid after 500 [list Retract "laptop.tcl" wishes to print $code with job id $jobid] + StepFromGUI } - bind .$program <Control-Key-p> [list handlePrint $program] + bind .$program <Command-Key-p> [list handlePrint $program] proc handleConfigure {program x y w h} { Retract "laptop.tcl" claims $program is a rectangle with x /something/ y /something/ width /something/ height /something/ Assert "laptop.tcl" claims $program is a rectangle with x $x y $y width $w height $h diff --git a/virtual-programs/print.folk b/virtual-programs/print.folk index 24e5e8e2..c4a9d6c3 100644 --- a/virtual-programs/print.folk +++ b/virtual-programs/print.folk @@ -1,3 +1,3 @@ When /someone/ wishes to print /code/ with job id /jobid/ { - -}
\ No newline at end of file + puts $jobid +} |