--Készítette Fülöp László
require 'CLRPackage'
import "System.Windows.Forms"
import "System.Drawing"

textedit = require "textedit_logic"
text = textedit:new()

--A teljes ablak elrendezése
layout = FlowLayoutPanel()
layout.Width = 600
layout.Height = 600
layout.FlowDirection = FlowDirection.TopDown

subLayout = FlowLayoutPanel()
subLayout.Height = 30
subLayout.Width = 600
subLayout2 = FlowLayoutPanel()
subLayout2.Height = 390
subLayout2.Width = 480

--Fájlnév megadása, megnyitás, mentés gombok
fileNameBox = TextBox()
fileNameBox.Width = 270

button = Button()
button.Text = "Open"
button2 = Button()
button2.Text = "Save"

edit = RichTextBox()
edit.Height = 270
edit.Width = 440

--Fájl betöltése
--Ha a fájl létezik, a tartalmát betölti a szövegdobozba, ha hibát dob, elkapja
function fill_textBox(sender, args)
	local status, cont = pcall(text.load_file, fileNameBox.Text)
	if (status) then edit.Text = cont
	else MessageBox.Show("Nem létező fájl") end
end
button.MouseUp:Add(fill_textBox)

--Fájl mentése
--Ha van jogosultság a fájl írására, akkor a a szöveg doboz tartalmát elmenti bele, felülírva az esetleges korábbi tartalmát,
--ha hibát dob, elkapja
function saveContent(sender, args)
	status = pcall(text.save_file, fileNameBox.Text, edit.Text)
	if (not status) then MessageBox.Show("Nincs írási jogosultság") end
end
button2.MouseUp:Add(saveContent)

subLayout.Controls:Add(fileNameBox)
subLayout.Controls:Add(button)
subLayout.Controls:Add(button2)
subLayout2.Controls:Add(edit)
layout.Controls:Add(subLayout)
layout.Controls:Add(subLayout2)

form = Form()
form.Width = 480
form.Height = 360
form.Text = "Text edit"
form.Controls:Add(layout)
form:ShowDialog()