>do netted >activate popup mnubef >SITE = " " > >proc netted >DEFINE POPUP mnubef relative COLOR SCHEME 6 FROM 3,55 FONT 'tahoma',11 ; > >DEFINE Bar 1 of mnuBef PROMPT 'site 1 someplace' >DEFINE Bar 2 OF mnuBef PROMPT 'site 2 someplace else" >DEFINE Bar 3 OF mnuBef PROMPT 'site 3' >DEFINE Bar 4 OF mnuBef PROMPT 'etc >DEFINE Bar 5 OF mnuBef PROMPT 'Return to Menu' >On Selection Popup mnubef Do netter > >proc netter >do case >case bar()=1 >site = "https://somewhere.com" >DO NETUP > >case bar()=2 >site = "http://somewhere else.ca" >DO NETUP > >case bar()=3 >site = "http://www.google.ca/" >DO NETUP > >case bar()=4 >site = "http://www.another place.ca/" >DO NETUP > >case bar()=5 >clear >deactivate popup mnubef >return >endcase > >procedure netup >PUBLIC ox >ox=NEWOBJECT("myformx") >BINDEVENT(_screen,"resize",ox,"resize") >ox.show > >DEFINE CLASS myformx as Form > ADD OBJECT txtURL as textbox WITH width=400,value=SITE > ADD OBJECT oweb as cweb WITH top=30 > width=800 > height=800 > alwaysonbottom=.t. > allowoutput=.f. > titlebar=0 > PROCEDURE init > this.oweb.width=thisform.Width > thisform.resize > this.oweb.height=thisform.height-thisform.txtURL.height-2 > thisform.txtURL.valid > PROCEDURE resize > thisform.Width=_screen.Width > thisform.Height=_screen.height > this.oweb.top=30 > this.oweb.height=thisform.Height-100 > this.oweb.width=thisform.width-thisform.left > PROCEDURE txtURL.valid > thisform.oweb.navigate(this.value) >ENDDEFINE > >DEFINE CLASS cweb as olecontrol > oleclass="shell.explorer.2" > PROCEDURE refresh > nodefault >ENDDEFINE > >What SIGHOFF procedure do?