Index: library/lib/make.tcl =================================================================== diff -u -rb3018d3be0f1524a3f1709edc0e2ddb5d8bc4c0b -r9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0 --- library/lib/make.tcl (.../make.tcl) (revision b3018d3be0f1524a3f1709edc0e2ddb5d8bc4c0b) +++ library/lib/make.tcl (.../make.tcl) (revision 9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0) @@ -7,10 +7,9 @@ package require nx namespace eval ::nx {}; # make pkg_mkIndex happy -namespace import -force ::nx::* ### -Object create make { +nx::Object create make { # # shared lib add files for pkgIndex.tcl # @@ -111,7 +110,7 @@ ### tcl file-command rename file tcl_file -Object create file { +nx::Object create file { :require namespace array set :destructive { @@ -136,7 +135,7 @@ ### minus n option -Class create make::-n +nx::Class create make::-n foreach f [file info methods] { if {$f eq "unknown" || $f eq "next" || $f eq "self"} continue if {![file exists destructive($f)] || [file eval [list set :destructive($f)]]} { @@ -158,7 +157,7 @@ if {![info exists argv] || $argv eq ""} {set argv -all} if {$argv eq "-n"} {set argv "-n -all"} -Class create Script { +nx::Class create Script { :public class method create args { lappend args {*}$::argv set s [next]