Merge pull request #7 from ijm7/0.2

0.2

src/smoltext.erl

@@ -13,7 +13,9 @@ makeWindow() ->
     Panel = wxPanel:new(Frame, [{style, ?wxDEFAULT_FRAME_STYLE}]),
     Menu = makeMenuBar(),
     wxFrame:setMenuBar(Frame, Menu),
-    TextBox = wxStyledTextCtrl:new(Panel, [{style, ?wxTE_MULTILINE}, {style, ?wxTE_DONTWRAP}, {size, wxFrame:getSize(Frame)}]),
+    StatusBar = wxStatusBar:new(Frame),
+    wxFrame:setStatusBar(Frame, StatusBar),
+    TextBox = wxStyledTextCtrl:new(Panel, [{style, ?wxTE_MULTILINE}, {style, ?wxTE_DONTWRAP}, {id, 1}, {size, wxFrame:getSize(Frame)}]),
     %SIZERS
     TextBoxSizer = wxBoxSizer:new(?wxHORIZONTAL),
     wxSizer:add(TextBoxSizer, TextBox, [{flag, ?wxEXPAND}, {proportion, 1}]),
@@ -23,22 +25,22 @@ makeWindow() ->
     wxFrame:connect(Frame, close_window),
     %wxFrame:connect(Frame, size),
     wxPanel:connect(Panel, command_button_clicked),
-    wxTextCtrl:connect(TextBox, command_text_updated),
-    {Frame, Panel, TextBox, Menu, self()}.
+    wxTextCtrl:connect(TextBox, stc_updateui),
+    {Frame, Panel, TextBox, [], self()}.
 
 makeMenuBar() ->
 	Menu = wxMenuBar:new(),
 	File = wxMenu:new(),
 	wxMenu:append(File, 1, "New"),
 	wxMenu:append(File, 2, "Open"),
 	wxMenu:append(File, ?wxID_EXIT, "Quit"),
-	Edit = wxMenu:new(),
+	%Edit = wxMenu:new(),
 	Help = wxMenu:new(),
-	wxMenu:append(Help, 1, "About"),
+	wxMenu:append(Help, ?wxID_ABOUT, "About"),
     wxMenuBar:append(Menu, File, "File"),
-    wxMenuBar:append(Menu, Edit, "Edit"),
+    %wxMenuBar:append(Menu, Edit, "Edit"),
     wxMenuBar:append(Menu, Help, "Help"),
-    wxMenu:connect(File, command_menu_selected),
+    wxMenu:connect(Menu, command_menu_selected),
     Menu.
 
 loop(State) ->
@@ -47,14 +49,38 @@ loop(State) ->
         #wx{event=#wxClose{}} ->	
 			closeWindow(Frame, Pid);
         #wx{id = ?wxID_EXIT, event=#wxCommand{type = command_menu_selected} } ->
-			closeWindow(Frame, Pid); % we exit the loop
-		%#wx{id = 22, event=#wxCommand{type = command_text_updated}} ->
-		%	io:fwrite("~p~n", [wxTextCtrl:getValue(TextBox)]),
-		%	loop(State);
+			closeWindow(Frame, Pid);
+		#wx{id = ?wxID_ABOUT, event= #wxCommand{type = command_menu_selected} } ->
+			aboutDialog(Frame),
+			loop(State);
+		#wx{event=#wxStyledText{type = stc_updateui}} ->
+			updateStatusBar(Frame, TextBox),
+			loop(State);
+		#wx{id = 1, event=#wxCommand{type = command_menu_selected} } ->
+			spawn(fun() -> start() end),
+			loop(State);
+		#wx{id = 2, event=#wxCommand{type = command_menu_selected} } ->
+			FileName = openFile(Frame, TextBox),
+			AddFile = lists:append([Files, [FileName]]),
+			updateTitle(Frame, AddFile),
+			loop({Frame, [], TextBox, AddFile, Pid});
+		#wx{id = 3, event=#wxCommand{type = command_menu_selected} } ->
+			if 
+				Files /= [] ->
+					saveFile(TextBox, Files),
+					loop(State);
+				true ->
+					loop(State)
+				end;
+
+		#wx{id = 4, event=#wxCommand{type = command_menu_selected} } ->
+			FileName = saveAsFile(Frame, TextBox),
+			AddFile = lists:append([Files, [FileName]]),
+			updateTitle(Frame, AddFile),
+			loop({Frame, [], TextBox, AddFile, Pid});
         _ ->
-			io:fwrite("LOOP"),
+			%io:fwrite("~w~n", [Msg]),
             loop(State)
-
     end.
 
 closeWindow(Frame, Pid) ->
@@ -65,3 +91,56 @@ closeWindow(Frame, Pid) ->
     io:format("~p Closing window ~n",[self()]),
 	wxWindow:destroy(Frame),
 	ok.
+
+saveFile(TextBox, [H|_]) ->
+	wxStyledTextCtrl:saveFile(TextBox, H).
+
+saveAsFile(Frame, TextBox) ->
+	SaveFileDialog = wxFileDialog:new(Frame, [{style, ?wxFD_SAVE}]),
+	ReturnCode = wxDialog:showModal(SaveFileDialog),
+	if 
+		ReturnCode == ?wxID_OK ->
+			SavePath = wxFileDialog:getPath(SaveFileDialog),
+			wxStyledTextCtrl:saveFile(TextBox, SavePath),
+			SavePath;
+		true -> 
+			""
+	end.
+
+openFile(Frame, TextBox) ->
+	OpenFileDialog = wxFileDialog:new(Frame, [{style, ?wxFD_OPEN}]),
+	ReturnCode = wxDialog:showModal(OpenFileDialog),
+	if 
+		ReturnCode == ?wxID_OK ->
+			LoadPath = wxFileDialog:getPath(OpenFileDialog),
+			wxStyledTextCtrl:loadFile(TextBox, LoadPath),
+			LoadPath;
+		true -> 
+			""
+	end.
+
+updateTitle(Frame, [H|_]) ->
+	wxWindow:setLabel(Frame, "smoltext - " ++ filename:basename(H)),
+	ok.
+
+updateStatusBar(Frame, TextBox) ->
+	Row = wxStyledTextCtrl:getCurrentLine(TextBox),
+	Column = wxStyledTextCtrl:getColumn(TextBox, wxStyledTextCtrl:getCurrentPos(TextBox)),
+	StatusText = "line: " ++ integer_to_list(Row + 1) ++ "\tcol: " ++ integer_to_list(Column),
+	wxFrame:setStatusText(Frame, StatusText),
+	ok.
+
+aboutDialog(Frame) ->
+	About = wxDialog:new(Frame, ?wxID_ABOUT, "About", [{style, ?wxDEFAULT_DIALOG_STYLE}]),
+	AboutText = "Smoltext - Version 0.1\n\nSmoltext is a basic text editor with simple functionality.\nTo report issues or suggest additions, please\ngo to https://github.com/ijm7/smoltext/issues\n\n",
+	AboutMessage = wxStaticText:new(About, -1, AboutText, [{style, ?wxALIGN_CENTRE}]),
+	OkButton = wxButton:new(About, ?wxID_OK, [{label, "OK"}]),
+	AboutSizer = wxBoxSizer:new(?wxVERTICAL),
+	{_, VerticalSize} = wxWindow:getSize(About),
+	AboutMessagePosition = trunc(VerticalSize/8),
+	wxSizer:addSpacer(AboutSizer, AboutMessagePosition),
+	wxSizer:add(AboutSizer, AboutMessage, [{flag, ?wxALIGN_CENTRE_HORIZONTAL}, {flag, ?wxALIGN_CENTRE_VERTICAL}]),
+	wxSizer:add(AboutSizer, OkButton, [{flag, ?wxALIGN_CENTRE_HORIZONTAL}, {flag, ?wxALIGN_CENTRE_VERTICAL}]),
+	wxDialog:setSizer(About, AboutSizer),
+	wxDialog:showModal(About),
+	ok.