|
|
@ -1,5 +1,3 @@ |
|
|
|
package provide [lassign {overtype 1.4} pkg ver]$pkg [namespace eval $pkg[set pkg {}] {list [variable version $ver[set ver {}]]$version}] |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#Julian Noble <julian@precisium.com.au> - 2003 |
|
|
|
#Julian Noble <julian@precisium.com.au> - 2003 |
|
|
|
#Released under standard 'BSD license' conditions. |
|
|
|
#Released under standard 'BSD license' conditions. |
|
|
|
# |
|
|
|
# |
|
|
@ -178,3 +176,13 @@ proc overtype::right {args} { |
|
|
|
namespace eval overtype { |
|
|
|
namespace eval overtype { |
|
|
|
interp alias {} ::overtype::center {} ::overtype::centre |
|
|
|
interp alias {} ::overtype::center {} ::overtype::centre |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#breaks in tcl9 due to variable scoping change (fix of 'creative writing' problem) |
|
|
|
|
|
|
|
#package provide [lassign {overtype 1.4} pkg ver]$pkg [namespace eval $pkg[set pkg {}] {list [variable version $ver[set ver {}]]$version}] |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
package provide overtype [namespace eval overtype { |
|
|
|
|
|
|
|
variable version |
|
|
|
|
|
|
|
set version 1.4 |
|
|
|
|
|
|
|
}] |
|
|
|
|
|
|
|
|
|
|
|