Quality of life changes, "exception" handling

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>))
+  ;; Program view? (no disassembler atm...)
-  (append box (make <gtk-button>))
+  (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))