RbBFBlokProjPSIVStrn2005.04 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt u/prTpInt DLanInt CLanInt DEncInt BflgInt IconGrupREndGInt RMacCStrnBMacStrnMy App (Classic)BCarStrnMy Application BCMOStrnMy Application BSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt BL86Strn MyApplication PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjYNameStrnApp ContInt paswStrnbClsInt SuprStrn Application bNtrInt bApOInt CompStrnPDefGrup$SnameStrnMenuBar PValInt  EndGInt SCnstGrupTEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0UpltfInt langInt defnStrnCmd+Q EndGInt UEndGInt TCnstGrupVEncoInt nameStrn kFileQuit typeInt defnStrnQuitflagInt CInsGrup0WpltfInt langInt defnStrnE&xit EndGInt WCInsGrup0XpltfInt langInt defnStrnE&xit EndGInt XEndGInt VCnstGrupYEncoInt nameStrn kEditClear typeInt defnStrnClear flagInt CInsGrup0ZpltfInt langInt defnStrn&Delete EndGInt ZCInsGrup0[pltfInt langInt defnStrn&Delete EndGInt [EndGInt YPadnPadn********************************************************************************************************************************BlokpVewu/NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow bNtrInt CompStrnMethGrup\nameStrnFoobar CompStrnsorcGrup\]EncoInt srclStrnSub Foobar(s as String) srclStrnMsgBox ssrclStrnEnd Sub EndGInt ]EncoInt AlasStrnflagInt parmStrn s as String rsltStrnEndGInt \PDefGrup,^nameStrnMenuBar PValStrn34199551EndGInt ^PDefGrup(_nameStrn MacProcID PValInt EndGInt _PDefGrup4`nameStrn BalloonHelp EncoInt PValStrnEndGInt `PDefGrup0anameStrnMinimizeButton PValStrnTrueEndGInt aPDefGrup4bnameStrnMaximizeButton PValStrnFalse EndGInt bPDefGrup0cnameStrn LiveResize PValStrnFalse EndGInt cPDefGrup0dnameStrn Resizeable PValStrnFalse EndGInt dPDefGrup,enameStrn CloseButton PValStrnTrueEndGInt ePDefGrup0fnameStrnMenuBarVisible PValStrnTrueEndGInt fPDefGrup0gnameStrn FullScreen PValStrnFalse EndGInt gPDefGrup(hnameStrnVisible PValStrnTrueEndGInt hPDefGrup8inameStrnTitle EncoInt PValStrnUntitledEndGInt iPDefGrup$jnameStrnBackdropPValStrnEndGInt jPDefGrup(knameStrn BackColor PValInt EndGInt kPDefGrup0lnameStrn HasBackColorPValStrnFalse EndGInt lPDefGrup0mnameStrn Composite PValStrnFalse EndGInt mPDefGrup$nnameStrnFrame PValInt EndGInt nPDefGrup(onameStrn MaxHeight PValInt }EndGInt oPDefGrup$pnameStrnMaxWidthPValInt }EndGInt pPDefGrup(qnameStrn MinHeight PValInt @EndGInt qPDefGrup$rnameStrnMinWidthPValInt @EndGInt rPDefGrup$snameStrnHeight PValInt ,EndGInt sPDefGrup$tnameStrnWidth PValInt ,EndGInt tPDefGrup(unameStrn Placement PValInt EndGInt uCBhvGrup@vSuprStrn PushButton HInsGrup wnameStrnAction CompStrnsorcGrupxEncoInt srclStrn Sub Action()srclStrnDim i as Integer = 12 srclStrnDim s as String srclStrnsrclStrns = System.CommandLine srclStrnsrclStrn Foobar( s ) srclStrnEnd Sub EndGInt xEndGInt wEndGInt vCtrlGrupycclsStrn PushButton nameStrn PushButton PDefGrup8znameStrn InitialParent EncoInt PValStrnEndGInt zPDefGrup({nameStrn Underline PValStrnEndGInt {PDefGrup$|nameStrnItalic PValStrnEndGInt |PDefGrup }nameStrnBoldPValStrnEndGInt }PDefGrup$~nameStrnTextSizePValInt EndGInt ~PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup$nameStrnCancel PValStrnEndGInt PDefGrup$nameStrnDefault PValStrnEndGInt PDefGrup8nameStrnCaption EncoInt PValStrnUntitledEndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt PEndGInt PDefGrup nameStrnTop PValInt =EndGInt PDefGrup nameStrnLeftPValInt TEndGInt PDefGrup(nameStrn ControlOrderPValInt EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn PushButton EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn PushButton1 EndGInt CBixInt EndGInt yPadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnu NameStrnMenuBar1ContInt paswStrnMItmGruppspmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt EndGInt MItmGrup<spmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnEditUndotextStrn&Undo indxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrup|spmuInt nameStrntextStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrup|spmuInt nameStrntextStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditSelectAll textStrn Select &All indxInt scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt EndGInt PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrupOTabGrupContInt eSptInt EndGInt OTabGrupContInt u/EndGInt OTabGrupContInt u/EndGInt LsLcStrnWindow1.PushButton1.Action rEdtRect6nEndGInt PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!