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