🚀 go-pugleaf

DATE: 11/21/87
FROM: Jungle @ PeaceNet, prcsb
SUBJECT: HyperCard script for scriptwriters' mouseLoc tool

Friends at comp.sys.mac:

This little card field I find very handy when writing HyperTalk scripts that
require frequent determination of mouseLoc during the script writing phase. 

It displays the current mouseLoc, and will send the result to the Clipboard for
pasting into your script.

Hope you find this useful; it is simple, and saves time. Please let me know if
you use it too. 

Jungle Payne


============================================
Properties of card field "mouseLoc"

     Rect: 215,192,275,212
     LockText: true
     ShowLines: false
     WideMargins: true
     Style: rectangle
     TextAlign: center
     TextFont: Chicago
     TextHeight: 16
     TextSize: 12
     TextStyle: plain
     Visible: true

Script for card field "mouseLoc"

on mouseDown
  if the optionKey is not down then
    repeat while the mouse is down
      put the mouseLoc into card field "mouseLoc"
    end repeat
  end if
end mousedown

on mouseUp
  if the optionKey is down then
    set lockText of card field "mouseLoc" to false
    click at loc of card field "mouseLoc"
    click at loc of card field "mouseLoc"
    doMenu "Copy Text"
    set lockText of card field "mouseLoc" to true
  end if
end mouseUp 

Developed by:

     Jungle Payne
     P.O. Box 51
     Santa Barbara, CA 93102
     (805) 966-9935
     PeaceNet:prcsb

Thanks to Bob LeVitus for concept.