From: Masatsugu Nagata (nagata@kurims.kyoto-u.ac.jp)
Date: 9 Mar 01, 03:09 EST
From: Masatsugu Nagata <nagata@kurims.kyoto-u.ac.jp>
Subject: Twiddle?
Continuing my previous code suggestion, here is the twiddleWords proc...
proc twiddleWords {} {
global twiddlePreference
switch -- $twiddlePreference {
0 {twiddleWords0}
1 {twiddleWords1}
2 {twiddleWords2}
default {message "error!"; return}
}
proc twiddleWords2 {
message "Vince, please fill this in."
}
proc twiddleWords1 {
message "Any volunteers?"
}
proc twiddleWords0 {
if {[getPos] != [selEnd]} {
set start1 [getPos]; set end2 [selEnd]
select $start1
forwardWord; set end1 [getPos]
goto $end2
backwardWord; set start2 [getPos]
} else {
select [set pos [getPos]]
backwardWord; set start1 [getPos]
forwardWord; set end1 [getPos]
goto $pos
forwardWord; set end2 [getPos]
backwardWord; set start2 [getPos]
}
if {$start1 != $start2} {
set mid [getText $end1 $start2]
set one [getText $start2 $end2]
set two [getText $start1 $end1]
replaceText $start1 $end2 "$one$mid$two"
message "transposed words R$oneS with R$twoS"
goto $end2
}
}
where the characters surrounding $one and $two in the
second-last line (the Message line) are curly quote characters.
Mark
--
Mark Nagata
mailto:nagata@kurims.kyoto-u.ac.jp
_______________________________________________
AlphaTcl-developers mailing list
AlphaTcl-developers@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/alphatcl-developers