RbBFBlokpObj# qNameStrn stWaitCursorContInt 1rEdtRect_K"5eSptInt bPGpGrupbPElGrup4scKyInt urEdtRect_K"5eSptInt EndGInt bPElGrup4scKyInt rEdtRect_K"5eSptInt EndGInt bPElGrup4scKyInt v.rEdtRect_K"5eSptInt EndGInt bPElGrup4scKyInt f)rEdtRect_K"5eSptInt EndGInt bPElGrup4scKyInt vrEdtRect_K"5eSptInt EndGInt bPElGrup4scKyInt V>rEdtRect_K"5eSptInt EndGInt EndGInt bClsInt NameStrn stWaitCursorSizeInt bNtrInt PropGrupEncoInt declStrnmPrevCursor as MouseCursorsorcGrupstsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrnmPrevCursor as MouseCursorntlnStrnntlnStrnEndGInt EndGInt NoteGrupEncoInt nameStrnAboutflagInt sorcGrupstsrInt stscInt ?ndsrInt ndscInt ?EncoInt ntlnStrnAboutntlnStrn.create an instance of this class in any methodntlnStrn1where you just want a temporary wait cursor, willntlnStrn2cleanup on exit either at end of method or if exitntlnStrn4by exception (mimicking C++ pattern of creating suchntlnStrn?resource allocation objects on the stack, hence the "st" prefixntlnStrnEndGInt EndGInt MethGrup0EncoInt nameStrn ConstructorparmStrnrsltStrnflagInt sorcGrupstsrInt stscInt ndsrInt ndscInt EncoInt srclStrnSub Constructor()srclStrnmPrevCursor = App.MouseCursorsrclStrnApp.MouseCursor = WatchCursorsrclStrnEnd SubEndGInt EndGInt MethGrupEncoInt nameStrn DestructorparmStrnrsltStrnflagInt sorcGrupstsrInt stscInt ndsrInt ndscInt EncoInt srclStrnSub Destructor()srclStrnApp.MouseCursor = mPrevCursorsrclStrnEnd SubEndGInt EndGInt IntrStrnPadnPadn****************EOF!