aboutsummaryrefslogtreecommitdiffstats
path: root/lib/gs/src/gstk_widgets.erl
diff options
context:
space:
mode:
authorErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
committerErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
commit84adefa331c4159d432d22840663c38f155cd4c1 (patch)
treebff9a9c66adda4df2106dfd0e5c053ab182a12bd /lib/gs/src/gstk_widgets.erl
downloadotp-84adefa331c4159d432d22840663c38f155cd4c1.tar.gz
otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.bz2
otp-84adefa331c4159d432d22840663c38f155cd4c1.zip
The R13B03 release.OTP_R13B03
Diffstat (limited to 'lib/gs/src/gstk_widgets.erl')
-rw-r--r--lib/gs/src/gstk_widgets.erl93
1 files changed, 93 insertions, 0 deletions
diff --git a/lib/gs/src/gstk_widgets.erl b/lib/gs/src/gstk_widgets.erl
new file mode 100644
index 0000000000..d16c0f7fea
--- /dev/null
+++ b/lib/gs/src/gstk_widgets.erl
@@ -0,0 +1,93 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 1996-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%
+%%
+
+%%
+%% ------------------------------------------------------------
+%% Widget specific data
+%% ------------------------------------------------------------
+%%
+
+-module(gstk_widgets).
+
+-export([type2mod/1, objmod/1, suffix/1]).
+
+-include("gstk.hrl").
+
+
+
+
+%%
+%% Map primitive types to modules or false (false should not be a module!)
+%%
+%% ordered for efficiency
+
+type2mod(window) -> gstk_window;
+type2mod(frame) -> gstk_frame;
+type2mod(button) -> gstk_button;
+type2mod(canvas) -> gstk_canvas;
+type2mod(checkbutton) -> gstk_checkbutton;
+type2mod(rectangle) -> gstk_rectangle;
+type2mod(gs) -> gstk_gs;
+type2mod(grid) -> gstk_grid;
+type2mod(gridline) -> gstk_gridline;
+type2mod(text) -> gstk_text;
+type2mod(image) -> gstk_image;
+type2mod(label) -> gstk_label;
+type2mod(line) -> gstk_line;
+type2mod(entry) -> gstk_entry;
+type2mod(listbox) -> gstk_listbox;
+type2mod(editor) -> gstk_editor;
+type2mod(menu) -> gstk_menu;
+type2mod(menubar) -> gstk_menubar;
+type2mod(menubutton) -> gstk_menubutton;
+type2mod(menuitem) -> gstk_menuitem;
+type2mod(message) -> gstk_message;
+type2mod(oval) -> gstk_oval;
+type2mod(polygon) -> gstk_polygon;
+type2mod(prompter) -> gstk_prompter;
+type2mod(radiobutton) -> gstk_radiobutton;
+type2mod(scale) -> gstk_scale;
+type2mod(scrollbar) -> gstk_scrollbar;
+type2mod(arc) -> gstk_arc;
+type2mod(Type) -> {error,{unknown_type, Type}}.
+
+objmod(#gstkid{objtype=OT}) -> type2mod(OT).
+
+%%
+%% The suffix to add to the parent tk widget
+%%
+suffix(button) -> ".b";
+suffix(canvas) -> ".c";
+suffix(checkbutton) -> ".cb";
+suffix(editor) -> ".ed";
+suffix(entry) -> ".e";
+suffix(frame) -> ".f";
+suffix(label) -> ".l";
+suffix(listbox) -> ".lb";
+suffix(menu) -> ".m";
+suffix(menubar) -> ".bar";
+suffix(menubutton) -> ".mb";
+suffix(message) -> ".ms";
+suffix(prompter) -> ".p";
+suffix(radiobutton) -> ".rb";
+suffix(scale) -> ".sc";
+suffix(window) -> ".w";
+suffix(Objtype) -> apply(type2mod(Objtype), suffix, []).
+
+