On Tue, Nov 3, 2009 at 8:03 PM, Larry <hayes_sm...@hotmail.com> wrote:
> Having nothing better to do, I sang a little song and did a little jig...

> Sometimes, you want to copy or move a column block to a location where
> you want it to push the below-cursor lines down, like copying a marked line
> block. What usually happens is that the column block just pushes the text
> below and to the right of the cursor to the right edge of the column block
> rather than pushing the lines down the file.

> This macro will make line-space below the cursor line and copy the marked
> column block to the new empty lines.

> Now, is there an easier or better way to do this?

> // --- source starts here
> // copy a column block like a line block

> <ctrlshift x><c> execmacro("jigcopycolaslines")

> proc main()

> integer i=0
> integer j=0

> if isblockmarked()==_column_
>   i=query(blockendline)-query(blockbegline)+1
>   pushposition()
>   for j=1 to i
>     addline()
>   endfor
>   popposition()
>   copyblock()
> endif

> end
> // --- source ends here

-----Original Message-----
From: semware@googlegroups.com [mailto:semware@googlegroups.com] On Behalf Of S.E. Mitchell
Sent: zaterdag 7 november 2009 15:20
To: semware@googlegroups.com

Cc: TsePro
Subject: [TSE] Re: Copying a column block to lines

Cool - this is something I frequently have to do manually.

I don't know if this is easier or better, but it is different - and
only slightly tested:

public proc copy_col_as_lines()
    if isBlockMarked() == _COLUMN_
        MarkLine(Query(BlockBegLine), Query(BlockEndLine))
    endif
    CopyBlock()
end

Thanks for sharing your macro!

On Tue, Nov 3, 2009 at 8:03 PM, Larry <hayes_sm...@hotmail.com> wrote:
> Having nothing better to do, I sang a little song and did a little jig...

> Sometimes, you want to copy or move a column block to a location where
> you want it to push the below-cursor lines down, like copying a marked line
> block. What usually happens is that the column block just pushes the text
> below and to the right of the cursor to the right edge of the column block
> rather than pushing the lines down the file.

> This macro will make line-space below the cursor line and copy the marked
> column block to the new empty lines.

> Now, is there an easier or better way to do this?

> // --- source starts here
> // copy a column block like a line block

> <ctrlshift x><c> execmacro("jigcopycolaslines")

> proc main()

> integer i=0
> integer j=0

> if isblockmarked()==_column_
>   i=query(blockendline)-query(blockbegline)+1
>   pushposition()
>   for j=1 to i
>     addline()
>   endfor
>   popposition()
>   copyblock()
> endif

> end
> // --- source ends here

This message contains information that may be privileged or confidential and is the property of the Capgemini Group. It is
intended only for the person to whom it is addressed. If you are not the intended recipient, you are not authorized to
read, print, retain, copy, disseminate, distribute, or use this message or any part thereof. If you receive this message
in error, please notify the sender immediately and delete all copies of this message.

<rob.den.hei...@capgemini.com> wrote:

> This looks different.
> The first macro clears some space for the column block to be copied, then copies the column block only
> The second one extends the column block to a line block, then copies the whole line-block - including any text right or left of the marked column...

> cheers,
> Rob.

> -----Original Message-----
> From: semware@googlegroups.com [mailto:semware@googlegroups.com] On Behalf Of S.E. Mitchell
> Sent: zaterdag 7 november 2009 15:20
> To: semware@googlegroups.com
> Cc: TsePro
> Subject: [TSE] Re: Copying a column block to lines

> Cool - this is something I frequently have to do manually.

> I don't know if this is easier or better, but it is different - and
> only slightly tested:

> public proc copy_col_as_lines()
>    if isBlockMarked() == _COLUMN_
>        MarkLine(Query(BlockBegLine), Query(BlockEndLine))
>    endif
>    CopyBlock()
> end

> Thanks for sharing your macro!

> On Tue, Nov 3, 2009 at 8:03 PM, Larry <hayes_sm...@hotmail.com> wrote:
>> Having nothing better to do, I sang a little song and did a little jig...

>> Sometimes, you want to copy or move a column block to a location where
>> you want it to push the below-cursor lines down, like copying a marked line
>> block. What usually happens is that the column block just pushes the text
>> below and to the right of the cursor to the right edge of the column block
>> rather than pushing the lines down the file.

>> This macro will make line-space below the cursor line and copy the marked
>> column block to the new empty lines.

>> Now, is there an easier or better way to do this?

>> // --- source starts here
>> // copy a column block like a line block

>> <ctrlshift x><c> execmacro("jigcopycolaslines")

>> proc main()

>> integer i=0
>> integer j=0

>> if isblockmarked()==_column_
>>   i=query(blockendline)-query(blockbegline)+1
>>   pushposition()
>>   for j=1 to i
>>     addline()
>>   endfor
>>   popposition()
>>   copyblock()
>> endif

>> end
>> // --- source ends here

> This message contains information that may be privileged or confidential and is the property of the Capgemini Group. It is
> intended only for the person to whom it is addressed. If you are not the intended recipient, you are not authorized to
> read, print, retain, copy, disseminate, distribute, or use this message or any part thereof. If you receive this message
> in error, please notify the sender immediately and delete all copies of this message.