require 'system'

Shoes.app :resizable=>false do
	@stm=System.new(self)
	@log=stack do
		para 	"UserName:"
		@login	= edit_line
		para	"Password:"
		@pass	= edit_line
		
		
		flow do
			button "login" do
				@stm.do_login(@login.text,@pass.text)
			end
			button "new Account" do
				@stm.new_acc
			end
		end#flow
		button "see Users" do
			@text=""
			file=File.new("users.txt", "r")
			while(line=file.gets)
				a=line.split(" ")
				@text=@text+(a[0]+"\n")
			end#while
			alert @text
		end#button
		
	end#stack
	

end