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