Date:         Fri, 2 Mar 2001 15:12:10 +0100
Reply-To:     Bart Heinsius <Bart.Heinsius@EOMDATA.NL>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Bart Heinsius <Bart.Heinsius@EOMDATA.NL>
Subject:      Re: Clicking the right mouse button in a table editor
In-Reply-To:  <97o7dq$abp$1@news.inet.tele.dk>
Content-Type: multipart/alternative;

Hi Per,

You can override the model's _GET_ACTION_ method to do this. Try:

In your frame SCL:

  INIT:

   call notify('.','_GET_WIDGET_','TABLE',objTable);
   lProperties = makelist();
   call notify('TABLE','_GET_PROPERTIES_',lProperties);
   objModel = getnitemn(lProperties,'DATAID');
   rc = dellist(lProperties,'Y');
   call send(objModel,'_SET_INSTANCE_METHOD_'
                     ,'_GET_ACTIONS_'
                     ,'WORK.A.METHODS.SCL'
                     ,'GETACT');

  return;/* INIT */

In WORK.A.METHODS.SCL:

  length _method_ $ 40;
  _self_=_self_;
  _method_=_method_;

  /* _GET_ACTIONS_ method override */
  GETACT: method lActions 8 lMap 8 lRow 8 lCol 8;

   objViewer = getnitemn(_self_,'VIEWERID');

   /* Select the cell on which the RMB was issued */
   call send(objViewer,'_SET_ACTIVE_CELL_',lRow,lCol);

   call super(_self_,_method_,lActions,lMap,lRow,lCol);

  endmethod;/* _GET_ACTIONS_ */


Cheers,
Bart


> -----Original Message-----
> From: SAS(r) Discussion [mailto:SAS-L@LISTSERV.UGA.EDU]On Behalf Of Per
> Jensen
> Sent: vrijdag 2 maart 2001 14:33
> To: SAS-L@LISTSERV.UGA.EDU
> Subject: Clicking the right mouse button in a table editor
>
>
> Hi out there.
>
> Does anyone know how to select a datacell in a tableviewer and get a popup
> menu at the same time
> by clicking the rigth mouse button ?
>
> If so, please tell.
>
> Best regards
>
> Per
>


[text/html]