The R13B03 release.OTP_R13B03

1 files changed, 248 insertions, 0 deletions

diff --git a/lib/wx/examples/demo/ex_canvas_paint.erl b/lib/wx/examples/demo/ex_canvas_paint.erl
new file mode 100644
index 0000000000..38d6b62f1d
--- /dev/null
+++ b/lib/wx/examples/demo/ex_canvas_paint.erl
@@ -0,0 +1,248 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+
+-module(ex_canvas_paint).
+
+-behaviour(wx_object).
+
+%% Client API
+-export([start/1]).
+
+%% wx_object callbacks
+-export([init/1, terminate/2,  code_change/3,
+	 handle_info/2, handle_call/3, handle_event/2, handle_sync_event/3]).
+
+-include_lib("wx/include/wx.hrl").
+
+-record(state, 
+	{
+	  parent,
+	  config,
+	  canvas,
+	  pen,
+	  brush,
+	  old_pos,
+	  bitmap
+	}).
+
+start(Config) ->
+    wx_object:start_link(?MODULE, Config, []).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+init(Config) ->
+    wx:batch(fun() -> do_init(Config) end).
+
+do_init(Config) ->
+    Parent = proplists:get_value(parent, Config),  
+    Panel = wxPanel:new(Parent, []),
+
+    %% Setup sizers
+    MainSizer = wxBoxSizer:new(?wxVERTICAL),
+    Sizer = wxStaticBoxSizer:new(?wxVERTICAL, Panel, 
+				 [{label, "wxDC"}]),
+    
+    %% Create the window to paint on and make it repaint the whole window on resize
+    Canvas = wxPanel:new(Panel, [{style, ?wxFULL_REPAINT_ON_RESIZE}]),
+    wxPanel:setToolTip(Canvas,
+		       "Left-click and hold to draw something - release to stop drawing.\n"
+		       "Middle-click to fill with pink\n"
+		       "Middle-dclick to fill with white.\n"
+		       "Right-click to clear."),
+
+    %% Create a wxPen and a WxBrush and set its colors to draw with
+    Brush = wxBrush:new(?wxWHITE),
+    Pen = wxPen:new(?wxBLACK, [{width, 2}]),
+    
+    PrintButton = wxButton:new(Panel, ?wxID_ANY, [{label, "Print"}]),
+
+    Bitmap = wxBitmap:new(30,30),
+
+    %% Add to sizers
+    wxSizer:add(Sizer, Canvas, [{flag, ?wxEXPAND},
+				{proportion, 1}]),
+
+    wxSizer:add(MainSizer, PrintButton, []),
+    wxSizer:add(MainSizer, Sizer, [{flag, ?wxEXPAND},
+				   {proportion, 1}]),
+    
+    wxPanel:connect(PrintButton, command_button_clicked),
+    wxPanel:connect(Canvas, paint, [callback]),
+    wxPanel:connect(Canvas, size),
+    wxPanel:connect(Canvas, left_down),
+    wxPanel:connect(Canvas, left_dclick),
+    wxPanel:connect(Canvas, left_up),
+    wxPanel:connect(Canvas, right_down),
+    wxPanel:connect(Canvas, middle_down),
+    wxPanel:connect(Canvas, middle_dclick),
+    wxPanel:setSizer(Panel, MainSizer),
+    wxSizer:layout(MainSizer),
+    {Panel, #state{parent=Panel, config=Config,
+		   canvas = Canvas, pen = Pen,
+		   brush = Brush, bitmap = Bitmap}}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Sync event from callback events, paint event must be handled in callbacks
+%% otherwise nothing will be drawn on windows.
+handle_sync_event(#wx{event = #wxPaint{}}, _wxObj, #state{canvas=Canvas, bitmap=Bitmap}) ->
+    DC = wxPaintDC:new(Canvas),
+    redraw(DC, Bitmap),
+    wxPaintDC:destroy(DC),
+    ok.
+
+%% Print what's drawn
+handle_event(#wx{event = #wxCommand{type = command_button_clicked}},
+	     State = #state{bitmap=Bitmap}) ->
+    PD = wxPrintData:new(),
+    PDD = wxPrintDialogData:new(PD),
+    PSDD = wxPageSetupDialogData:new(PD),
+    Fun =
+	fun(This,_Page) ->
+		MX = MY = 500,  
+		wxPrintout:fitThisSizeToPageMargins(This, {MX,MY}, PSDD),
+		{_X,_Y,W,H} = wxPrintout:getLogicalPageMarginsRect(This, PSDD),
+		wxPrintout:offsetLogicalOrigin(This,(W-MX) div 2, (H-MY) div 2),
+		DC = wxPrintout:getDC(This),
+		redraw(DC, Bitmap),
+		true
+	end,
+    Printout1 = wxPrintout:new("Print", Fun,
+			       [{getPageInfo, fun getPageInfo/1}]),
+    Printout2 = wxPrintout:new("Print", Fun,
+			       [{getPageInfo, fun getPageInfo/1}]),
+    Preview = wxPrintPreview:new(Printout1, [{printoutForPrinting,Printout2},{data,PDD}]), 
+    case wxPrintPreview:isOk(Preview) of
+	true ->
+	    Env = wx:get_env(), 
+	    spawn_link(fun() ->
+			       wx:set_env(Env),
+			       PF = wxPreviewFrame:new(Preview, State#state.parent, []),
+			       wxPreviewFrame:centre(PF, [{dir, ?wxBOTH}]),
+			       wxPreviewFrame:initialize(PF),
+			       wxPreviewFrame:centre(PF),
+			       wxPreviewFrame:show(PF)
+		       end);
+	false ->
+	    io:format("Could not create preview window.\n"
+		      "Perhaps your current printer is not set correctly?~n", []),
+	    wxPrintPreview:destroy(Preview)
+    end,
+    {noreply, State#state{}};
+%% Draw a line
+handle_event(#wx{event = #wxMouse{type = motion, x = X, y = Y}},
+	     State = #state{canvas = Canvas, pen = Pen, brush = Brush}) ->
+    Fun =
+	fun(DC) ->
+		wxDC:setPen(DC, Pen),
+		wxBrush:setColour(Brush, ?wxBLACK),
+		wxDC:setBrush(DC, Brush),
+		wxDC:drawLine(DC, {X,Y}, State#state.old_pos)
+	end,
+    draw(Canvas,State#state.bitmap, Fun),
+    {noreply, State#state{old_pos = {X,Y}}};
+%% Resize event
+handle_event(#wx{event = #wxSize{size = {W,H}}}, State = #state{bitmap=Prev}) ->
+    wxBitmap:destroy(Prev),
+    Bitmap = wxBitmap:new(W,H),
+    draw(State#state.canvas, Bitmap, fun(DC) -> wxDC:clear(DC) end),
+    {noreply, State#state{bitmap=Bitmap}};
+handle_event(#wx{event = #wxMouse{type = left_dclick,x = X,y = Y}}, State = #state{}) ->
+    wxPanel:connect(State#state.canvas, motion),
+    {noreply, State#state{old_pos = {X,Y}}};
+handle_event(#wx{event = #wxMouse{type = left_down,x = X,y = Y}}, State = #state{}) ->
+    wxPanel:connect(State#state.canvas, motion),
+    {noreply, State#state{old_pos = {X,Y}}};
+%% Fill with pink color
+handle_event(#wx{event = #wxMouse{type = middle_down,x = X, y =Y}}, State = #state{}) ->
+    case os:type() of
+	{_, darwin} ->
+	    io:format("Fill doesn't work on Darwin ~n",[]);
+	_ ->
+	    ok
+    end,
+    Fun =
+	fun(DC) ->
+		wxBrush:setColour(State#state.brush, {255,125,255,255}),
+		wxDC:setBrush(DC, State#state.brush),
+		wxDC:floodFill(DC, {X,Y}, ?wxBLACK, [{style, ?wxFLOOD_BORDER}])
+	end,
+    
+    draw(State#state.canvas, State#state.bitmap, Fun),
+    {noreply, State};
+%% Fill with white color
+handle_event(#wx{event = #wxMouse{type = middle_dclick,x = X, y =Y}}, State = #state{}) ->
+    Fun =
+	fun(DC) ->
+		wxBrush:setColour(State#state.brush, ?wxWHITE),
+		wxDC:setBrush(DC, State#state.brush),
+		wxDC:floodFill(DC, {X,Y}, ?wxBLACK, [{style, ?wxFLOOD_BORDER}])
+	end,
+    
+    draw(State#state.canvas,  State#state.bitmap,Fun),
+    {noreply, State};
+handle_event(#wx{event = #wxMouse{type = left_up}}, State = #state{}) ->
+    wxPanel:disconnect(State#state.canvas, motion),
+    {noreply, State};
+%% Clear the DC
+handle_event(#wx{event = #wxMouse{type = right_down}}, State = #state{}) ->
+    draw(State#state.canvas, State#state.bitmap, fun(DC) -> wxDC:clear(DC) end),
+    {noreply, State}.
+
+%% Callbacks handled as normal gen_server callbacks
+handle_info(Msg, State) ->
+    demo:format(State#state.config, "Got Info ~p\n", [Msg]),
+    {noreply, State}.
+
+handle_call(Msg, _From, State) ->
+    demo:format(State#state.config, "Got Call ~p\n", [Msg]),
+    {reply,{error, nyi}, State}.
+
+code_change(_, _, State) ->
+    {stop, ignore, State}.
+
+terminate(_Reason, _State) ->
+    ok.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Local functions
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+draw(Canvas, Bitmap, Fun) ->
+    MemoryDC = wxMemoryDC:new(Bitmap),
+    CDC = wxClientDC:new(Canvas),
+
+    Fun(MemoryDC),
+    
+    wxDC:blit(CDC, {0,0},
+	      {wxBitmap:getWidth(Bitmap), wxBitmap:getHeight(Bitmap)},
+	      MemoryDC, {0,0}),
+    
+    wxClientDC:destroy(CDC),
+    wxMemoryDC:destroy(MemoryDC).
+
+redraw(DC, Bitmap) ->
+    MemoryDC = wxMemoryDC:new(Bitmap),
+
+    wxDC:blit(DC, {0,0},
+	      {wxBitmap:getWidth(Bitmap), wxBitmap:getHeight(Bitmap)},
+	      MemoryDC, {0,0}),
+
+    wxMemoryDC:destroy(MemoryDC).
+
+
+getPageInfo(_This) -> 
+    {1,1,1,1}.