Erlang Mailing Lists

-module(listings2).

-include_lib("kernel/include/file.hrl").
-include_lib("wx/include/wx.hrl").

-import(lists,[map/2, sort/1]).

-compile(export_all).

-define(NEW,100).
-define(OPEN,101).
-define(SAVE,102).
-define(SAVEAS,103).
-define(EXIT,?wxID_EXIT).

%% Top-level function
start() ->
   WX = wx:new(),
   Frame = wxFrame:new(wx:null(), ?wxID_ANY, "fileIO"),
   Text = wxTextCtrl:new(Frame, ?wxID_ANY, [{value,"fileIO"}, {style, ?wxTE_MULTILINE}]),
   setup(WX,Frame,Text),
   wxFrame:show(Frame),
   loop(Frame,Text,""),
   wx:destroy().

%% Build the UI
setup(WX,Frame,Text) ->
   MenuBar = wxMenuBar:new(),
   File = wxMenu:new(),

   wxMenu:append(File,?NEW, "New\tCtrl-N"),
   wxMenu:append(File,?OPEN, "Open\tCtrl-O"),
   wxMenu:appendSeparator(File),
   wxMenu:append(File,?SAVE, "Save\tCtrl-S"),
   wxMenu:append(File,?SAVEAS, "Save As\tCtrl-A"),
   wxMenu:appendSeparator(File),
   wxMenu:append(File,?EXIT, "Quit"),

   wxMenuBar:append(MenuBar,File,"&File"),

   wxFrame:setMenuBar(Frame,MenuBar),

   wxTextCtrl:setEditable(Text,true),

   wxFrame:createStatusBar(Frame),
   wxFrame:setStatusText(Frame,"file IO test"),
   wxFrame:connect(Frame,command_menu_selected),
   wxFrame:connect(Frame,close_window).

%% UI message loop
loop(Frame,Text,Fname) ->
   receive
      #wx{id=?NEW, event=#wxCommand{type=command_menu_selected}} ->
         wxTextCtrl:clear(Text),
         loop(Frame,Text,"");

      #wx{id=?OPEN, event=#wxCommand{type=command_menu_selected}} ->
         FD = wxFileDialog:new(Frame, [{message, "Select file to open"}]),
         wxDialog:showModal(FD),
         S = wxFileDialog:getFilename(FD),
         wxTextCtrl:loadFile(Text,S),
         loop(Frame,Text,S);

      #wx{id=?SAVE, event=#wxCommand{type=command_menu_selected}} ->
         if
            (is_list(Fname) andalso length(Fname) < 1) ->
               FD = wxFileDialog:new(Frame, [{message, "Select filenamd to save as"}]),
               wxDialog:showModal(FD),
               S = wxFileDialog:getFilename(FD),
               io:format("Save As Filename: ~p~n",[S]),
               wxTextCtrl:saveFile(Text,[{file,S}]),
               loop(Frame,Text,S);
            (is_list(Fname) andalso length(Fname) > 0) ->
               wxTextCtrl:saveFile(Text,[{file,Fname}]),
               loop(Frame,Text,Fname)
         end;

      #wx{id=?SAVEAS, event=#wxCommand{type=command_menu_selected}} ->
         FD = wxFileDialog:new(Frame, [{message, "Select filename to save as"}]),
         wxDialog:showModal(FD),
         S = wxFileDialog:getFilename(FD),
         wxTextCtrl:saveFile(Text,[{file,S}]),
         loop(Frame,Text,S);

      #wx{id=?EXIT, event=#wxCommand{type=command_menu_selected}} ->
         wxWindow:close(Frame,[]),
         wxWindow:destroy(Frame)
   end.