Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --just hrere to force reloading the api so I don't have to reboot
- package.loaded.gml=nil
- package.loaded.gfxbuffer=nil
- local gml=require("gml")
- local gfxbuffer=require("gfxbuffer")
- local component=require("component")
- local fs=require("filesystem")
- local buffer=gfxbuffer.create(gui)
- local term=require("shell")
- --local buffer,setBackground
- --local canvus=buffer(4,4,4,gui)
- function starting()
- gui=gml.create("center","center",30,10)
- helloLabel=gui:addLabel("center",1,25,"Hive Array")
- buttonClose=gui:addButton("center",6,10,1,"Close",gui.close)
- buttonCheckData=gui:addButton("center",7,10,1,"check files", file_check)
- end
- function getData()
- buffer.flush()
- createGUI = gml.create("center","center",30,10)
- local newFilebutton = createGUI:addButton("center",5,10,1,"Create",newFile)
- local noDataLable1= createGUI:addLabel("center",1,25, "It Seems you don't have any hive data!")
- local noDataLable2= createGUI:addLabel("center",2,25, "Do you want to create new file?")
- local createClose= createGUI:addButton("center",6,10,1,"close",createGUI.close)
- term.clear()
- createGUI:run()
- gui:close()
- end
- function file_check()
- local fileGUI=gml.create("center","center",30,10)
- local hivecfg = fs.open("/usr/etc/hivedata.cfg", "r")
- if hivecfg ~= nil then
- hasDataLabel=fileGUI:addLabel("center",3,25,"Data Found!")
- hasDataButton=fileGUI:addButton("center",5,10,1,"Continue?",launchMain())
- gui:close()
- fileGUI:run()
- -- gui:hidden(true)
- fileGUI:draw()
- else
- term.clear()
- helloLabel:hide()
- gui:close()
- --fileGUI:close()
- getData()
- fileGUI:close()
- end
- end
- function newFile()
- local confGUI=gml.create("center", "center",30, 10)
- newLabel= confGUI:addLabel("center", "center", 3, 10, "New file made!")
- launchButton= confGUI:addButton(-6, "center", 10, 1,"Continue",launchMain())
- local hivewrite=fs.open("/usr/etc/hivedata.cfg", "w")
- hivewrite:write("This is the Hive Array Database")
- hivewrite:write("this is tamp data")
- -- fs.close()
- file_check()
- --gui:draw()
- --gui:changeFocusTo(gui)
- end
- function launchMain()
- local mainGUI=gml.create("center","center", 50,50)
- --gui:changeFocusTo(gui)
- --newlabel:hide()
- --gui.continebutton:hide()
- local mainLable=mainGUI:addLabel("center",1,25, "This is the main Program")
- local mainClose=mainGUI:addButton("center",-2,10,1,"close",gui.close)
- --gui:close()
- mainGUI:run()
- mainGUI:draw()
- end
- --{
- function newListBox()
- local infoGUI=gui.create("center", "center", 30, 50)
- term.clear()
- local infoLabel=infoGUI:addLabel("center", 1, infoFunctionsLabelWidth, "Functions explanation for ")
- infoGUI:addButton("center",-1,12,2,"Close",infoGUI.close)
- infoGUI:run()
- gui:draw()
- end
- --]
- starting()
- --canvus.draw(10,10)
- gui:run()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement