RbBFBlokProjPSIVStrn2005.04 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt uÎ/ÿprTpInt DLanInt CLanInt DEncInt BflgInt IconGrup¡EndGInt ¡MacCStrnBMacStrnMy App (Classic)BCarStrnMy Application BCMOStrnMy Application BSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt BL86Strn MyApplication PadnPadnÀ****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjY¯ÿNameStrnApp ContInt paswStrnbClsInt SuprStrn Application bNtrInt bApOInt CompStrnPDefGrup$¢nameStrnMenuBar PValInt  ×ÿEndGInt ¢CnstGrupœ£EncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0¤pltfInt langInt defnStrnCmd+Q EndGInt ¤EndGInt £CnstGrupà¥EncoInt nameStrn kFileQuit typeInt defnStrnQuitflagInt CInsGrup0¦pltfInt langInt defnStrnE&xit EndGInt ¦CInsGrup0§pltfInt langInt defnStrnE&xit EndGInt §EndGInt ¥CnstGrupä¨EncoInt nameStrn kEditClear typeInt defnStrnClear flagInt CInsGrup0©pltfInt langInt defnStrn&Delete EndGInt ©CInsGrup0ªpltfInt langInt defnStrn&Delete EndGInt ªEndGInt ¨PadnPadn€********************************************************************************************************************************BlokpVewuÎ/ÿNameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow bNtrInt CompStrnMethGrupì«nameStrnFoobar CompStrnsorcGruph¬EncoInt srclStrnSub Foobar(s as String) srclStrnMsgBox ssrbpInt srclStrnEnd Sub EndGInt ¬EncoInt AlasStrnflagInt parmStrn s as String rsltStrnEndGInt «MethGrup`­nameStrnAwesome CompStrnsorcGrupè®EncoInt srclStrn Sub Awesome() srclStrndim woot(-1) as RectControl srclStrnsrclStrnfor i as Integer = 0 to 50 srclStrndim d as Double = rnd srclStrnsrclStrnif d < .3 then srclStrnwoot.Append( new PushButton ) srclStrnelseif d < .6 then srclStrnwoot.Append( new CheckBox ) srclStrnelseif d < .9 then srclStrnwoot.Append( new Canvas ) srclStrnelsesrclStrnwoot.Append( new RadioButton ) srclStrnend if srclStrnnext i srclStrnsrclStrndim mb as new MemoryBlock( 8 ) srclStrnmb.Long( 0 ) = &h12AB34CD srclStrnmb.Short( 4 ) = 12 srclStrnmb.Byte( 6 ) = 255 srclStrnmb.Byte( 7 ) = 127 srclStrnsrclStrnBreak srclStrnEnd Sub EndGInt ®EncoInt AlasStrnflagInt parmStrnrsltStrnEndGInt ­PropGrup<¯EncoInt declStrnmAwesome As Integer flagInt !EndGInt ¯PDefGrup,°nameStrnMenuBar PValStrn34199551EndGInt °PDefGrup(±nameStrn MacProcID PValInt EndGInt ±PDefGrup4²nameStrn BalloonHelp EncoInt PValStrnEndGInt ²PDefGrup0³nameStrnMinimizeButton PValStrnTrueEndGInt ³PDefGrup4´nameStrnMaximizeButton PValStrnFalse EndGInt ´PDefGrup0µnameStrn LiveResize PValStrnFalse EndGInt µPDefGrup0¶nameStrn Resizeable PValStrnFalse EndGInt ¶PDefGrup,·nameStrn CloseButton PValStrnTrueEndGInt ·PDefGrup0¸nameStrnMenuBarVisible PValStrnTrueEndGInt ¸PDefGrup0¹nameStrn FullScreen PValStrnFalse EndGInt ¹PDefGrup(ºnameStrnVisible PValStrnTrueEndGInt ºPDefGrup8»nameStrnTitle EncoInt PValStrnUntitledEndGInt »PDefGrup$¼nameStrnBackdropPValStrnEndGInt ¼PDefGrup(½nameStrn BackColor PValInt ÿÿÿEndGInt ½PDefGrup0¾nameStrn HasBackColorPValStrnFalse EndGInt ¾PDefGrup0¿nameStrn Composite PValStrnFalse EndGInt ¿PDefGrup$ÀnameStrnFrame PValInt EndGInt ÀPDefGrup(ÁnameStrn MaxHeight PValInt }EndGInt ÁPDefGrup$ÂnameStrnMaxWidthPValInt }EndGInt ÂPDefGrup(ÃnameStrn MinHeight PValInt @EndGInt ÃPDefGrup$ÄnameStrnMinWidthPValInt @EndGInt ÄPDefGrup$ÅnameStrnHeight PValInt ,EndGInt ÅPDefGrup$ÆnameStrnWidth PValInt ,EndGInt ÆPDefGrup(ÇnameStrn Placement PValInt EndGInt ÇCBhvGrup€ÈSuprStrn PushButton HInsGrupLÉnameStrnAction CompStrnsorcGrupÊEncoInt srclStrn Sub Action()srclStrnmAwesome = rnd * 100srclStrnsrclStrnDim i as Integer = 12 srclStrnDim s as String srclStrnsrclStrns = System.CommandLine srclStrnsrclStrnAwesome srclStrn Foobar( s ) srclStrnEnd Sub EndGInt ÊEndGInt ÉEndGInt ÈCtrlGrupüËcclsStrn PushButton nameStrn PushButton PDefGrup8ÌnameStrn InitialParent EncoInt PValStrnEndGInt ÌPDefGrup(ÍnameStrn Underline PValStrnEndGInt ÍPDefGrup$ÎnameStrnItalic PValStrnEndGInt ÎPDefGrup ÏnameStrnBoldPValStrnEndGInt ÏPDefGrup$ÐnameStrnTextSizePValInt EndGInt ÐPDefGrup8ÑnameStrnTextFontEncoInt PValStrnSystem EndGInt ÑPDefGrup0ÒnameStrnAutoDeactivate PValStrnTrueEndGInt ÒPDefGrup0ÓnameStrnHelpTag EncoInt PValStrnEndGInt ÓPDefGrup(ÔnameStrnVisible PValStrnTrueEndGInt ÔPDefGrup(ÕnameStrnEnabled PValStrnTrueEndGInt ÕPDefGrup$ÖnameStrnCancel PValStrnEndGInt ÖPDefGrup$×nameStrnDefault PValStrnEndGInt ×PDefGrup8ØnameStrnCaption 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 áPDefGrup8ânameStrn ControlOrderEncoInt PValStrn0 EndGInt âPDefGrup<ãnameStrnSuper EncoInt PValStrn PushButton EndGInt ãPDefGrup$änameStrnIndex PValInt €EndGInt äPDefGrup8ånameStrnNameEncoInt PValStrn PushButton1 EndGInt åCBixInt EndGInt ËPadnPadn¤********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnu ×ÿ NameStrnMenuBar1ContInt paswStrnMItmGruppæspmuInt nameStrnFileMenutextStrn&File indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupÐçspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt €scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt çEndGInt æMItmGrup\èspmuInt nameStrnEditMenutextStrn&Edit indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup¬éspmuInt nameStrnEditUndotextStrn&Undo indxInt €scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt éMItmGrupŒêspmuInt nameStrn UntitledMenu1 textStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt êMItmGrup¨ëspmuInt nameStrnEditCut textStrnCu&tindxInt €scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ëMItmGrup¬ìspmuInt nameStrnEditCopytextStrn&Copy indxInt €scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ìMItmGrup°íspmuInt nameStrn EditPaste textStrn&Paste indxInt €scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt íMItmGrup”îspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt îMItmGrupŒïspmuInt nameStrn UntitledMenu0 textStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ïMItmGrup¸ðspmuInt nameStrn EditSelectAll textStrn Select &All indxInt €scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ðEndGInt èPadnPadn¬****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrup¼ñOTabGrupòContInt eSptInt ÈEndGInt òOTabGrupóContInt uÎ/ÿEndGInt óOTabGrupôContInt uÎ/ÿEndGInt ôLsLcStrnWindow1.Awesome rEdtRect¬6¬nEndGInt ñPadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!