Set default screen for WLM

philburk · Oct 19, 2024 · 25fcdcd · 25fcdcd
1 parent 7681010
commit 25fcdcd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/hmsl/users/larry/wlm/wlm_screen.fth b/hmsl/users/larry/wlm/wlm_screen.fth
@@ -1890,6 +1890,7 @@ ANEW TASK-WLM_SCREEN
 ;
 
 : TERM.WLM-SCREEN
+    se-screen default-screen !
     freeall: wlm-screen
     free: wlm-screen
 ;

diff --git a/hmsl/users/larry/wlm/wlm_user_init.fth b/hmsl/users/larry/wlm/wlm_user_init.fth
@@ -91,6 +91,8 @@ anew task-wlm_user_init
     THEN
 ;
 
+." Enter DO.WLM to start the piece. Then click PLAY" cr
+
 \ this is for the turnkeyed version: don't use in the compiled version
 wlm-turnkey @
 .if
-Original file line number
+Diff line change
@@ Expand Up / @@ -91,6 +91,8 @@ anew task-wlm_user_init @@
         THEN
     ;
+    ." Enter DO.WLM to start the piece. Then click PLAY" cr
     \ this is for the turnkeyed version: don't use in the compiled version
     wlm-turnkey @
     .if
@@ Expand Down @@