use CamelCase for tables/modules that implement classes
Frame => bound to (require :frame) frame => result of evaluating (Frame.new)
This commit is contained in:
parent
bd8a1a5c7d
commit
e2c6e2c5f6
@ -2,11 +2,11 @@
|
||||
(local lfs (require :lfs))
|
||||
(local { : Gtk : Gdk : WebKit2 : cairo } lgi)
|
||||
|
||||
(local frame (require :frame))
|
||||
(local buffer (require :buffer))
|
||||
(local Frame (require :frame))
|
||||
(local Buffer (require :buffer))
|
||||
|
||||
(let [f (frame.new)
|
||||
b (buffer.new "main")]
|
||||
(let [f (Frame.new)
|
||||
b (Buffer.new "main")]
|
||||
(f:show-buffer b)
|
||||
(b:visit (.. "file://" (lfs.currentdir) "/doc/index.html")))
|
||||
|
||||
|
@ -1,6 +1,6 @@
|
||||
(local { : Gtk : Gdk : WebKit2 : cairo } (require :lgi))
|
||||
(local { : view } (require :fennel))
|
||||
(local command (require :command))
|
||||
(local Command (require :command))
|
||||
|
||||
(var frames [])
|
||||
|
||||
@ -19,7 +19,7 @@
|
||||
commander (Gtk.Entry {
|
||||
:on_activate
|
||||
(fn [event]
|
||||
(command.invoke event.text {}))
|
||||
(Command.invoke event.text {}))
|
||||
})
|
||||
progress-bar (Gtk.ProgressBar {
|
||||
:orientation Gtk.Orientation.HORIZONTAL
|
||||
|
Loading…
Reference in New Issue
Block a user