Hello All!
I wanted to have an oppurtunity to search for the word at the cursor,
without have to program to whole compressedview macro again... This is
what I did:
    // compress_types are [0..1]
    expression = ''
    options = ''
    if compress_type == 0
        if not ask("String to list ..... [rest deleted] )
            return ()
        endif
        if Length(expression) == 0
-->         PushPosition()
-->         PushBlock()
-->         if MarkWord() or (Left() and MarkWord())
-->             options = "ig"
-->             expression = GetMarkedText()
-->         else
-->             options = "x"
-->             expression = "^[a-zA-Z_]"
-->         endif
-->         PopBlock()
-->         PopPosition()
You only have to put the lines marked with --> in your TSE.UI file....
Your Sincerely,
            Henk
P.S. The more I use TSE the more I want it as TSE/2........ :-))))
---
---------------