[Gambas-user] Modifying the popup menu on workspace tab

[richard terry]

On Thu, 13 Mar 2008 07:54:55 am you wrote:
> DIM hTabStrip AS TabStrip
> DIM hCtrl AS Control
>
> FOR EACH hCtrl in aMDIChildWindow.Parent.Parent.Children
>   IF hCtrl IS TabStrip THEN
>      hTabStrip = hCtrl
>      BREAK
>   ENDIF
> NEXT

Yes that seems to have worked:

  Newpage = NEW frmTextEditor
  WorkspaceEditor.Add(NewPage)
   
   
   FOR EACH hCtrl IN NewPage.Parent.Parent.Children
     IF hCtrl IS TabStrip THEN
        hTabStrip = hCtrl
        BREAK
     ENDIF
   NEXT
   hObs = NEW Observer(hTabStrip) AS "tabstrip"

Then my sub below does work, so I should be able to popup the menu.

PUBLIC SUB tabstrip_menu()
   PRINT "being clicked"
   STOP EVENT
  
END SUB

Will try and implement the menu and report back.

Richard