dunlin

commit 5760268c0dd5dc1a8002614e27ba7b7d7a5e78d4
parent 38c71c347ec3566a32e5a08f1063642fafbbcfc1
Author: Daniel Barlow <dan@telent.net>
Date:   Mon, 19 Dec 2022 18:48:51 +0000

rename pane to frame

Diffstat:
M
dunlin.fnl
 | 
4
++--
A
frame.fnl
 | 
37
+++++++++++++++++++++++++++++++++++++
D
pane.fnl
 | 
37
-------------------------------------

3 files changed, 39 insertions(+), 39 deletions(-)
diff --git a/dunlin.fnl b/dunlin.fnl
@@ -6,10 +6,10 @@
 
 (set _G.invoke-commad invoke-command)
 
-(local pane (require :pane))
+(local frame (require :frame))
 
 
 
 
-(pane.new)
+(frame.new)
 (Gtk.main)
diff --git a/frame.fnl b/frame.fnl
@@ -0,0 +1,37 @@
+(local { : Gtk : Gdk : WebKit2 : cairo } (require :lgi))
+
+(fn new-frame []
+  (let [hpad 2
+        vpad 2
+        window (Gtk.Window {
+                            :title "Dunlin"
+                            :default_width 800
+                            :default_height 720
+                            :on_destroy Gtk.main_quit
+                            })
+        container (Gtk.Box {
+                            :orientation Gtk.Orientation.VERTICAL
+                            })
+        commander (Gtk.Entry {
+                              :on_activate
+                              (fn [event]
+                                (_G.invoke-command event.text))
+                              })
+        progress-bar (Gtk.ProgressBar {
+                                       :orientation Gtk.Orientation.HORIZONTAL
+                                       :fraction 1.0
+                                       :margin 0
+                                       })
+        contentwidget (Gtk.Button {
+                                   :label "paceholder"
+                                   })
+        ]
+    (doto container
+      (: :pack_start commander false false vpad)
+      (: :pack_start progress-bar false false vpad)
+      (: :pack_start contentwidget true true vpad))
+    (window:add container)
+    (window:show_all)
+    window))
+
+{ :new new-frame }
diff --git a/pane.fnl b/pane.fnl
@@ -1,37 +0,0 @@
-(local { : Gtk : Gdk : WebKit2 : cairo } (require :lgi))
-
-(fn new-pane []
-  (let [hpad 2
-        vpad 2
-        window (Gtk.Window {
-                            :title "Dunlin"
-                            :default_width 800
-                            :default_height 720
-                            :on_destroy Gtk.main_quit
-                            })
-        container (Gtk.Box {
-                            :orientation Gtk.Orientation.VERTICAL
-                            })
-        commander (Gtk.Entry {
-                              :on_activate
-                              (fn [event]
-                                (_G.invoke-command event.text))
-                              })
-        progress-bar (Gtk.ProgressBar {
-                                       :orientation Gtk.Orientation.HORIZONTAL
-                                       :fraction 1.0
-                                       :margin 0
-                                       })
-        contentwidget (Gtk.Button {
-                                   :label "paceholder"
-                                   })
-        ]
-    (doto container
-      (: :pack_start commander false false vpad)
-      (: :pack_start progress-bar false false vpad)
-      (: :pack_start contentwidget true true vpad))
-    (window:add container)
-    (window:show_all)
-    window))
-
-{ :new new-pane }