require"iuplua" -- Utilities iup_console = {} function iup_console.concat(str, info) return str .. info .. "\n" end function iup_console.print_version_info() iup_console.clear() local str = "" if (im) then str = iup_console.concat(str, "IM " .. im._VERSION .. " " .. im._COPYRIGHT) end if (cd) then str = iup_console.concat(str, "CD " .. cd._VERSION .. " " .. cd._COPYRIGHT) end str = iup_console.concat(str, "IUP " .. iup._VERSION .. " " .. iup._COPYRIGHT) str = iup_console.concat(str, "") str = iup_console.concat(str, "IUP Info") str = iup_console.concat(str, " System: " .. iup.GetGlobal("SYSTEM")) str = iup_console.concat(str, " System Version: " .. iup.GetGlobal("SYSTEMVERSION")) local mot = iup.GetGlobal("MOTIFVERSION") if (mot) then str = iup_console.concat(str, " Motif Version: ", mot) end local gtk = iup.GetGlobal("GTKVERSION") if (gtk) then str = iup_console.concat(str, " GTK Version: ", gtk) end str = iup_console.concat(str, " Screen Size: " .. iup.GetGlobal("SCREENSIZE")) str = iup_console.concat(str, " Screen Depth: " .. iup.GetGlobal("SCREENDEPTH")) if (iup.GL_VENDOR) then str = iup_console.concat(str, " OpenGL Vendor: " .. iup.GL_VENDOR) end if (iup.GL_RENDERER) then str = iup_console.concat(str, " OpenGL Renderer: " .. iup.GL_RENDERER) end if (iup.GL_VERSION) then str = iup_console.concat(str, " OpenGL Version: " .. iup.GL_VERSION) end iup_console.mlCode.value=str end -- Console Dialog iup_console.lastfilename = nil -- Last file open iup_console.mlCode = iup.multiline{expand="YES", size="200x120", font="Courier, 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 function iup_console.clear() iup_console.mlCode.value='' iup_console.lblFileName.title = '' iup_console.lastfilename = nil 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.clear} 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", nochangedir="NO", directory=iup_console.last_directory, 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 = fd.value iup_console.last_directory = fd.directory 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", nochangedir="NO", directory=iup_console.last_directory, filter="*.*", filterinfo="All Files", allownew="NO"} fd:popup(iup.CENTER, iup.CENTER) local status = fd.status local filename = fd.value iup_console.last_directory = fd.directory 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) if (iup.MainLoopLevel()==0) then iup.MainLoop() end iup_console.dlgMain:destroy() iup_console.dlgAbout:destroy()