[RBG7-L] - Icon Targets

[Charles Parks]

If I use an icon on the desktop with a target that calls this code it
gives a different result than if I use the R>.  Are there different
settings from the icon target and the R>?


SET USER

--If the user hits [Esc] then the program should exit.  It exits from R>
but not from icon target.

  SET VAR vuser = (CVAL('user'))

  IF vUser IS NULL THEN
    SET VAR vUser = 'None'
  ENDIF --vUser IS NULL

  IF (vuser NOT IN ('None', 'Public')) THEN
    PAUSE 2 USING 'yes'
    SET VAR vUser = (CVAL('NetUser'))
  ELSE
    PAUSE 2 USING 'not'
    EXIT
  ENDIF --(CVAL('user')) not in ('None', 'Public')