From a0dfd7ca85a30781b27bb046d7bb128b44e32f9f Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Wed, 20 Jul 2022 17:35:34 -0400
Subject: more iterations of print fixing

---
 laptop.tcl                  | 3 ++-
 virtual-programs/print.folk | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/laptop.tcl b/laptop.tcl
index a951f184..920ee3b5 100644
--- a/laptop.tcl
+++ b/laptop.tcl
@@ -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
+}
-- 
cgit v1.2.3