From 953ee650a80d863a85c99e82ef69501496db0ad6 Mon Sep 17 00:00:00 2001 From: Dan Gudmundsson Date: Thu, 16 Feb 2012 13:55:08 +0100 Subject: [wx] Fix wxGraphicContext bugs * Lines had wrong arguments * Change float() to number in guards, when packing arguments integers are converted floats to automaticly anyway. --- lib/wx/src/gen/wxDC.erl | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'lib/wx/src/gen/wxDC.erl') diff --git a/lib/wx/src/gen/wxDC.erl b/lib/wx/src/gen/wxDC.erl index 25b452ed61..1ba067b7fb 100644 --- a/lib/wx/src/gen/wxDC.erl +++ b/lib/wx/src/gen/wxDC.erl @@ -227,9 +227,9 @@ drawEllipse(#wx_ref{type=ThisT,ref=ThisRef},{PtX,PtY},{SzW,SzH}) %% @doc See external documentation. -spec drawEllipticArc(This, Pt, Sz, Sa, Ea) -> ok when - This::wxDC(), Pt::{X::integer(), Y::integer()}, Sz::{W::integer(), H::integer()}, Sa::float(), Ea::float(). + This::wxDC(), Pt::{X::integer(), Y::integer()}, Sz::{W::integer(), H::integer()}, Sa::number(), Ea::number(). drawEllipticArc(#wx_ref{type=ThisT,ref=ThisRef},{PtX,PtY},{SzW,SzH},Sa,Ea) - when is_integer(PtX),is_integer(PtY),is_integer(SzW),is_integer(SzH),is_float(Sa),is_float(Ea) -> + when is_integer(PtX),is_integer(PtY),is_integer(SzW),is_integer(SzH),is_number(Sa),is_number(Ea) -> ?CLASS(ThisT,wxDC), wxe_util:cast(?wxDC_DrawEllipticArc, <>). @@ -356,9 +356,9 @@ drawRectangle(#wx_ref{type=ThisT,ref=ThisRef},{PtX,PtY},{SzW,SzH}) %% @doc See external documentation. -spec drawRotatedText(This, Text, Pt, Angle) -> ok when - This::wxDC(), Text::string(), Pt::{X::integer(), Y::integer()}, Angle::float(). + This::wxDC(), Text::string(), Pt::{X::integer(), Y::integer()}, Angle::number(). drawRotatedText(#wx_ref{type=ThisT,ref=ThisRef},Text,{PtX,PtY},Angle) - when is_list(Text),is_integer(PtX),is_integer(PtY),is_float(Angle) -> + when is_list(Text),is_integer(PtX),is_integer(PtY),is_number(Angle) -> ?CLASS(ThisT,wxDC), Text_UC = unicode:characters_to_binary([Text,0]), wxe_util:cast(?wxDC_DrawRotatedText, @@ -366,18 +366,18 @@ drawRotatedText(#wx_ref{type=ThisT,ref=ThisRef},Text,{PtX,PtY},Angle) %% @doc See external documentation. -spec drawRoundedRectangle(This, R, Radius) -> ok when - This::wxDC(), R::{X::integer(), Y::integer(), W::integer(), H::integer()}, Radius::float(). + This::wxDC(), R::{X::integer(), Y::integer(), W::integer(), H::integer()}, Radius::number(). drawRoundedRectangle(#wx_ref{type=ThisT,ref=ThisRef},{RX,RY,RW,RH},Radius) - when is_integer(RX),is_integer(RY),is_integer(RW),is_integer(RH),is_float(Radius) -> + when is_integer(RX),is_integer(RY),is_integer(RW),is_integer(RH),is_number(Radius) -> ?CLASS(ThisT,wxDC), wxe_util:cast(?wxDC_DrawRoundedRectangle_2, <>). %% @doc See external documentation. -spec drawRoundedRectangle(This, Pt, Sz, Radius) -> ok when - This::wxDC(), Pt::{X::integer(), Y::integer()}, Sz::{W::integer(), H::integer()}, Radius::float(). + This::wxDC(), Pt::{X::integer(), Y::integer()}, Sz::{W::integer(), H::integer()}, Radius::number(). drawRoundedRectangle(#wx_ref{type=ThisT,ref=ThisRef},{PtX,PtY},{SzW,SzH},Radius) - when is_integer(PtX),is_integer(PtY),is_integer(SzW),is_integer(SzH),is_float(Radius) -> + when is_integer(PtX),is_integer(PtY),is_integer(SzW),is_integer(SzH),is_number(Radius) -> ?CLASS(ThisT,wxDC), wxe_util:cast(?wxDC_DrawRoundedRectangle_3, <>). @@ -629,7 +629,7 @@ getTextForeground(#wx_ref{type=ThisT,ref=ThisRef}) -> <>). %% @doc See external documentation. --spec getUserScale(This) -> {X::float(), Y::float()} when +-spec getUserScale(This) -> {X::number(), Y::number()} when This::wxDC(). getUserScale(#wx_ref{type=ThisT,ref=ThisRef}) -> ?CLASS(ThisT,wxDC), @@ -905,9 +905,9 @@ setTextForeground(#wx_ref{type=ThisT,ref=ThisRef},Colour) %% @doc See external documentation. -spec setUserScale(This, X, Y) -> ok when - This::wxDC(), X::float(), Y::float(). + This::wxDC(), X::number(), Y::number(). setUserScale(#wx_ref{type=ThisT,ref=ThisRef},X,Y) - when is_float(X),is_float(Y) -> + when is_number(X),is_number(Y) -> ?CLASS(ThisT,wxDC), wxe_util:cast(?wxDC_SetUserScale, <>). -- cgit v1.2.3