diff options
Diffstat (limited to 'iup/srcconsole/console5.lua')
| -rwxr-xr-x | iup/srcconsole/console5.lua | 204 |
1 files changed, 204 insertions, 0 deletions
diff --git a/iup/srcconsole/console5.lua b/iup/srcconsole/console5.lua new file mode 100755 index 0000000..20f74b2 --- /dev/null +++ b/iup/srcconsole/console5.lua @@ -0,0 +1,204 @@ +require"iuplua" + +iup.console = {} + +-- Utilities + +function iup.console.printtable(t) + local n,v = next(t, nil) + print("--printtable Start--") + while n do + print(tostring(n).."="..tostring(v)) + n,v = next(t, n) + end + print("--printtable End--") +end + +function iup.console.print_version_info() + if (im) then print("IM " .. im._VERSION .. " " .. im._COPYRIGHT) end + + if (cd) then print("CD " .. cd._VERSION .. " " .. cd._COPYRIGHT) end + + print("IUP " .. iup._VERSION .. " " .. iup._COPYRIGHT) + print("") + print("IUP Info") + print(" System: " .. iup.GetGlobal("SYSTEM")) + print(" System Version: " .. iup.GetGlobal("SYSTEMVERSION")) + + local mot = iup.GetGlobal("MOTIFVERSION") + if (mot) then print(" Motif Version: ", mot) end + + print(" Screen Size: " .. iup.GetGlobal("SCREENSIZE")) + print(" Screen Depth: " .. iup.GetGlobal("SCREENDEPTH")) + + if (iup.GL_VENDOR) then print(" OpenGL Vendor: " .. iup.GL_VENDOR) end + if (iup.GL_RENDERER) then print(" OpenGL Renderer: " .. iup.GL_RENDERER) end + if (iup.GL_VERSION) then print(" OpenGL Version: " .. iup.GL_VERSION) end +end + +-- Console Dialog + +iup.console.lastfilename = nil -- Last file open +iup.console.mlCode = iup.multiline{expand="YES", size="200x120", font="COURIER_NORMAL_10"} +iup.console.lblPosition = iup.label{title="0:0", size="50x"} +iup.console.lblFileName = iup.label{title="", size="50x", expand="HORIZONTAL"} + +function iup.console.mlCode:caret_cb(lin, col) + iup.console.lblPosition.title = lin..":"..col +end + +iup.console.butExecute = iup.button{size="50x15", title="Execute", + action="iup.dostring(iup.console.mlCode.value)"} +iup.console.butClearCommands = iup.button{size="50x15", title="Clear", + action="iup.console.mlCode.value='' iup.console.lblFileName.title = '' iup.console.lastfilename = nil"} +iup.console.butLoadFile = iup.button{size="50x15", title="Load..."} +iup.console.butSaveasFile = iup.button{size="50x15", title="Save As..."} +iup.console.butSaveFile = iup.button{size="50x15", title="Save"} + +function iup.console.butSaveFile:action() + if (iup.console.lastfilename == nil) then + iup.console.butSaveasFile:action() + else + newfile = io.open(iup.console.lastfilename, "w+") + if (newfile) then + newfile:write(iup.console.mlCode.value) + newfile:close() + else + error ("Cannot Save file "..filename) + end + end +end + +function iup.console.butSaveasFile:action() + local fd = iup.filedlg{dialogtype="SAVE", title="Save File", + filter="*.*", filterinfo="All files",allownew=yes} + fd:popup(iup.LEFT, iup.LEFT) + local status = fd.status + iup.console.lastfilename = fd.value + iup.console.lblFileName.title = iup.console.lastfilename + fd:destroy() + if status ~= "-1" then + if (iup.console.lastfilename == nil) then + error ("Cannot Save file "..filename) + end + local newfile=io.open(iup.console.lastfilename, "w+") + if (newfile) then + newfile:write(iup.console.mlCode.value) + newfile:close(newfile) + else + error ("Cannot Save file") + end + end +end + +function iup.console.LoadFile(filename) + local newfile = io.open (filename, "r") + if (newfile == nil) then + error ("Cannot load file "..filename) + else + iup.console.mlCode.value=newfile:read("*a") + newfile:close (newfile) + iup.console.lastfilename = filename + iup.console.lblFileName.title = iup.console.lastfilename + end +end + +function iup.console.butLoadFile:action() + local fd=iup.filedlg{dialogtype="OPEN", title="Load File", + filter="*.*", filterinfo="All Files", allownew="NO"} + fd:popup(iup.CENTER, iup.CENTER) + local status = fd.status + local filename = fd.value + fd:destroy() + + if (status == "-1") or (status == "1") then + if (status == "1") then + error ("Cannot load file "..filename) + end + else + iup.console.LoadFile(filename) + end +end + +iup.console.vbxConsole = iup.vbox +{ + iup.frame{iup.hbox{iup.vbox{iup.console.butLoadFile, + iup.console.butSaveFile, + iup.console.butSaveasFile, + iup.console.butClearCommands, + iup.console.butExecute; + margin="0x0", gap="10"}, + iup.vbox{iup.console.lblFileName, + iup.console.mlCode, + iup.console.lblPosition; + alignment = "ARIGHT"}; + alignment="ATOP"}; title="Commands"} + ;alignment="ACENTER", margin="5x5", gap="5" +} + +-- Main Menu Definition. + +iup.console.mnuMain = iup.menu +{ + iup.submenu + { + iup.menu + { + iup.item{title="Exit", action="return iup.CLOSE"} + }; title="File" + }, + iup.submenu{iup.menu + { + iup.item{title="Print Version Info...", action=iup.console.print_version_info}, + iup.item{title="About...", action="iup.console.dlgAbout:popup(iup.CENTER, iup.CENTER)"} + };title="Help"} +} + +-- Main Dialog Definition. + +iup.console.dlgMain = iup.dialog{iup.console.vbxConsole; + title="IupLua Console", + menu=iup.console.mnuMain, + dragdrop = "YES", + defaultenter=iup.console.butExecute, + close_cb = "return iup.CLOSE"} + +function iup.console.dlgMain:dropfiles_cb(filename, num, x, y) + if (num == 0) then + iup.console.LoadFile(filename) + end +end + +-- About Dialog Definition. + +iup.console.dlgAbout = iup.dialog +{ + iup.vbox + { + iup.label{title="IupLua Console"}, + iup.fill{size="5"}, + iup.fill{size="5"}, + iup.frame + { + iup.vbox + { + iup.label{title="Tecgraf/PUC-Rio"}, + iup.label{title="iup@tecgraf.puc-rio.br"} + } + }, + iup.fill{size="5"}, + iup.button{title="OK", action="return iup.CLOSE", size="50X20"} + ;margin="10x10", alignment="ACENTER" + } + ;maxbox="NO", minbox="NO", resize="NO", title="About" +} + +-- Displays the Main Dialog + +iup.console.dlgMain:show() +iup.SetFocus(iup.console.mlCode) + +iup.MainLoop() + +iup.console.dlgMain:destroy() +iup.console.dlgAbout:destroy() |