DBGrid?
Posted: Sat Jan 23, 2010 3:46 pm
Prompt as to display the tables (database) in GUI the interface?
Friends and Fans of newLISP
http://www.newlispfanclub.alh.net/forum/
http://www.newlispfanclub.alh.net/forum/viewtopic.php?f=10&t=3470
Code: Select all
(load "/usr/share/newlisp/guiserver.lsp")
(set 'grid-rows 10 'grid-columns 10)
(gs:init)
(gs:frame 'Grid 100 100 900 900 "Grid")
(gs:set-grid-layout 'Grid grid-rows grid-columns 2 2)
(dotimes (row grid-rows)
(dotimes (column grid-columns)
(gs:label (sym (string "label" row column)) (string "R" row " C" column))
(gs:add-to 'Grid (sym (string "label" row column)))))
(gs:set-visible 'Grid true)
(gs:listen)