From: Albert Davidson Chou (Al_Chou@CyberDude.com)
Date: 8 Mar 01, 02:38 EST
From: "Albert Davidson Chou" <Al_Chou@CyberDude.com>
Subject: Re: Twiddle?
As David Craig is raising questions about twiddle, let me raise a few of my own:
1) The error messages in twiddle and twiddleWords in textManip.tcl refer to their
old names and should be updated to:
message "twiddle aborted. A space is involved"
and
message "twiddleWords error: two words must be before"
2) Does anyone else ever need the "transpose-lines" function that EMACS provides?
I wrote a simple proc to do this a long time ago and stuck it in my prefs.tcl
along with the EMACS key-binding (CTRL-x CTRL-t). Here it is:
proc twiddleLines {} {
# put the insertion point at the beginning of the current line
set lowerLineBeginning [lineStart [getPos]]
# select the first character, just to get a selection area
select $lowerLineBeginning [pos::math $lowerLineBeginning + 1]
# extend the selection to the end of the line
endLineSelect
# extend the selection to include the carriage return at the end of the line
forwardCharSelect
cut
previousLine
paste
}
Bind 't' <zX> twiddleLines
Al
--
Albert Davidson Chou
Get answers to Mac questions at http://www.mac-mgrs.org/ .
___________________________________________________________________________
Visit http://www.visto.com/info, your free web-based communications center.
Visto.com. Life on the Dot.
_______________________________________________
AlphaTcl-developers mailing list
AlphaTcl-developers@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/alphatcl-developers