gistfile1.erl

-module('spare').
-export([start/0]).

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

start() ->
     _WX = wx:new(),
     Frame = wxFrame:new(wx:null(), ?wxID_ANY, "Spare"),
     wxFrame:connect(Frame, close_window), 
     wxFrame:show(Frame),
     % No obvious equivalent to wxApp.SetTopWindow(Frame) found in wxErlang 0.98.2
     loop(Frame),
     wx:destroy().

loop(Frame) ->
  receive
    #wx{event=#wxClose{type=close_window}} ->
       ok % this is not needed --> wxWindow:close(Frame,[])  
  end.