Re: Msg Box usage from scripts

[Jim Ault]

Thanks for the quick feedback.
Here is the version that I like for now
on mousedown
  if the controlkey is down then
    put ("find " & quote & the clicktext & quote) into temp
    find the clicktext
    go stack "Message Box"
    put temp into fld "Message Field" of stack "Message Box"   
    select char 7 to -2 of fld "Message Field" of stack "Message Box"
  end if
end mousedown
1) cntr-click and it does a find for the word under the cursor
2) loads   Find "word"    into the msg line
3) hilites the word in case I want to modify the word
4) allows continuous enterkey for more find operations

Thanks for the tip, Jonathan.
(ps.  I also added your utility as cmd-sh-F  :-)
on commandKeyDown whichKey
  if whichKey <> "F" then pass commandKeyDown
  if the shiftkey is not down then pass commandKeyDown
  go stack "Message Box"
  put "Find" && quote & quote into fld "Message Field" of stack "Message Box"
  select char 7 to 6 of fld "Message Field" of stack "Message Box"
end commandKeyDown --Jonathan Cooper 7.26.04
Jim Ault
Las Vegas

Here's a little script I use to partially emulate HyperCard's command-F
"Find" (except that I use command-E):
on commandKeyDown whichKey
  if whichKey <> "E" then pass commandKeyDown
  go stack "Message Box"
  put "Find" && quote & quote into fld "Message Field" of stack "Message
Box"
  select char 7 to 6 of fld "Message Field" of stack "Message Box"
end commandKeyDown
The important bit for you is "put ... into fld "Message Field" of stack
"Message Box".
Jonathan Cooper
Manager of Information / Website
Art Gallery of New South Wales
Sydney, Australia
http://www.artgallery.nsw.gov.au
_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution