/[tcldrop]/tcldrop/modules/core.tcl
ViewVC logotype

Diff of /tcldrop/modules/core.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by fireegl, Sun May 25 11:18:24 2003 UTC revision 1.10 by fireegl, Tue May 27 04:29:04 2003 UTC
# Line 431  namespace import {::tcldrop::*} Line 431  namespace import {::tcldrop::*}
431  # And because [namespace import] imports into the current namespace.  # And because [namespace import] imports into the current namespace.
432  # FixMe: We need to keep up with what modules are loaded, and their versions.  # FixMe: We need to keep up with what modules are loaded, and their versions.
433  proc loadmodule {module {version {}}} {  proc loadmodule {module {version {}}} {
434            # FixMe: The Tcl approved way for the packages to be named are (example):
435            #        tcldrop::users::arraydb
436            #        And NOT like we currently have it:
437            #        tcldrop-users-arraydb
438            #        It would be best (appearance wise) if they were all changed to be more like a standard Tcl package.
439          if {(($version != {}) && ([catch { package require "tcldrop-$module" $version } err])) || ([catch { package require "tcldrop-$module" } err])} {          if {(($version != {}) && ([catch { package require "tcldrop-$module" $version } err])) || ([catch { package require "tcldrop-$module" } err])} {
440                  putlog "[format $::tcldrop::lang(0x209)] $module $version: $err"                  putlog "[format $::tcldrop::lang(0x209)] $module $version: $err"
441                  puterrlog "$::errorInfo"                  puterrlog "$::errorInfo"

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26