adding tcl00 abbrev

mittelmark · Dec 31, 2024 · 741f2b3 · 741f2b3
1 parent 8661fce
commit 741f2b3
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/jasspa/macros/tcl.eaf b/jasspa/macros/tcl.eaf
@@ -117,6 +117,10 @@ arrnam "array names \parr pattern?\P" "  array names"
 arrset "array set \parr $list\P"  "  array set"
 arrsize "array size \parr   \P" "  array size"
  "" ""
+ "" "</FOLD><FOLD+> \ecCTclOO:\ecA "
+oocl "oo::class create \p {\r    variable options\rconstructor {args} {\r    # default options\rmy variable options\rarray set options [list -opt val]\rmy configure {*}$args\r\B\B\B\B}\rmethod configure {args} {\r    my variable options\rif {[llength $args] == 0} {\r    return [array get options]\r\B\B\B\B} else {\r    array set options $args\r\B\B\B\B}\r\B\B\B\B}\r\B\B\B\B}\r\P" "  oocl"
+oome "method \p {} {\r    my variable options\r\B\B\B\B}\r\P" "  oome"
+ooob "set \p [clsname new -opt val]\P" "  ooob"
  "" "</FOLD><FOLD+> \ecCSnit:\ecA "
 snitwidget "snit::widget \p {\r    constructor {args} {\r   $self configurelist $args\r   }\r}\P" "  snit::widget"
 snittype "snit::type \p {\r    constructor {args} {\r       $self configurelist $args    \r }\r}\P" "  snit::type"