/* $VER: StickNote.rexx 1.0 (02.9.94)
   Copyright 1994 Soft-Logik Publishing Corporation
   May not be distributed without Soft-Logik Publishing Corporation's express written permission */

ADDRESS 'PAGESTREAM'
options results
addlib("softlogik:libs/slarexxsupport.library", 0, -30)

'settoolmode object'
'getcoord click message "Click to place the sticky note..."'

'DRAWCOLUMN 'click.x click.y p2d(click.x)+2.25 p2d(click.y)+2.75' COLUMNS 1 GUTTER 0.25i '
'EDITCOLUMN NOPRINT FREE '
'FILLED ON '
'SETCOLORSTYLE Yellow COLORNUMBER 0 FILL OBJECT '
'settoolmode text '
'selecttext at 'p2d(click.x)+0.25 p2d(click.y)+0.25