REVO2700 List Field Arrows q U Tahoma cREVGeneral scripteditorvscroll 0breakpointconditions debugObjects scripteditorselection 0breakpoints breakpointstates stackfileversion 2.7 P jcommand moveColumnUp pHilitedLines if pHilitedLines is empty then exit moveColumnUp end if local tText put the text of field "ColumnsToDisplay" into tText local tLinesToMove repeat for each item tLineNumber in pHilitedLines put line tLineNumber of tText & return after tLinesToMove end repeat delete the last char of tLinesToMove repeat with tItemNumber = the number of items of pHilitedLines down to 1 put item tItemNumber of pHilitedLines into tLineNumber delete line tLineNumber of tText end repeat local tBeginningOfMovedLines put (item 1 of pHilitedLines) - 1 into tBeginningOfMovedLines put max(1, tBeginningOfMovedLines) into tBeginningOfMovedLines put tLinesToMove & return & line tBeginningOfMovedLines of tText into line tBeginningOfMovedLines of tText set the text of field "ColumnsToDisplay" to tText local tNewHilitedLines repeat with tLineNumber = tBeginningOfMovedLines to (the number of items of pHilitedLines + tBeginningOfMovedLines - 1) put tLineNumber & comma after tNewHilitedLines end repeat delete the last char of tNewHilitedLines set the hilitedLine of field "ColumnsToDisplay" to tNewHilitedLines end moveColumnUp command moveColumnDown pHilitedLines if pHilitedLines is empty then exit moveColumnDown end if local tText put the text of field "ColumnsToDisplay" into tText local tLinesToMove repeat for each item tLineNumber in pHilitedLines put line tLineNumber of tText & return after tLinesToMove end repeat delete the last char of tLinesToMove local tNumberOfDeletedLines put 0 into tNumberOfDeletedLines repeat with tItemNumber = the number of items of pHilitedLines down to 1 put item tItemNumber of pHilitedLines into tLineNumber delete line tLineNumber of tText add 1 to tNumberOfDeletedLines end repeat local tBeginningOfMovedLines put (item -1 of pHilitedLines) - (tNumberOfDeletedLines - 1) into tBeginningOfMovedLines put min(the number of lines of tText, tBeginningOfMovedLines) into tBeginningOfMovedLines put max(1, tBeginningOfMovedLines) into tBeginningOfMovedLines put line tBeginningOfMovedLines of tText & return & tLinesToMove into line tBeginningOfMovedLines of tText set the text of field "ColumnsToDisplay" to tText local tNewHilitedLines repeat with tLineNumber = tBeginningOfMovedLines + 1 to (the number of items of pHilitedLines + tBeginningOfMovedLines) put tLineNumber & comma after tNewHilitedLines end repeat delete the last char of tNewHilitedLines set the hilitedLine of field "ColumnsToDisplay" to tNewHilitedLines end moveColumnDown q cREVGeneral scriptChecksum +m:<breakPoints handlerList moveColumnUp moveColumnDownscriptSelection char 407 to 406 bookmarks scripteditorvscroll 0scripteditorselection 0prevHandler moveColumnDowntempScript script
command moveColumnUp pHilitedLines
if pHilitedLines is empty then
exit moveColumnUp
end if
local tText
put the text of field "ColumnsToDisplay" into tText
local tLinesToMove
repeat for each item tLineNumber in pHilitedLines
put line tLineNumber of tText & return after tLinesToMove
end repeat
delete the last char of tLinesToMove
repeat with tItemNumber = the number of items of pHilitedLines down to 1
put item tItemNumber of pHilitedLines into tLineNumber
delete line tLineNumber of tText
end repeat
local tBeginningOfMovedLines
put (item 1 of pHilitedLines) - 1 into tBeginningOfMovedLines
put max(1, tBeginningOfMovedLines) into tBeginningOfMovedLines
put tLinesToMove & return & line tBeginningOfMovedLines of tText into line tBeginningOfMovedLines of tText
set the text of field "ColumnsToDisplay" to tText
local tNewHilitedLines
repeat with tLineNumber = tBeginningOfMovedLines to (the number of items of pHilitedLines + tBeginningOfMovedLines - 1)
put tLineNumber & comma after tNewHilitedLines
end repeat
delete the last char of tNewHilitedLines
set the hilitedLine of field "ColumnsToDisplay" to tNewHilitedLines
end moveColumnUp
command moveColumnDown pHilitedLines
if pHilitedLines is empty then
exit moveColumnDown
end if
local tText
put the text of field "ColumnsToDisplay" into tText
local tLinesToMove
repeat for each item tLineNumber in pHilitedLines
put line tLineNumber of tText & return after tLinesToMove
end repeat
delete the last char of tLinesToMove
local tNumberOfDeletedLines
put 0 into tNumberOfDeletedLines
repeat with tItemNumber = the number of items of pHilitedLines down to 1
put item tItemNumber of pHilitedLines into tLineNumber
delete line tLineNumber of tText
add 1 to tNumberOfDeletedLines
end repeat
local tBeginningOfMovedLines
put (item -1 of pHilitedLines) - (tNumberOfDeletedLines - 1) into tBeginningOfMovedLines
put min(the number of lines of tText, tBeginningOfMovedLines) into tBeginningOfMovedLines
put max(1, tBeginningOfMovedLines) into tBeginningOfMovedLines
put line tBeginningOfMovedLines of tText & return & tLinesToMove into line tBeginningOfMovedLines of tText
set the text of field "ColumnsToDisplay" to tText
local tNewHilitedLines
repeat with tLineNumber = tBeginningOfMovedLines + 1 to (the number of items of pHilitedLines + tBeginningOfMovedLines)
put tLineNumber & comma after tNewHilitedLines
end repeat
delete the last char of tNewHilitedLines
set the hilitedLine of field "ColumnsToDisplay" to tNewHilitedLines
end moveColumnDown
ColumnsToDisplay #)` F cREVTable currentview Line 1 Line 2 Line 3 Line 4 cREVGeneral scriptChecksum ُ B~handlerList scriptSelection char 1 to 0 bookmarks revUniqueID 1186134859509scripteditorvscroll 0scripteditorselection 0prevHandler tempScript script Line 1 Line 2 Line 3 Line 4 ` @ D Up Ep Son mouseUp moveColumnUp the hilitedLine of field "ColumnsToDisplay" end mouseUp R 0 cREVGeneral scriptChecksum qRͪ0<handlerList mouseUpscriptSelection char 14 to 69 bookmarks revUniqueID 1186134897499scripteditorvscroll 0scripteditorselection 82prevHandler mouseUptempScript scripton mouseUp
moveColumnUp the hilitedLine of field "ColumnsToDisplay"
end mouseUp
Down Ep Uon mouseUp moveColumnDown the hilitedLine of field "ColumnsToDisplay" end mouseUp . R 6 cREVGeneral scriptChecksum yD aڢ.0handlerList mouseUpscriptSelection char 28 to 27 bookmarks revUniqueID 1186134905229scripteditorvscroll 0scripteditorselection 84prevHandler mouseUptempScript scripton mouseUp
moveColumnDown the hilitedLine of field "ColumnsToDisplay"
end mouseUp
Restore Ep on mouseUp set the text of field "ColumnsToDisplay" to "Line 1" & return & "Line 2" & return & "Line 3" & return & "Line 4" end mouseUp g R 4 cREVGeneral scriptChecksum ]Fcӑw$handlerList mouseUpscriptSelection char 126 to 125 bookmarks revUniqueID 1186134979025scripteditorvscroll 0scripteditorselection 138prevHandler tempScript scripton mouseUp
set the text of field "ColumnsToDisplay" to "Line 1" & return & "Line 2" & return & "Line 3" & return & "Line 4"
end mouseUp