Lines Matching defs:text
18 namespace eval ::text::write {
31 proc ::text::write::reset {} {
43 proc ::text::write::clear {} {
53 proc ::text::write::field {args} {
60 proc ::text::write::fieldl {fieldlength text} {
61 # As field, but a text left-aligned in a field of given length.
62 field [format %-${fieldlength}s $text]
66 proc ::text::write::fieldr {fieldlength text} {
67 # As field, but a text right-aligned in a field of given length.
68 field [format %${fieldlength}s $text]
72 proc ::text::write::fieldsep {char} {
78 proc ::text::write::get {} {
79 # Return text of current block.
86 proc ::text::write::getl {} {
94 proc ::text::write::/line {} {
104 proc ::text::write::undo {} {
111 proc ::text::write::prefix {prefix {n 0}} {
112 # Indent current block using the prefix text, skipping the first n lines
123 proc ::text::write::indent {k {n 0}} {
136 proc ::text::write::store {name} {
144 proc ::text::write::recall {name} {
152 proc ::text::write::undef {name} {
159 proc ::text::write::exists {name} {
165 proc ::text::write::copy {src dst} {
172 proc ::text::write::clear-block {name} {
179 proc ::text::write::move {src dst} {
187 proc ::text::write::push {} {
195 proc ::text::write::pop {} {
204 proc ::text::write::pop-append {} {
213 proc ::text::write::maxlen {list} {
232 namespace eval ::text::write {
235 variable currentline {} ; # List of text fragments which make
248 package provide text::write 1