Multiselection file browser - Lattice

Spoiler

My root in list view, currently multi-selecting 4 files/dirs:

File options:

Dir options:

Options (accessible by clicking the "+" button or by right-clicking empty)

Of course, you can multiselect and right click in ALL VIEWS!
More: visit http://imgur.com/a/3LCcq

Pre 1.0a - pastebin get 5A2xujvw Lattice

Twijn, on 13 August 2015 - 07:03 PM said:

Not to be rude or anything but why would you post a program that clearly does not work?

flaghacker, on 13 August 2015 - 09:59 PM said:

Twijn, on 13 August 2015 - 07:03 PM said:

Not to be rude or anything but why would you post a program that clearly does not work?

That's the point… Tell him your cc version, what happened, when it happened… He's trying to find bugs here!

H4X0RZ, on 13 August 2015 - 10:08 PM said:

flaghacker, on 13 August 2015 - 09:59 PM said:

But then, shouldn't it be in General or AaP? I think the programs section is only for finished programs.

flaghacker, on 14 August 2015 - 12:12 AM said:

H4X0RZ, on 13 August 2015 - 10:08 PM said:

flaghacker, on 13 August 2015 - 09:59 PM said:

But then, shouldn't it be in General or AaP? I think the programs section is only for finished programs.

In my opinion, no. General is for program previews without code, and Ask a pro is for asking questions. This post is a release of an unstable program, so it belongs in programs…

Twijn, on 14 August 2015 - 02:46 AM said:

flaghacker, on 14 August 2015 - 12:12 AM said:

H4X0RZ, on 13 August 2015 - 10:08 PM said:

flaghacker, on 13 August 2015 - 09:59 PM said:

But then, shouldn't it be in General or AaP? I think the programs section is only for finished programs.

In my opinion, no. General is for program previews without code, and Ask a pro is for asking questions. This post is a release of an unstable program, so it belongs in programs…

I don't need to say anything. It will error no matter what. Did he not run it before he posted it?

I had to fix 3 errors to get it to work which shouldn't exist on a program in here. And the errors weren't even bugs or anything, it was just bad coding. I almost think that this was the person's first program and he never ran it, he just posted it on here.

LeDark Lua, on 15 August 2015 - 11:21 AM said:

Twijn, on 14 August 2015 - 02:46 AM said:

flaghacker, on 14 August 2015 - 12:12 AM said:

H4X0RZ, on 13 August 2015 - 10:08 PM said:

flaghacker, on 13 August 2015 - 09:59 PM said:

But then, shouldn't it be in General or AaP? I think the programs section is only for finished programs.

In my opinion, no. General is for program previews without code, and Ask a pro is for asking questions. This post is a release of an unstable program, so it belongs in programs…

I don't need to say anything. It will error no matter what. Did he not run it before he posted it?

I had to fix 3 errors to get it to work which shouldn't exist on a program in here. And the errors weren't even bugs or anything, it was just bad coding. I almost think that this was the person's first program and he never ran it, he just posted it on here.

Ehm dude, he needs to find bugs, could you please post the bugs here and not fix them by yourself?

Error:
BIOS:14: [string "FileBrowser"]:34: '}' expected (to close '{' at line 29)
Just delete the one of the 'end's and then there will be no bugs. atleast for now.

LeDark Lua, on 15 August 2015 - 05:56 PM said:

Twijn do you use an emulator? If so do you use Love2D emulators? Then there will be bugs with this app.

LeDark Lua, on 15 August 2015 - 05:56 PM said:

Twijn do you use an emulator? If so do you use Love2D emulators? Then there will be bugs with this app.

H4X0RZ, on 15 August 2015 - 07:07 PM said:

LeDark Lua, on 15 August 2015 - 05:56 PM said:

Twijn do you use an emulator? If so do you use Love2D emulators? Then there will be bugs with this app.

Why? How could this program break an emulator in Löve? (e.g. CCLite)

LeDark Lua, on 15 August 2015 - 07:52 PM said:

H4X0RZ, on 15 August 2015 - 07:07 PM said:

LeDark Lua, on 15 August 2015 - 05:56 PM said:

Twijn do you use an emulator? If so do you use Love2D emulators? Then there will be bugs with this app.

Why? How could this program break an emulator in Löve? (e.g. CCLite)

Try to run OneOS on CCLite. I get errors every time.

Try to run OneOS on CCEMURedux works fine.

Try to run OneOS on Minecraft CC mod works fine.

Twijn, on 15 August 2015 - 07:45 PM said:

LeDark Lua, on 15 August 2015 - 05:56 PM said:

Twijn do you use an emulator? If so do you use Love2D emulators? Then there will be bugs with this app.

No, I use the ComputerCraft mod in Minecraft.

There are bugs with this app in everything that uses Lua.

local tArgs = { ... }
local home
local root
local clipboard
if #tArgs > 0 then
home = tArgs[1]
else
home = ""
end
if #tArgs > 1 then
root = tArgs[2]
else
root = "/"
end
history = {}
history[1] = root .. home
local w,h = term.getSize()
local function split(inputstr, sep)
if sep == nil then
  sep = "%s"
end
local t={} ; i=1
for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
  t[i] = str
  i = i + 1
end
return t
end
historyclear = function()
history = {}
history[1] = root..home
end
shellcom = {historyclear}
local function diabox(txt)
term.setBackgroundColor(colors.white)
term.setTextColor(colors.black)
paintutils.drawFilledBox(math.floor(w/2-(#txt+2)/2),math.floor(h/2)-2,math.floor(w/2+(#txt+2)/2),math.floor(h/2)+2,colors.white)
term.setCursorPos(math.floor(w/2-(#txt+2)/2)+1,math.floor(h/2)-1)
term.write(txt)
term.setCursorPos(math.floor(w/2-(#txt+2)/2)+1,math.floor(h/2)+1)
end
function readtextbox(txt)
diabox(txt)
return read()
end
function buttonbox(txt,buttons)
if type(buttons) ~= "table" then
  buttons = {{" Yes ",colors.red,colors.white},{" No ",colors.gray,colors.white}}
end
if txt == "" or txt == nil then
  txt = " Are you sure? "
end
local x,y
diabox(txt)
for i=1,#buttons do
  x,y = term.getCursorPos()
  x = math.floor((w/2-(#txt+2)/2)+((#txt+2)/i)*(i-1)) + 1
  term.setCursorPos(x,y)
  term.setBackgroundColor(buttons[i][2])
  term.setTextColor(buttons[i][3])
  term.write(buttons[i][1])  
end
while true do
  local _,b,x2,y2 = os.pullEvent("mouse_click")
  if b == 1 and y == y2 then
   for i=1,#buttons do
	local x = math.floor((w/2-(#txt+2)/2)+((#txt+2)/i)*(i-1)) + 1
	if x2 > x - 1 and x2 < x + #buttons[i][1] then
	 return i
	end
   end
  end
end
end
local function clear()
term.setBackgroundColor(colors.lightBlue)
term.setTextColor(colors.black)
term.clear()
term.setCursorPos(1,1)
end
local function list(path,scroll,selected)
clear()
local items = fs.list(path)
for i=scroll+1,scroll+h-2 do
  if type(items[i]) == "string" then
   if i ~= selected then
	if not fs.isDir(path..items[i]) then
	 term.setTextColor(colors.black)
	else
	 term.setTextColor(colors.yellow)
	end
   else
	term.setTextColor(colors.white)
   end
   print(items[i])
  end
end
return items
end
local function drawMenu(path)
term.setBackgroundColor(colors.blue)
term.setTextColor(colors.white)
term.setCursorPos(1,h-1)
term.clearLine()
term.setCursorPos(1,h-1)
term.write(path)
term.setCursorPos(1,h)
term.clearLine()
term.setCursorPos(1,h)
term.write("| New | MkDir | More | Root | Home | Back | Exit |")
end
local function rPrint(txt,y)
if y == nil then _,y = term.getCursorPos() end
term.setCursorPos(w-#txt,y)
term.write(txt)
term.setCursorPos(1,y+1)
end
local function popupMenu(isDir)
paintutils.drawFilledBox(math.floor(w/2),1,w,h-1)
if (isDir) then
  rPrint("Open",2)
  rPrint("Unpack")
else
  rPrint("Edit",2)
  rPrint("Paint")
  rPrint("Open with ...")
  rPrint("Run")
  rPrint("Run w/Args")
end
rPrint("Rename",7)
rPrint("Move")
rPrint("Copy")
rPrint("Copy to clipboard")
rPrint("Delete")
rPrint("Deselect")
end
local function createNewName(name,type)
if type == nil then type = 1 end
if type == 1 then return "Unpacked_" .. name end
if type == 2 then return name .. math.random(1,10000) end
return name .. "_pasted"
end
local function drawLine(y,txt,col)
if type(col) == nil then col = colors.white end
term.setCursorPos(1,y)
term.clearLine()
term.setCursorPos(math.floor(w/2-#txt/2),y)
term.write(txt)
end
local function customShell()
clear()
while true do
  term.setCursorPos(1,h)
  term.clearLine()
  term.setCursorPos(1,h)
  term.write("? ")
  local command = read()
  clear()
  term.setCursorPos(1,1)
  if command == "exit" then return end
  if type(shellcom[command]) == "function" then
   shellcom[command]()
  else
   print("Not a command")
  end
end
end
local function downloadfile(path)
clear()
local url = readtextbox("	  Please enter url	  ")
clear()
print("Progress:")
print("Downloading...")
local httpgot = http.get(url)
print("Done")
local name = readtextbox("Please name the file")
while fs.exists(path..name) do name = createNewName(name,3) end
local file = fs.open(path..name,"w")
file.write(httpgot.readAll())
file.close()
httpgot.close()
clear()
buttonbox("File downloaded",{{"OK",colors.gray,colors.white}})
end
local function more(path) --draw ui
while true do
  clear()
  print("More actions:")
  term.setTextColor(colors.black)
  drawLine(3,"Shell")
  drawLine(5,"Download file")
  drawLine(7,"Paste from clipboard")
  drawLine(9,"Paste from pastebin.com")
  drawLine(11,"Open webpage")
  drawLine(13,"New file...")
  drawLine(15,"Go back")
  --get event
  local _,_,_,y = os.pullEvent()
  if y == 3 then
   customShell()
  elseif y == 5 then
   downloadfile(path)
  elseif y == 7 then
   if fs.exists(clipboard) then
	if clipboard:sub(#clipboard,#clipboard) == "/" then clipboard = clipboard:sub(1,#clipboard-1) end
	local splitted = split(clipboard,"/")
	local name = splitted[#splitted]
	while fs.exists(path..name) do name = createNewName(name,3) end
	fs.copy(clipboard,path..name)
	buttonbox("Pasted as "..name.." in directory "..path,{{"OK",colors.gray,colors.white}})
   else
	buttonbox("File not found: "..clipboard,{{"OK",colors.gray,colors.white}})
   end
  elseif y == 9 then
   --paste from pastebin
   local name
   repeat
	name = readtextbox("Please enter a filename")
   until not fs.exists(path..name)
   local url = readtextbox("Please enter the pastebin URL")
   term.setCursorPos(1,1)
   term.setBackgroundColor(colors.white)
   term.setTextColor(colors.gray)
   term.clear()
   print("Downloading file: ")
   shell.run("pastebin get "..url.." "..path..name)
   print("Ended. Press any key to continue")
   os.pullEvent()
   elseif y == 11 then
   --open webpage:
   local url = readtextbox("   Please enter the url   ")
   local httpsth = http.get(url)
   local cont = httpsth.readAll()
   httpsth.close()
   clear()
   print(cont)
   os.pullEvent()
  elseif y == 13 then
   --new file options
   clear()
   local exc = buttonbox("Please choose a program",{{"Paint",colors.yellow,colors.black},{"Custom",colors.yellow,colors.black}})
   clear()
   local filename = readtextbox("Please enter a filename")
   if not fs.exists(path..filename) then
	if exc == 1 then
	 shell.run("paint",path..filename)
	else
	 clear()
	 local prog = readtextbox("Please choose a program "..root)
	 shell.run(prog,path..filename)
	end
   end
  elseif y == 15 then
   return
  end
end
end
local path = root .. home
local scroll = 0
local selected = 0
local items
local endprogram = false
while not endprogram do
repeat
  items = list(path,scroll,selected)
  drawMenu(path)
  if items[selected] ~= nil then popupMenu(fs.isDir(path..items[selected])) end
  local e,b,x,y = os.pullEvent()
  if e == "mouse_click" then
   if items[selected] ~= nil and x > math.floor(w/2) and y < h-1 then
	if fs.isDir(path..items[selected]) then
	 --folder specific
	 if y == 2 then
	  path = path .. items[selected] .. "/"
	  selected = 0
	  scroll = 0
	  history[#history+1] = path
	 elseif y == 3 then
	  local con = fs.list(path..items[selected].."/")
	  for i=1,#con do
	   local altname = con[i]
	   while fs.exists(path..altname) do
		altname = createNewName(altname)
	   end
	   fs.move(path..items[selected].."/"..con[i],path..altname)	  
	  end
	  fs.delete(path..items[selected])
	  selected = 0
	 end
	else
	 --file specific
	 if y == 2 then
	  --edit
	  shell.run("edit",path.. items[selected])
	 elseif y == 3 then
	  --open with paint
	  shell.run("paint",path..items[selected])
	 elseif y == 4 then
	  --open with...
	  local program = readtextbox("Please choose a program: "..root)
	  if program ~= nil or program ~= "" then
	   shell.run(root..program,path..items[selected])
	  end	  
	 elseif y == 5 then
	  term.setBackgroundColor(colors.black)
	  term.setTextColor(colors.white)
	  term.clear()
	  term.setCursorPos(1,1)
	  os.pullEvent()
	  shell.run(path..items[selected])
	  sleep(0)
	  print("Press any key to continue")
	  os.pullEvent("key")
	 elseif y == 6 then
	  local args = readtextbox("Please enter all arguments to run with!")
	  term.setBackgroundColor(colors.black)
	  term.setTextColor(colors.white)
	  term.clear()
	  term.setCursorPos(1,1)
	  os.pullEvent()
	  shell.run(path..items[selected] .. " " .. args)
	  sleep(0)
	  print("Press any key to continue")
	  os.pullEvent("key")
	 end
	end
	--universal
	if y == 7 then
	 local nname = readtextbox("Please enter the new name (empty = cancel)")
	 if nname ~= nil or nname ~= "" then
	  if not fs.exists(path..nname) then
	   fs.move(path..items[selected],path..nname)
	   clear()
	   buttonbox("Success",{{"OK",colors.gray,colors.white}})
	   selected = 0
	  else
	   clear()
	   buttonbox("File already exists",{{"OK",colors.gray,colors.white}})
	  end
	 end
	elseif y == 8 then
	 --move
	 local dest = readtextbox("Move to (empty=cancel) "..root)	
	 if dest ~= nil or dest ~= "" then
	  if not fs.exists(root..dest) then
	   fs.move(path..items[selected],root..dest)
	   clear()
	   buttonbox("Success",{{"OK",colors.gray,colors.white}})
	  else
	   clear()
	   buttonbox("File already exists",{{"OK",colors.gray,colors.white}})
	  end
	 end
	elseif y == 9 then
	 --copy
	 local destination = readtextbox("Copy to (emplty=cancel) "..root)
	 if destination ~= nil or destination ~= "" then
	  if not fs.exists(root..destination) then
	   fs.copy(path..items[selected],root..destination)
	   clear()
	   buttonbox("Success",{{"OK",colors.gray,colors.white}})
	  else
	   clear()
	   buttonbox("File already exists",{{"OK",colors.gray,colors.white}})
	  end
	 end
	elseif y == 10 then
	 --clipboard
	 clipboard = path .. items[selected]
	elseif y == 11 then
	 --delete
	 local bclicked = buttonbox()
	 if bclicked == 1 then
	  fs.delete(path..items[selected])
	  clear()
	  buttonbox("File deleted",{{"OK",colors.gray,colors.white}})
	  selected = 0
	 end
	elseif y == 12 then
	 selected = 0
	end
	break
   end
   if y == h-1 then
	local npath = readtextbox("Enter new path: (empty=cancel) "..root)
	if npath ~= nil and npath ~= "" and fs.isDir(root..npath) then
	 path = root .. npath
	 selected = 0
	 scroll = 0
	end
	history[#history+1] = path
   elseif y == h then
	--new
	if x > 1 and x < 7 then
	 local name = readtextbox("Filename: (empty=cancel)  ")
	 if name ~= nil or name ~= "" then
	  if not fs.exists(path..name) then
	   shell.run("edit",path..name)
	  end
	 end
	end
	if x > 7 and x < 15 then
	 local name = readtextbox("Directory's name: (empty=cancel)")  
	 if name ~= nil or name ~= "" then
	  if not fs.exists(path..name) then
	   fs.makeDir(path..name)
	  end
	 end
	end
	if x > 15 and x < 22 then
	 --more...
	 more(path)
	end
	if x > 22 and x < 29 then
	 path = root
	 history[#history+1] = path
	 selected = 0
	 scroll = 0
	end
	if (x > 29 and x < 36) and fs.exists(root .. home) then
	 path = root .. home
	 history[#history+1] = path
	 selected = 0
	 scroll = 0
	end
	if x > 36 and x < 43 then
	 while true do
	  history[#history] = nil
	  if #history == 0 then
	   if fs.exists(root..home) then
		path = root..home
		history[1] = path
	   elseif fs.exists(root) then
		path = root
		history[1] = path
	   else
		error("Root folder deleted",0)
	   end
	  end
	  if fs.exists(history[#history]) then
	   path = history[#history]
	   break
	  end
	 end
	 selected = 0
	end
	if x > 43 and x < 50 then
	 term.setBackgroundColor(colors.black)
	 term.setTextColor(colors.white)
	 term.setCursorPos(1,1)
	 term.clear()
	 return
	end
   elseif e == "mouse_scroll" then
	if b == 1 and #items - scroll > h-2 then
	 scroll = scroll + 1
	end
	if b == -1 and scroll > 0 then
	 scroll = scroll - 1
	end
   else
	if y + scroll == selected then
	 if items[selected] ~= nil then
	  if fs.isDir(path..items[selected]) then
	   path = path .. items[selected] .. "/"
	   history[#history+1] = path
	   selected = 0
	   scroll = 0
	  else
	   term.setBackgroundColor(colors.black)
	   term.setTextColor(colors.white)
	   term.setCursorPos(1,1)
	   term.clear()
	   shell.run(path..items[selected])
	  end
	 end
	else
	 selected = y + scroll
	end
   end
  end
until true
end

pastebin

 doesn't pick up tab, I don't think.

Other than the tiny bug, you got yourself a cool program! Looks really nice!

LDDestroier, on 17 August 2015 - 03:54 AM said:

I fixed the bug (which was very easy), and fixed the whitespacing so you can look at it better (which was HARD), so just paste this into the pastebin:

Spoiler

local tArgs = { ... }
local home
local root
local clipboard
if #tArgs > 0 then
home = tArgs[1]
else
home = ""
end
if #tArgs > 1 then
root = tArgs[2]
else
root = "/"
end
history = {}
history[1] = root .. home
local w,h = term.getSize()
local function split(inputstr, sep)
if sep == nil then
  sep = "%s"
end
local t={} ; i=1
for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
  t[i] = str
  i = i + 1
end
return t
end
historyclear = function()
history = {}
history[1] = root..home
end
shellcom = {historyclear}
local function diabox(txt)
term.setBackgroundColor(colors.white)
term.setTextColor(colors.black)
paintutils.drawFilledBox(math.floor(w/2-(#txt+2)/2),math.floor(h/2)-2,math.floor(w/2+(#txt+2)/2),math.floor(h/2)+2,colors.white)
term.setCursorPos(math.floor(w/2-(#txt+2)/2)+1,math.floor(h/2)-1)
term.write(txt)
term.setCursorPos(math.floor(w/2-(#txt+2)/2)+1,math.floor(h/2)+1)
end
function readtextbox(txt)
diabox(txt)
return read()
end
function buttonbox(txt,buttons)
if type(buttons) ~= "table" then
  buttons = {{" Yes ",colors.red,colors.white},{" No ",colors.gray,colors.white}}
end
if txt == "" or txt == nil then
  txt = " Are you sure? "
end
local x,y
diabox(txt)
for i=1,#buttons do
  x,y = term.getCursorPos()
  x = math.floor((w/2-(#txt+2)/2)+((#txt+2)/i)*(i-1)) + 1
  term.setCursorPos(x,y)
  term.setBackgroundColor(buttons[i][2])
  term.setTextColor(buttons[i][3])
  term.write(buttons[i][1])  
end
while true do
  local _,b,x2,y2 = os.pullEvent("mouse_click")
  if b == 1 and y == y2 then
   for i=1,#buttons do
	local x = math.floor((w/2-(#txt+2)/2)+((#txt+2)/i)*(i-1)) + 1
	if x2 > x - 1 and x2 < x + #buttons[i][1] then
	 return i
	end
   end
  end
end
end
local function clear()
term.setBackgroundColor(colors.lightBlue)
term.setTextColor(colors.black)
term.clear()
term.setCursorPos(1,1)
end
local function list(path,scroll,selected)
clear()
local items = fs.list(path)
for i=scroll+1,scroll+h-2 do
  if type(items[i]) == "string" then
   if i ~= selected then
	if not fs.isDir(path..items[i]) then
	 term.setTextColor(colors.black)
	else
	 term.setTextColor(colors.yellow)
	end
   else
	term.setTextColor(colors.white)
   end
   print(items[i])
  end
end
return items
end
local function drawMenu(path)
term.setBackgroundColor(colors.blue)
term.setTextColor(colors.white)
term.setCursorPos(1,h-1)
term.clearLine()
term.setCursorPos(1,h-1)
term.write(path)
term.setCursorPos(1,h)
term.clearLine()
term.setCursorPos(1,h)
term.write("| New | MkDir | More | Root | Home | Back | Exit |")
end
local function rPrint(txt,y)
if y == nil then _,y = term.getCursorPos() end
term.setCursorPos(w-#txt,y)
term.write(txt)
term.setCursorPos(1,y+1)
end
local function popupMenu(isDir)
paintutils.drawFilledBox(math.floor(w/2),1,w,h-1)
if (isDir) then
  rPrint("Open",2)
  rPrint("Unpack")
else
  rPrint("Edit",2)
  rPrint("Paint")
  rPrint("Open with ...")
  rPrint("Run")
  rPrint("Run w/Args")
end
rPrint("Rename",7)
rPrint("Move")
rPrint("Copy")
rPrint("Copy to clipboard")
rPrint("Delete")
rPrint("Deselect")
end
local function createNewName(name,type)
if type == nil then type = 1 end
if type == 1 then return "Unpacked_" .. name end
if type == 2 then return name .. math.random(1,10000) end
return name .. "_pasted"
end
local function drawLine(y,txt,col)
if type(col) == nil then col = colors.white end
term.setCursorPos(1,y)
term.clearLine()
term.setCursorPos(math.floor(w/2-#txt/2),y)
term.write(txt)
end
local function customShell()
clear()
while true do
  term.setCursorPos(1,h)
  term.clearLine()
  term.setCursorPos(1,h)
  term.write("? ")
  local command = read()
  clear()
  term.setCursorPos(1,1)
  if command == "exit" then return end
  if type(shellcom[command]) == "function" then
   shellcom[command]()
  else
   print("Not a command")
  end
end
end
local function downloadfile(path)
clear()
local url = readtextbox("	  Please enter url	  ")
clear()
print("Progress:")
print("Downloading...")
local httpgot = http.get(url)
print("Done")
local name = readtextbox("Please name the file")
while fs.exists(path..name) do name = createNewName(name,3) end
local file = fs.open(path..name,"w")
file.write(httpgot.readAll())
file.close()
httpgot.close()
clear()
buttonbox("File downloaded",{{"OK",colors.gray,colors.white}})
end
local function more(path) --draw ui
while true do
  clear()
  print("More actions:")
  term.setTextColor(colors.black)
  drawLine(3,"Shell")
  drawLine(5,"Download file")
  drawLine(7,"Paste from clipboard")
  drawLine(9,"Paste from pastebin.com")
  drawLine(11,"Open webpage")
  drawLine(13,"New file...")
  drawLine(15,"Go back")
  --get event
  local _,_,_,y = os.pullEvent()
  if y == 3 then
   customShell()
  elseif y == 5 then
   downloadfile(path)
  elseif y == 7 then
   if fs.exists(clipboard) then
	if clipboard:sub(#clipboard,#clipboard) == "/" then clipboard = clipboard:sub(1,#clipboard-1) end
	local splitted = split(clipboard,"/")
	local name = splitted[#splitted]
	while fs.exists(path..name) do name = createNewName(name,3) end
	fs.copy(clipboard,path..name)
	buttonbox("Pasted as "..name.." in directory "..path,{{"OK",colors.gray,colors.white}})
   else
	buttonbox("File not found: "..clipboard,{{"OK",colors.gray,colors.white}})
   end
  elseif y == 9 then
   --paste from pastebin
   local name
   repeat
	name = readtextbox("Please enter a filename")
   until not fs.exists(path..name)
   local url = readtextbox("Please enter the pastebin URL")
   term.setCursorPos(1,1)
   term.setBackgroundColor(colors.white)
   term.setTextColor(colors.gray)
   term.clear()
   print("Downloading file: ")
   shell.run("pastebin get "..url.." "..path..name)
   print("Ended. Press any key to continue")
   os.pullEvent()
   elseif y == 11 then
   --open webpage:
   local url = readtextbox("   Please enter the url   ")
   local httpsth = http.get(url)
   local cont = httpsth.readAll()
   httpsth.close()
   clear()
   print(cont)
   os.pullEvent()
  elseif y == 13 then
   --new file options
   clear()
   local exc = buttonbox("Please choose a program",{{"Paint",colors.yellow,colors.black},{"Custom",colors.yellow,colors.black}})
   clear()
   local filename = readtextbox("Please enter a filename")
   if not fs.exists(path..filename) then
	if exc == 1 then
	 shell.run("paint",path..filename)
	else
	 clear()
	 local prog = readtextbox("Please choose a program "..root)
	 shell.run(prog,path..filename)
	end
   end
  elseif y == 15 then
   return
  end
end
end
local path = root .. home
local scroll = 0
local selected = 0
local items
local endprogram = false
while not endprogram do
repeat
  items = list(path,scroll,selected)
  drawMenu(path)
  if items[selected] ~= nil then popupMenu(fs.isDir(path..items[selected])) end
  local e,b,x,y = os.pullEvent()
  if e == "mouse_click" then
   if items[selected] ~= nil and x > math.floor(w/2) and y < h-1 then
	if fs.isDir(path..items[selected]) then
	 --folder specific
	 if y == 2 then
	  path = path .. items[selected] .. "/"
	  selected = 0
	  scroll = 0
	  history[#history+1] = path
	 elseif y == 3 then
	  local con = fs.list(path..items[selected].."/")
	  for i=1,#con do
	   local altname = con[i]
	   while fs.exists(path..altname) do
		altname = createNewName(altname)
	   end
	   fs.move(path..items[selected].."/"..con[i],path..altname)	  
	  end
	  fs.delete(path..items[selected])
	  selected = 0
	 end
	else
	 --file specific
	 if y == 2 then
	  --edit
	  shell.run("edit",path.. items[selected])
	 elseif y == 3 then
	  --open with paint
	  shell.run("paint",path..items[selected])
	 elseif y == 4 then
	  --open with...
	  local program = readtextbox("Please choose a program: "..root)
	  if program ~= nil or program ~= "" then
	   shell.run(root..program,path..items[selected])
	  end	  
	 elseif y == 5 then
	  term.setBackgroundColor(colors.black)
	  term.setTextColor(colors.white)
	  term.clear()
	  term.setCursorPos(1,1)
	  os.pullEvent()
	  shell.run(path..items[selected])
	  sleep(0)
	  print("Press any key to continue")
	  os.pullEvent("key")
	 elseif y == 6 then
	  local args = readtextbox("Please enter all arguments to run with!")
	  term.setBackgroundColor(colors.black)
	  term.setTextColor(colors.white)
	  term.clear()
	  term.setCursorPos(1,1)
	  os.pullEvent()
	  shell.run(path..items[selected] .. " " .. args)
	  sleep(0)
	  print("Press any key to continue")
	  os.pullEvent("key")
	 end
	end
	--universal
	if y == 7 then
	 local nname = readtextbox("Please enter the new name (empty = cancel)")
	 if nname ~= nil or nname ~= "" then
	  if not fs.exists(path..nname) then
	   fs.move(path..items[selected],path..nname)
	   clear()
	   buttonbox("Success",{{"OK",colors.gray,colors.white}})
	   selected = 0
	  else
	   clear()
	   buttonbox("File already exists",{{"OK",colors.gray,colors.white}})
	  end
	 end
	elseif y == 8 then
	 --move
	 local dest = readtextbox("Move to (empty=cancel) "..root)	
	 if dest ~= nil or dest ~= "" then
	  if not fs.exists(root..dest) then
	   fs.move(path..items[selected],root..dest)
	   clear()
	   buttonbox("Success",{{"OK",colors.gray,colors.white}})
	  else
	   clear()
	   buttonbox("File already exists",{{"OK",colors.gray,colors.white}})
	  end
	 end
	elseif y == 9 then
	 --copy
	 local destination = readtextbox("Copy to (emplty=cancel) "..root)
	 if destination ~= nil or destination ~= "" then
	  if not fs.exists(root..destination) then
	   fs.copy(path..items[selected],root..destination)
	   clear()
	   buttonbox("Success",{{"OK",colors.gray,colors.white}})
	  else
	   clear()
	   buttonbox("File already exists",{{"OK",colors.gray,colors.white}})
	  end
	 end
	elseif y == 10 then
	 --clipboard
	 clipboard = path .. items[selected]
	elseif y == 11 then
	 --delete
	 local bclicked = buttonbox()
	 if bclicked == 1 then
	  fs.delete(path..items[selected])
	  clear()
	  buttonbox("File deleted",{{"OK",colors.gray,colors.white}})
	  selected = 0
	 end
	elseif y == 12 then
	 selected = 0
	end
	break
   end
   if y == h-1 then
	local npath = readtextbox("Enter new path: (empty=cancel) "..root)
	if npath ~= nil and npath ~= "" and fs.isDir(root..npath) then
	 path = root .. npath
	 selected = 0
	 scroll = 0
	end
	history[#history+1] = path
   elseif y == h then
	--new
	if x > 1 and x < 7 then
	 local name = readtextbox("Filename: (empty=cancel)  ")
	 if name ~= nil or name ~= "" then
	  if not fs.exists(path..name) then
	   shell.run("edit",path..name)
	  end
	 end
	end
	if x > 7 and x < 15 then
	 local name = readtextbox("Directory's name: (empty=cancel)")  
	 if name ~= nil or name ~= "" then
	  if not fs.exists(path..name) then
	   fs.makeDir(path..name)
	  end
	 end
	end
	if x > 15 and x < 22 then
	 --more...
	 more(path)
	end
	if x > 22 and x < 29 then
	 path = root
	 history[#history+1] = path
	 selected = 0
	 scroll = 0
	end
	if (x > 29 and x < 36) and fs.exists(root .. home) then
	 path = root .. home
	 history[#history+1] = path
	 selected = 0
	 scroll = 0
	end
	if x > 36 and x < 43 then
	 while true do
	  history[#history] = nil
	  if #history == 0 then
	   if fs.exists(root..home) then
		path = root..home
		history[1] = path
	   elseif fs.exists(root) then
		path = root
		history[1] = path
	   else
		error("Root folder deleted",0)
	   end
	  end
	  if fs.exists(history[#history]) then
	   path = history[#history]
	   break
	  end
	 end
	 selected = 0
	end
	if x > 43 and x < 50 then
	 term.setBackgroundColor(colors.black)
	 term.setTextColor(colors.white)
	 term.setCursorPos(1,1)
	 term.clear()
	 return
	end
   elseif e == "mouse_scroll" then
	if b == 1 and #items - scroll > h-2 then
	 scroll = scroll + 1
	end
	if b == -1 and scroll > 0 then
	 scroll = scroll - 1
	end
   else
	if y + scroll == selected then
	 if items[selected] ~= nil then
	  if fs.isDir(path..items[selected]) then
	   path = path .. items[selected] .. "/"
	   history[#history+1] = path
	   selected = 0
	   scroll = 0
	  else
	   term.setBackgroundColor(colors.black)
	   term.setTextColor(colors.white)
	   term.setCursorPos(1,1)
	   term.clear()
	   shell.run(path..items[selected])
	  end
	 end
	else
	 selected = y + scroll
	end
   end
  end
until true
end

Or just duplicate this

pastebin

http://pastebin.com/4JztmQ8N, because the

 doesn't pick up tab, I don't think.

Other than the tiny bug, you got yourself a cool program! Looks really nice!

LDDestroier, on 23 August 2015 - 08:41 PM said:

How about 'Lattice'?

Konlab, on 30 August 2015 - 07:32 PM said:

LDDestroier, on 23 August 2015 - 08:41 PM said:

How about 'Lattice'?

Yes that's a cool name!
Thanks for the suggestion!

LDDestroier, on 03 September 2015 - 06:23 PM said:

I'l go compile a list (in this post, via edit) when I get the time.

• Nicer GUI ( I know WIP, but you can start the changes of the GUI )
• No flicker.

function advancedClear()
   for i=1, 19 do
	  term.setCursorPos(1, i)
	  term.write(string.rep(" ", 51))
	  term.setCursorPos(1, (19-i)+1)
	  term.write(string.rep(" ", 51))
   end
end

• Right click menu [ so we can get the contents of the bottom ]

LeDark Lua, on 03 September 2015 - 07:41 PM said:

example:

function advancedClear()
   for i=1, 19 do
	  term.setCursorPos(1, i)
	  term.write(string.rep(" ", 51))
	  term.setCursorPos(1, (19-i)+1)
	  term.write(string.rep(" ", 51))
   end
end

DannySMc, on 04 September 2015 - 08:59 AM said:

I was using this and actually it is alright, it looks dodgy, and could do with a whole new design update, the idea you have is not bad.

Konlab, on 04 September 2015 - 06:35 PM said:

DannySMc, on 04 September 2015 - 08:59 AM said:

I was using this and actually it is alright, it looks dodgy, and could do with a whole new design update, the idea you have is not bad.

Thanks!

DannySMc, on 04 September 2015 - 07:04 PM said:

(…)
you're welcome, if you need any help just shout me :D/>

Konlab, on 05 September 2015 - 02:28 PM said:

New update: beta 1.0d
(Nothing special I just uploaded the version from my computer)
It should be more stable

DannySMc, on 04 September 2015 - 07:04 PM said:

(…)
you're welcome, if you need any help just shout me :D/>

*shouting*
MEEEEEEEEE
Please I can't find what's causing this bug:
To have the multiselect menu active you have to have in selection: the first or the second or the selected

And the code is getting as updates go even and even more unclean so code cleanup coming in the near future (maybe one will solve this issue)

The GUI rework and other suggestions coming later, I'm focusing to get rid of the multiselect bugs now

Konlab, on 07 September 2015 - 07:32 PM said:

Added new boolean "redraw" which tells if the program needs redraw or no. Ik it's not the best solution, but it's temporary and removed flickering for me :)/>

LeDark Lua, on 11 September 2015 - 08:25 PM said:

AWESOME! Looks cool.

LeDark Lua, on 20 September 2015 - 09:17 AM said:

Hey Konlab, If you would be kind, would you love to port your Lattice to my let's say upcoming OS?

EDIT: If you wan't screenshots, I'll post them.

LDDestroier, on 03 October 2015 - 08:58 PM said:

This is a drastic improvement (based on screenies) from your first version. Keep up the good (looking) work!
Ran in emulator! BUGS!

1. When scrolling mousewheel when there aren't enough files to fill the screen, the screen still flickers a bit.
2. When dragging a file/folder to the same folder, it gives the error "Lattice:765: attempt to concatenate string and nil"
3. In icon mode, if a filename is too long, it gets cut off rather than continuing one line below (as is expected in most file explorers [in actual operating systems]).

Suggestions!

1. Can you have a '..' folder show up always (except at root folder)?
2. When dragging files, can you have it have a 'ghost' filename/icon go with the cursor? I imagine it would be hard to do, but it'd look cool…

Wait_, on 06 October 2015 - 12:45 PM said:

you know what this needs? clippy (͡° ͜ʖ ͡°)

LDDestroier, on 19 October 2015 - 04:42 PM said:

Will the new Lattice…
1. use the Flare API,
2. have networked file system support (view other computers as folders),
3. have tabs,
4. have a sidebar, and/or
5, be compatible with monochrome/grayscale/color computers?

A non-advanced computer can use gray and lightGray if _CC_VERSION is not nil.

While not endprogram do
  Check for current status validity
  Redraw screen
  Pull events
  Check if pulled events did something and save it to a var
  Based on the var and current status call functions
end

LDDestroier, on 19 October 2015 - 06:25 PM said:

By a sidebar, I mean a section of the screen reserved for links to various folders like '/', but also any network drives and floppy disks. Sorta like explorer in Windows 7.

Creator, on 19 October 2015 - 07:00 PM said:

Wouldn't that decrease the space there is for other stuff? It's not like there is much of it anyways.

hugeblank, on 27 November 2015 - 09:01 AM said:

Lattice is a really fluid program, I give it a 10/10! I found it through glass UI, and currently it's a key component to the build of the UI. A suggestion though is adding a way to open programs with a monitor. Like when you right click having an option 'run on monitor'.