diff options
Diffstat (limited to 'lib/gs/src/gstk_arc.erl')
| -rw-r--r-- | lib/gs/src/gstk_arc.erl | 192 |
1 files changed, 0 insertions, 192 deletions
diff --git a/lib/gs/src/gstk_arc.erl b/lib/gs/src/gstk_arc.erl deleted file mode 100644 index c38bbf4756..0000000000 --- a/lib/gs/src/gstk_arc.erl +++ /dev/null @@ -1,192 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1996-2016. All Rights Reserved. -%% -%% Licensed under the Apache License, Version 2.0 (the "License"); -%% you may not use this file except in compliance with the License. -%% You may obtain a copy of the License at -%% -%% http://www.apache.org/licenses/LICENSE-2.0 -%% -%% Unless required by applicable law or agreed to in writing, software -%% distributed under the License is distributed on an "AS IS" BASIS, -%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -%% See the License for the specific language governing permissions and -%% limitations under the License. -%% -%% %CopyrightEnd% -%% - -%% -%% ------------------------------------------------------------ -%% Basic Arc Type -%% ------------------------------------------------------------ - --module(gstk_arc). --compile([{nowarn_deprecated_function,{gs,creation_error,2}}]). - -%%----------------------------------------------------------------------------- -%% ARC OPTIONS -%% -%% Attributes: -%% bw Int -%% coords [{X1,Y1}, {X2,Y2}] -%% data Data -%% extent Degrees -%% fg Color -%% fill Color -%% start Degrees -%% stipple Bool -%% style pieslice, chord, arc -%% -%% Commands: -%% lower -%% move {Dx, Dy} -%% raise -%% scale {Xo, Yo, Sx, Sy} -%% setfocus Bool -%% -%% Events: -%% buttonpress [Bool | {Bool, Data}] -%% buttonrelease [Bool | {Bool, Data}] -%% enter [Bool | {Bool, Data}] -%% keypress [Bool | {Bool, Data}] -%% keyrelease [Bool | {Bool, Data}] -%% leave [Bool | {Bool, Data}] -%% motion [Bool | {Bool, Data}] -%% -%% Read Options: -%% children -%% id -%% parent -%% type -%% - --export([create/3, config/3, read/3, delete/2, destroy/3, event/5, - option/5,read_option/5]). - --include("gstk.hrl"). - -%%----------------------------------------------------------------------------- -%% MANDATORY INTERFACE FUNCTIONS -%%----------------------------------------------------------------------------- -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Function : create/7 -%% Purpose : Create a widget of the type defined in this module. -%% Args : DB - The Database -%% Objmod - An atom, this module -%% Objtype - An atom, the logical widget type -%% Owner - Pid of the creator -%% Name - An atom naming the widget -%% Parent - Gsid of the parent -%% Opts - A list of options for configuring the widget -%% -%% Return : [Gsid_of_new_widget | {bad_result, Reason}] -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -create(DB, GstkId, Opts) -> - case gstk_canvas:pickout_coords(Opts, [],GstkId#gstkid.objtype,2) of - {error, Error} -> - gs:creation_error(GstkId,Error); - {Coords, NewOpts} -> - Ngstkid=gstk_canvas:upd_gstkid(DB, GstkId, Opts), - #gstkid{widget=CanvasTkW}=Ngstkid, - MCmd = [CanvasTkW, " create ar ", Coords], - gstk_canvas:mk_cmd_and_call(NewOpts,Ngstkid,CanvasTkW,MCmd,DB) - end. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Function : config/3 -%% Purpose : Configure a widget of the type defined in this module. -%% Args : DB - The Database -%% Gstkid - The gstkid of the widget -%% Opts - A list of options for configuring the widget -%% -%% Return : [true | {bad_result, Reason}] -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -config(DB, Gstkid, Opts) -> - gstk_canvas:item_config(DB, Gstkid, Opts). - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Function : read/3 -%% Purpose : Read one option from a widget -%% Args : DB - The Database -%% Gstkid - The gstkid of the widget -%% Opt - An option to read -%% -%% Return : [OptionValue | {bad_result, Reason}] -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -read(DB, Gstkid, Opt) -> - Item = Gstkid#gstkid.widget_data, - gstk_generic:read_option(DB,Gstkid,Opt,[gstk:to_ascii(Item)]). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Function : delete/2 -%% Purpose : Delete widget from databas and return tkwidget to destroy -%% Args : DB - The Database -%% Gstkid - The gstkid of the widget -%% -%% Return : TkWidget to destroy | {Parent, Objmod, Args}. -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -delete(DB, Gstkid) -> - gstk_canvas:item_delete_impl(DB,Gstkid). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Function : destroy/3 -%% Purpose : Destroy a widget -%% Args : DB - The Database -%% Canvas - The canvas tk widget -%% Item - The item number to destroy -%% -%% Return : [true | {bad_result, Reason}] -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -destroy(_DB, Canvas, Item) -> - gstk:exec([Canvas, " delete ", gstk:to_ascii(Item)]). - - -event(DB, Gstkid, Etype, Edata, Args) -> - gstk_generic:event(DB, Gstkid, Etype, Edata, Args). - -%%------------------------------------------------------------------------------ -%% MANDATORY FUNCTIONS -%%------------------------------------------------------------------------------ -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Function : option/5 -%% Purpose : Take care of options -%% Args : MainW - The main tk-widget -%% Canvas - The canvas tk-widget -%% Return : A tuple {OptionType, OptionCmd} -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -option(Option, _Gstkid, _Canvas, _DB, _AItem) -> - case Option of - {bw, Int} -> {s, [" -w ", gstk:to_ascii(Int)]}; - {extent, Degrees} -> {s, [" -e ", gstk:to_ascii(Degrees)]}; - {fg, Color} -> {s, [" -outline ", gstk:to_color(Color)]}; - {start, Degrees} -> {s, [" -start ", gstk:to_ascii(Degrees)]}; - {style, Style} -> {s, [" -sty ", gstk:to_ascii(Style)]}; - _ -> invalid_option - end. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Function : read_option/5 -%% Purpose : Take care of a read option -%% Return : The value of the option or invalid_option -%% [OptionValue | {bad_result, Reason}] -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -read_option(Option, Gstkid, Canvas, _DB, AItem) -> - case Option of - bw -> tcl2erl:ret_int([Canvas, " itemcg ", AItem, " -w"]); - extent -> tcl2erl:ret_int([Canvas, " itemcg ", AItem, " -e"]); - fg -> tcl2erl:ret_color([Canvas, " itemcg ", AItem, " -outline"]); - start -> tcl2erl:ret_int([Canvas, " itemcg ", AItem, " -start"]); - stipple -> tcl2erl:ret_stipple([Canvas, " itemcg ", AItem, " -sti"]); - style -> tcl2erl:ret_atom([Canvas, " itemcg ", AItem, " -sty"]); - - _ -> {bad_result, {Gstkid#gstkid.objtype, invalid_option, Option}} - end. - -%% ----- Done ----- |