From 6931dce17580d097351dd7be09ce7c9ed3f72827 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= Date: Mon, 27 Jun 2016 11:48:03 +0200 Subject: Remove the gs application The gs application ws deprecated in R15B01. --- lib/gs/src/gstk_checkbutton.erl | 320 ---------------------------------------- 1 file changed, 320 deletions(-) delete mode 100644 lib/gs/src/gstk_checkbutton.erl (limited to 'lib/gs/src/gstk_checkbutton.erl') diff --git a/lib/gs/src/gstk_checkbutton.erl b/lib/gs/src/gstk_checkbutton.erl deleted file mode 100644 index ac8abaedf3..0000000000 --- a/lib/gs/src/gstk_checkbutton.erl +++ /dev/null @@ -1,320 +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 CheckButton Type -%% ------------------------------------------------------------ - --module(gstk_checkbutton). - -%%------------------------------------------------------------------------------ -%% CHECKBUTTON OPTIONS -%% -%% Attributes: -%% activebg Color -%% activefg Color -%% align n,w,s,e,nw,se,ne,sw,center -%% anchor n,w,s,e,nw,se,ne,sw,center -%% bg Color -%% bw Int -%% data Data -%% disabledfg Color -%% fg Color -%% group Atom -%% groupid Groupid -%% height Int -%% highlightbg Color -%% highlightbw Int -%% highlightfg Color -%% justify left|right|center -%% label {text, String} | {image, BitmapFile} -%% padx Int (Pixels) -%% pady Int (Pixels) -%% relief Relief [flat|raised|sunken|ridge|groove] -%% select Bool -%% selectbg Color -%% underline Int -%% width Int -%% wraplength Int -%% x Int -%% y Int -%% -%% Commands: -%% enable Bool -%% flash -%% invoke -%% setfocus Bool -%% toggle -%% -%% Events: -%% buttonpress [Bool | {Bool, Data}] -%% buttonrelease [Bool | {Bool, Data}] -%% click [Bool | {Bool, Data}] -%% destroy [Bool | {Bool, Data}] -%% enter [Bool | {Bool, Data}] -%% focus [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 -%% -%% Not Implemented: -%% cursor ?????? -%% focus ?????? (-takefocus) -%% font ?????? -%% - --export([create/3,config/3,read/3,delete/2,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. -%% Return : [Gsid_of_new_widget | {bad_result, Reason}] -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -create(DB, GstkId, Opts) -> - TkW = gstk_generic:mk_tkw_child(DB,GstkId), - {G, GID, _NOpts} = fix_group(Opts, DB, GstkId#gstkid.owner), - NGstkId=GstkId#gstkid{widget=TkW,widget_data={G, GID}}, - PlacePreCmd = [";place ", TkW], - case gstk_generic:make_command(Opts,NGstkId,TkW,"",PlacePreCmd,DB) of - {error,Reason} -> {error,Reason}; - Cmd when is_list(Cmd) -> - gstk:exec(["checkbutton ", TkW," -bo 2 -indi true ",Cmd]), - NGstkId - 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) -> - TkW = Gstkid#gstkid.widget, - {NOpts, NGstkid} = fix_group(Opts, DB, Gstkid#gstkid.owner, Gstkid), - SimplePreCmd = [TkW, " conf"], - PlacePreCmd = [";place ", TkW], - gstk_generic:mk_cmd_and_exec(NOpts,NGstkid,TkW,SimplePreCmd,PlacePreCmd,DB). - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% 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) -> - gstk_generic:read_option(DB, Gstkid, Opt). - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% 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 -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -delete(DB, Gstkid) -> - gstk_db:delete_widget(DB, Gstkid), - {_, Gid} = Gstkid#gstkid.widget_data, - gstk_db:delete_bgrp(DB, Gid), - Gstkid#gstkid.widget. - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Function : event/5 -%% Purpose : Construct the event and send it to the owner of the widget -%% Args : DB - The Database -%% Gstkid - The gstkid of the widget -%% Etype - The event type -%% Edata - The event data -%% Args - The data from tcl/tk -%% -%% Return : true -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -event(DB, Gstkid, Etype, Edata, Args) -> - Arg2 = case Etype of - click -> - [Text, Bool | Rest] = Args, - RBool = case Bool of - 1 -> true; - _Other2 -> false - end, - {G, _Gid} = Gstkid#gstkid.widget_data, - [Text, G, RBool | Rest]; - _Other3 -> - Args - end, - gstk_generic:event(DB, Gstkid, Etype, Edata, Arg2). - - - -%%------------------------------------------------------------------------------ -%% MANDATORY FUNCTIONS -%%------------------------------------------------------------------------------ -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Function : option/4 -%% Purpose : Take care of options -%% Args : Option - An option tuple -%% Gstkid - The gstkid of the widget -%% TkW - The tk-widget -%% DB - The Database -%% -%% Return : A tuple {OptionType, OptionCmd} -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -option(Option, Gstkid, TkW, DB,_) -> - case Option of - {disabledfg, Color} -> {s, [" -disabledforegr ", gstk:to_color(Color)]}; - {group, Group} -> {s, [" -var ", gstk:to_ascii(Group)]}; - {selectbg, Color} -> {s, [" -selectc ", gstk:to_color(Color)]}; - {underline, Int} -> {s, [" -un ", gstk:to_ascii(Int)]}; - {wraplength, Int} -> {s, [" -wr ", gstk:to_ascii(Int)]}; - - flash -> {c, [TkW, " f;"]}; - invoke -> {c, [TkW, " i;"]}; - toggle -> {c, [TkW, " to;"]}; - {select, true} -> {c, [TkW, " se;"]}; - {select, false} -> {c, [TkW, " de;"]}; - {click, On} -> cbind(DB, Gstkid, click, On); - _ -> invalid_option - end. - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Function : read_option/3 -%% Purpose : Take care of a read option -%% Args : DB - The Database -%% Gstkid - The gstkid of the widget -%% Option - An option -%% -%% Return : The value of the option or invalid_option -%% [OptionValue | {bad_result, Reason}] -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -read_option(Option,Gstkid, TkW,DB,_) -> - case Option of - disabledfg -> tcl2erl:ret_color([TkW," cg -disabledforegr"]); - group -> {G, _} = Gstkid#gstkid.widget_data, G; - selectbg -> tcl2erl:ret_color([TkW," cg -selectc"]); - groupid -> {_, Gid} = Gstkid#gstkid.widget_data, Gid; - underline -> tcl2erl:ret_int([TkW," cg -un"]); - wraplength -> tcl2erl:ret_int([TkW," cg -wr"]); - select -> tcl2erl:ret_bool(["set x [", TkW, - " cg -va];global $x;set $x"]); - - click -> gstk_db:is_inserted(DB, Gstkid, click); - _ -> {bad_result, {Gstkid#gstkid.objtype, invalid_option, Option}} - end. - -%%------------------------------------------------------------------------------ -%% PRIMITIVES -%%------------------------------------------------------------------------------ -%% check button version -%% create version -fix_group(Opts, DB, Owner) -> - {G, GID, NOpts} = fg(Opts, erlNIL, erlNIL, []), - NG = case G of - erlNIL -> - Vref = gstk_db:counter(DB, variable), - list_to_atom(lists:flatten(["cb", gstk:to_ascii(Vref)])); - Other1 -> Other1 - end, - RGID = case GID of - erlNIL -> {cbgrp, NG, Owner}; - Other2 -> Other2 - end, - RG = gstk_db:insert_bgrp(DB, RGID), - {NG, RGID, [{group, RG} | NOpts]}. - -%% config version -fix_group(Opts, DB, Owner, Gstkid) -> - {RG, RGID} = Gstkid#gstkid.widget_data, - {G, GID, NOpts} = fg(Opts, RG, RGID, []), - case {G, GID} of - {RG, RGID} -> - {NOpts, Gstkid}; - {NG, RGID} -> - NGID = {cbgrp, NG, Owner}, - gstk_db:delete_bgrp(DB, RGID), - NRG = gstk_db:insert_bgrp(DB, NGID), - NGstkid = Gstkid#gstkid{widget_data={NG,NGID}}, - gstk_db:insert_widget(DB, NGstkid), - {[{group, NRG} | NOpts], NGstkid}; - {_, NGID} when NGID =/= RGID -> - gstk_db:delete_bgrp(DB, RGID), - NRG = gstk_db:insert_bgrp(DB, NGID), - NGstkid = Gstkid#gstkid{widget_data={RG,NGID}}, - gstk_db:insert_widget(DB, NGstkid), - {[{group, NRG} | NOpts], NGstkid} - end. - - - -fg([{group, G} | Opts], _, GID, Nopts) -> - fg(Opts, G, GID, Nopts); - -fg([{groupid, GID} | Opts], G, _, Nopts) -> - fg(Opts, G, GID, Nopts); - -fg([Opt | Opts], G, GID, Nopts) -> - fg(Opts, G, GID, [Opt | Nopts]); - -fg([], Group, GID, Opts) -> - {Group, GID, Opts}. - - -%% -%% Config bind -%% -cbind(DB, Gstkid, Etype, On) -> - TkW = Gstkid#gstkid.widget, - Cmd = case On of - {true, Edata} -> - Eref = gstk_db:insert_event(DB, Gstkid, Etype, Edata), - [" -command {erlsend ", Eref, " \\\"[", TkW, - " cg -text]\\\" \[expr \$[", TkW, " cg -va]\]}"]; - true -> - Eref = gstk_db:insert_event(DB, Gstkid, Etype, ""), - [" -command {erlsend ", Eref, " \\\"[", TkW, - " cg -text]\\\" \[expr \$[", TkW, " cg -va]\]}"]; - _Other -> - gstk_db:delete_event(DB, Gstkid, Etype), - " -command {}" - end, - {s, Cmd}. - -%% ----- Done ----- - -- cgit v1.2.3