1#==========================================================
2# Languages --
3#
4#   handling of PostgreSQL languages
5#==========================================================
6#
7namespace eval Languages {}
8
9
10#----------------------------------------------------------
11# ::Languages::new --
12#
13#   sets up to create a new Language
14#
15# Arguments:
16#   none
17#
18# Returns:
19#   none
20#----------------------------------------------------------
21#
22proc ::Languages::new {} {
23
24    showError [intlmsg "Not yet implemented."]
25
26}; # end proc ::Languages::new
27
28
29#----------------------------------------------------------
30# ::Languages::open --
31#
32#   passes work to design proc for opening a Language
33#
34# Arguments:
35#   language_    name of Language to open in design mode
36#
37# Returns:
38#   none
39#----------------------------------------------------------
40#
41proc ::Languages::open {language_} {
42
43    ::Languages::design $language_
44
45}; # end proc ::Languages::open
46
47
48#----------------------------------------------------------
49# ::Languages::design --
50#
51#   opens window in design mode for selected Language
52#
53# Arguments:
54#   language_    name of Language to open in design mode
55#
56# Returns:
57#   none
58#----------------------------------------------------------
59#
60proc ::Languages::design {language_} {
61
62    showError [intlmsg "Not yet implemented."]
63
64}; # end proc ::Languages::new
65
66
67