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