From 84adefa331c4159d432d22840663c38f155cd4c1 Mon Sep 17 00:00:00 2001 From: Erlang/OTP Date: Fri, 20 Nov 2009 14:54:40 +0000 Subject: The R13B03 release. --- lib/wx/src/gen/wxPen.erl | 156 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 156 insertions(+) create mode 100644 lib/wx/src/gen/wxPen.erl (limited to 'lib/wx/src/gen/wxPen.erl') diff --git a/lib/wx/src/gen/wxPen.erl b/lib/wx/src/gen/wxPen.erl new file mode 100644 index 0000000000..cf159f559e --- /dev/null +++ b/lib/wx/src/gen/wxPen.erl @@ -0,0 +1,156 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2008-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% +%% This file is generated DO NOT EDIT + +%% @doc See external documentation: wxPen. +%% @type wxPen(). An object reference, The representation is internal +%% and can be changed without notice. It can't be used for comparsion +%% stored on disc or distributed for use on other nodes. + +-module(wxPen). +-include("wxe.hrl"). +-export([destroy/1,getCap/1,getColour/1,getJoin/1,getStyle/1,getWidth/1,isOk/1, + new/0,new/1,new/2,setCap/2,setColour/2,setColour/4,setJoin/2,setStyle/2, + setWidth/2]). + +%% inherited exports +-export([parent_class/1]). + +%% @hidden +parent_class(_Class) -> erlang:error({badtype, ?MODULE}). + +%% @spec () -> wxPen() +%% @doc See external documentation. +new() -> + wxe_util:construct(?wxPen_new_0, + <<>>). + +%% @spec (Colour::wx:colour()) -> wxPen() +%% @equiv new(Colour, []) +new(Colour) + when tuple_size(Colour) =:= 3; tuple_size(Colour) =:= 4 -> + new(Colour, []). + +%% @spec (Colour::wx:colour(), [Option]) -> wxPen() +%% Option = {width, integer()} | {style, integer()} +%% @doc See external documentation. +new(Colour, Options) + when tuple_size(Colour) =:= 3; tuple_size(Colour) =:= 4,is_list(Options) -> + MOpts = fun({width, Width}, Acc) -> [<<1:32/?UI,Width:32/?UI>>|Acc]; + ({style, Style}, Acc) -> [<<2:32/?UI,Style:32/?UI>>|Acc]; + (BadOpt, _) -> erlang:error({badoption, BadOpt}) end, + BinOpt = list_to_binary(lists:foldl(MOpts, [<<0:32>>], Options)), + wxe_util:construct(?wxPen_new_2, + <<(wxe_util:colour_bin(Colour)):16/binary, BinOpt/binary>>). + +%% @spec (This::wxPen()) -> integer() +%% @doc See external documentation. +getCap(#wx_ref{type=ThisT,ref=ThisRef}) -> + ?CLASS(ThisT,wxPen), + wxe_util:call(?wxPen_GetCap, + <>). + +%% @spec (This::wxPen()) -> wx:colour() +%% @doc See external documentation. +getColour(#wx_ref{type=ThisT,ref=ThisRef}) -> + ?CLASS(ThisT,wxPen), + wxe_util:call(?wxPen_GetColour, + <>). + +%% @spec (This::wxPen()) -> integer() +%% @doc See external documentation. +getJoin(#wx_ref{type=ThisT,ref=ThisRef}) -> + ?CLASS(ThisT,wxPen), + wxe_util:call(?wxPen_GetJoin, + <>). + +%% @spec (This::wxPen()) -> integer() +%% @doc See external documentation. +getStyle(#wx_ref{type=ThisT,ref=ThisRef}) -> + ?CLASS(ThisT,wxPen), + wxe_util:call(?wxPen_GetStyle, + <>). + +%% @spec (This::wxPen()) -> integer() +%% @doc See external documentation. +getWidth(#wx_ref{type=ThisT,ref=ThisRef}) -> + ?CLASS(ThisT,wxPen), + wxe_util:call(?wxPen_GetWidth, + <>). + +%% @spec (This::wxPen()) -> bool() +%% @doc See external documentation. +isOk(#wx_ref{type=ThisT,ref=ThisRef}) -> + ?CLASS(ThisT,wxPen), + wxe_util:call(?wxPen_IsOk, + <>). + +%% @spec (This::wxPen(), CapStyle::integer()) -> ok +%% @doc See external documentation. +setCap(#wx_ref{type=ThisT,ref=ThisRef},CapStyle) + when is_integer(CapStyle) -> + ?CLASS(ThisT,wxPen), + wxe_util:cast(?wxPen_SetCap, + <>). + +%% @spec (This::wxPen(), Colour::wx:colour()) -> ok +%% @doc See external documentation. +setColour(#wx_ref{type=ThisT,ref=ThisRef},Colour) + when tuple_size(Colour) =:= 3; tuple_size(Colour) =:= 4 -> + ?CLASS(ThisT,wxPen), + wxe_util:cast(?wxPen_SetColour_1, + <>). + +%% @spec (This::wxPen(), Red::integer(), Green::integer(), Blue::integer()) -> ok +%% @doc See external documentation. +setColour(#wx_ref{type=ThisT,ref=ThisRef},Red,Green,Blue) + when is_integer(Red),is_integer(Green),is_integer(Blue) -> + ?CLASS(ThisT,wxPen), + wxe_util:cast(?wxPen_SetColour_3, + <>). + +%% @spec (This::wxPen(), JoinStyle::integer()) -> ok +%% @doc See external documentation. +setJoin(#wx_ref{type=ThisT,ref=ThisRef},JoinStyle) + when is_integer(JoinStyle) -> + ?CLASS(ThisT,wxPen), + wxe_util:cast(?wxPen_SetJoin, + <>). + +%% @spec (This::wxPen(), Style::integer()) -> ok +%% @doc See external documentation. +setStyle(#wx_ref{type=ThisT,ref=ThisRef},Style) + when is_integer(Style) -> + ?CLASS(ThisT,wxPen), + wxe_util:cast(?wxPen_SetStyle, + <>). + +%% @spec (This::wxPen(), Width::integer()) -> ok +%% @doc See external documentation. +setWidth(#wx_ref{type=ThisT,ref=ThisRef},Width) + when is_integer(Width) -> + ?CLASS(ThisT,wxPen), + wxe_util:cast(?wxPen_SetWidth, + <>). + +%% @spec (This::wxPen()) -> ok +%% @doc Destroys this object, do not use object again +destroy(Obj=#wx_ref{type=Type}) -> + ?CLASS(Type,wxPen), + wxe_util:destroy(?DESTROY_OBJECT,Obj), + ok. -- cgit v1.2.3