From 11eae0699572759390940bd85cd4c5108f8b2814 Mon Sep 17 00:00:00 2001
From: Dane Johnson <daneallenjohnson@protonmail.com>
Date: Mon, 27 Jan 2025 13:27:36 -0600
Subject: [PATCH] Quality of life changes, "exception" handling

---
 scmvm.scm | 26 +++++++++++++++++++++-----
 1 file changed, 21 insertions(+), 5 deletions(-)

diff --git a/scmvm.scm b/scmvm.scm
index d88bc15..d8902cd 100755
--- a/scmvm.scm
+++ b/scmvm.scm
@@ -28,7 +28,8 @@ exec guile -L . -e main -s "$0" "$@"
               "EventControllerKey"
               "FileDialog"
               "Frame"
-              "Label")))
+              "Label"
+              "TextView")))
 
 (define *css* "
 .mono {
@@ -86,7 +87,11 @@ exec guile -L . -e main -s "$0" "$@"
 (define (open-file win cb)
   (define dialog (make <gtk-file-dialog>))
   (define (cb-with-port dialog result data)
-    (call-with-input-file (get-path (open-finish dialog result)) cb))
+    (catch #t
+      (lambda ()
+        (let ([path (open-finish dialog result)])
+          (displayln path)))
+      noop))
   (open dialog win #f cb-with-port #f))
 
 (define (install-action action-group name callback)
@@ -139,9 +144,20 @@ exec guile -L . -e main -s "$0" "$@"
   (append box frame)
   (grab-focus frame)
   (update-memory-view!)
-  
-  (append box (make <gtk-button>))
-  (append box (make <gtk-button>))
+
+  ;; Program view? (no disassembler atm...)
+  (define program-view (make <gtk-text-view>
+                         #:vexpand #t
+                         #:editable #f))
+  (append box program-view)
+
+  (define button-box (make <gtk-box>
+                       #:orientation 'horizontal))
+  (append button-box (make <gtk-button>
+                       #:label "Step"))
+  (append button-box (make <gtk-button>
+                       #:label "Finish"))
+  (append box button-box)
   
   ;; Present window
   (present win))