>* Program: lanMess.prg >ON SHUTDOWN quit >_Screen.Visible=.f. >DO tmess >READ events > >>
>oForm = CreateObject("Tform") >oForm.Show(1) >* end of main > >DEFINE CLASS Tform As Form > Width=520 > Height=280 > Caption="LAN Messenger" > BorderStyle=2 > MaxButton=.F. > MinButton=.F. > Autocenter=.T. > WindowState=1 > ShowWindow=2 > ADD OBJECT msg As Tmsg WITH Left=5, Top=5 > >PROCEDURE Init > * a mailslot name automatically keeps all LAN users together in a group; > * currently "foxapp" name is used, in fact it might be any valid file name > * except some reserved names like "Messngr" or "BROWSE" > THIS.msg.TurnOn("foxapp") >ENDDEFINE > >>