MoonScript - Agenda telefônica semifuncional em 101 linhas
Publicado por Ramon (última atualização em 02/12/2013)
[ Hits: 3.708 ]
O MoonScript é uma "linguagem" de programação, que faz cross-compile (ou seja, traduz seu código) para Lua (sim, a linguagem brasileira, usada no WoW). Porém, uma maneira de descrevê-la melhor é uma linguagem que faz algo como o CoffeeScript faz com o JavaScript.
Para testar a funcionalidade da linguagem, a testei fazendo uma mini-agenda-telefônica (quebrada, só adiciona contatos...) para ver se ela é "boa mesmo", e rendeu em surpreendentes 101 linhas um programa funcional.
Ah, só mais uma coisa. Olhe a TreeView. Quem já programou em GTK sem o Builder, e usou TreeViews, alguma vez ficará boquiaberto.
require "moon.all"
lgi = require "lgi"
import Gtk, GObject from lgi
require "lsqlite3"
-- General program logic
PhoneColumns = { NAME: 1, NUMBER: 2 }
database = sqlite3.open "database.db"
assert(database\exec("CREATE TABLE IF NOT EXISTS phones(name text, number text)") == sqlite3.OK)
-- Insert Window Logic
-- Yep, classes - neat!
class InsertWindow
new: (db, on_add_callback) =>
@name_input = Gtk.Entry!
@number_input = Gtk.Entry!
@database = db
@on_add_callback = on_add_callback
@window = Gtk.Window {
title: "Insert",
Gtk.Grid {
orientation: Gtk.Orientation.VERTICAL,
Gtk.Grid {
orientation: Gtk.Orientation.HORIZONTAL,
Gtk.Label {label: "Name: "},
@name_input
},
Gtk.Grid {
orientation: Gtk.Orientation.HORIZONTAL,
Gtk.Label {label: "Number: "},
@number_input
},
Gtk.Button {
label: "Insert",
on_pressed: ->
stmt = @database\prepare "INSERT INTO phones VALUES(?, ?)"
stmt\bind(1, @name_input.text)
stmt\bind(2, @number_input.text)
stmt\step!
stmt\reset!
@window\hide!
@on_add_callback!
}
}
}
clear: =>
@name_input.text = ""
@number_input.text = ""
-- Main Window Logic
fill_liststore_with_data = (database, store using nil) ->
store\clear!
for row in database\nrows("SELECT * FROM phones")
store\append {
[PhoneColumns.NAME]: row.name,
[PhoneColumns.NUMBER]: row.number
}
store = Gtk.ListStore.new {
[PhoneColumns.NAME]: GObject.Type.STRING,
[PhoneColumns.NUMBER]: GObject.Type.STRING
}
insert_window = InsertWindow(database, -> fill_liststore_with_data(database, store))
fill_liststore_with_data(database, store)
view = Gtk.TreeView {
model: store,
Gtk.TreeViewColumn {
title: "Name",
{ Gtk.CellRendererText({}), { text: PhoneColumns.NAME } }
},
Gtk.TreeViewColumn {
title: "Number",
{ Gtk.CellRendererText({}), { text: PhoneColumns.NUMBER } }
}
}
button = Gtk.Button {
label: "Insert contact",
on_pressed: ->
insert_window.window\show_all()
}
window = Gtk.Window {
title: "Test",
on_destroy: Gtk.main_quit,
Gtk.Grid {
orientation: Gtk.Orientation.VERTICAL,
view,
button
}
}
window\show_all!
Gtk.main!
Verifica se o link caiu e manda aviso por email - MIkrotik v5.*
Fazendo um ajuste não linear em dados experimentais - FORTRAN 90
Nenhum comentário foi encontrado.
File Browser: Crie sua Nuvem Pessoal Privada
A produção de áudio e vídeo no Linux e as distribuições dedicadas a esse fim
Criptografando sua Home com Gocryptfs para tristeza do meliante
A Involução do Linux e as Lambanças Desnecessárias desde o seu Lançamento
O Journal no Linux para a guarda e consulta de logs do sistema
Otimizando o uso de Memória RAM no Ubuntu com zRAM
Usando alias no Terminal para comandos longos
Simplificando o manual do terminal no Ubuntu 26.04
Bloqueio da instalação e reinstalação do Snap (snapd) no Ubuntu
Continuando meus tópicos anteriores (12)
VoidBR - Void Linux adaptado ao Brasil. (0)









