RbBFBlokProjPSIVStrn2006.02 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrn"Copyright (C) 2006 by Barry Traver IVerStrnClipboard Utility aiviInt DVewInt ~ _ prTpInt DLanInt CLanInt DEncInt BflgInt IconGrup╝EndGInt ╝MacCStrnBMacStrnCollectClips (Classic) BCarStrn CollectClipsBCMOStrn CollectClipsBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnCollectClips.exeBMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn CollectClipsPadnPadnl****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjD š NameStrnApp ContInt paswStrnbClsInt SuprStrn Application bNtrInt bApOInt CompStrnPDefGrup$ŻnameStrnMenuBar PValInt l\_ EndGInt ŻVwBhGrupż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 defnStrn&Delete flagInt CInsGrup0┼pltfInt langInt defnStrn&Delete EndGInt ┼CInsGrup0ĂpltfInt langInt defnStrn&Delete EndGInt ĂEndGInt ─PadnPadnd****************************************************************************************************BlokpVew~ _ 4NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow bNtrInt CompStrnHInsGrup╝ănameStrnEnableMenuItems CompStrnVsblInt sorcGrupl╚EncoInt srclStrnSub EnableMenuItems() srclStrnFileSaveAsText.Enable srclStrnEnd Sub EndGInt ╚EndGInt ăHInsGrupŔ╔nameStrnOpenCompStrnVsblInt sorcGrupĄ╩EncoInt srclStrn Sub Open() srclStrnDim c as New Clipboard srclStrn c.text="" srclStrnc.close srclStrnsrclStrnsrclStrnEnd Sub EndGInt ╩EndGInt ╔HInsGrupČ╦nameStrn CancelClose CompStrnVsblInt sorcGrup`╠EncoInt srclStrn7Function CancelClose(appQuitting as Boolean) As Boolean srclStrnDim n as IntegersrclStrn:n=MsgBox ("Are you sure you want to exit the program?",36) srclStrn If n=6 then srclStrn Return FalsesrclStrnelseif n=7 then srclStrn Return True srclStrnend if srclStrnsrclStrnsrclStrn End FunctionEndGInt ╠EndGInt ╦MnuHGrup└═nameStrnFileSaveAsText CompStrnVsblInt sorcGrupp╬EncoInt srclStrn$Function FileSaveAsText() As BooleansrclStrn SaveAsText srclStrn End FunctionEndGInt ╬EndGInt ═MethGrup╚¤nameStrn SaveAsText CompStrnVsblInt sorcGrup4đEncoInt srclStrnSub SaveAsText()srclStrn#Dim FileStreamA As TextOutputStream srclStrnDim FileToAccess As FolderItem srclStrnsrclStrnDim TextType as New FileTypesrclStrnTextType.Name = "Text File" srclStrnTextType.Extensions = ".txt"srclStrnsrclStrn.FileToAccess = GetSaveFolderItem(TextType, "") srclStrnsrclStrn7MainBuffer = ReplaceLineEndings (MainBuffer, EndOfLine) srclStrnIf FileToAccess <> Nil Then srclStrn)FileStreamA = FileToAccess.CreateTextFile srclStrnFileStreamA.Write MainBuffersrclStrnFileStreamA.Close srclStrnElsesrclStrn MsgBox FileToAccess.AbsolutePathsrclStrnEnd If srclStrn8Exception 'srclStrn4MsgBox "An error occurred in Window1.SaveAsText." 'srclStrnEnd Sub EndGInt đEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt ¤PropGrupTĐEncoInt declStrnFormerText As StringflagInt CompStrnshrdInt EndGInt ĐPropGrupTĎEncoInt declStrnMainBuffer As StringflagInt CompStrnshrdInt EndGInt ĎPDefGrup0ËnameStrnMenuBar PValStrn 1817993215 EndGInt ËPDefGrup(ďnameStrn MacProcID PValInt EndGInt ďPDefGrup4ŇnameStrn BalloonHelp EncoInt PValStrnEndGInt ŇPDefGrup0ÍnameStrnMinimizeButton PValStrnTrueEndGInt ÍPDefGrup4ÎnameStrnMaximizeButton PValStrnFalse EndGInt ÎPDefGrup0ěnameStrn LiveResize PValStrnFalse EndGInt ěPDefGrup,┘nameStrn Resizeable PValStrnTrueEndGInt ┘PDefGrup,┌nameStrn CloseButton PValStrnTrueEndGInt ┌PDefGrup0█nameStrnMenuBarVisible PValStrnTrueEndGInt █PDefGrup0▄nameStrn FullScreen PValStrnFalse EndGInt ▄PDefGrup(ŢnameStrnVisible PValStrnTrueEndGInt ŢPDefGrupLŮnameStrnTitle EncoInt PValStrnCollectClips by Barry TraverEndGInt Ů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 mEndGInt ŔPDefGrup$ÚnameStrnWidth PValInt [EndGInt ÚPDefGrup(ŕnameStrn Placement PValInt EndGInt ŕVwBhGrup ŰVwPrGrup0ýNameStrnNameVsblInt PrGpStrnID EndGInt ýVwPrGrup8ÝNameStrn Interfaces VsblInt PrGpStrnID EndGInt ÝVwPrGrup4ţNameStrnSuper VsblInt PrGpStrnID EndGInt ţVwPrGrup°´NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 EnumGrupö­defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt ­EndGInt ´VwPrGrupH˝NameStrnWidth VsblInt PrGpStrnPositionPValStrn300 EndGInt ˝VwPrGrupH˛NameStrnHeight VsblInt PrGpStrnPositionPValStrn300 EndGInt ˛VwPrGrupHˇNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 EndGInt ˇVwPrGrupL˘NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 EndGInt ˘VwPrGrupL§NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 EndGInt §VwPrGrupP÷NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 EndGInt ÷VwPrGrup┤¸NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 EnumGrupP°defnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window EndGInt °EndGInt ¸VwPrGrupT¨NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse EndGInt ¨VwPrGrupT˙NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse EndGInt ˙VwPrGrupTűNameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFEndGInt űVwPrGrup<ŘNameStrnBackdropVsblInt PrGpStrn Appearance EndGInt ŘVwPrGrupPřNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledEndGInt řVwPrGrupL■NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt ■VwPrGrupT NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse EndGInt  VwPrGrupTNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrupPNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrupTNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupTNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupXNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupTNameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrup@NameStrn BalloonHelp VsblInt PrGpStrn Appearance EndGInt VwPrGrupPNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 EndGInt VwPrGrup<NameStrnMenuBar VsblInt PrGpStrn Appearance EndGInt VwPrGrup0 NameStrn FormerText PrGpStrnBehaviorEndGInt  VwPrGrup0 NameStrn MainBuffer PrGpStrnBehaviorEndGInt  EndGInt ŰCBhvGrupl SuprStrnTimer HInsGrup< nameStrnAction CompStrnVsblInt sorcGrup˘ EncoInt srclStrn Sub Action()srclStrnDIm c as New Clipboard srclStrnDim Count1 As Integer srclStrnDim EOL, Temp1 As StringsrclStrnIf Len(EndOfLine) = 2 Then srclStrn EOL = Chr(13) srclStrnElsesrclStrnEOL = EndOfLine srclStrnEnd If srclStrnIf c.TextAvailable Then srclStrnIf c.Text <> FormerText ThensrclStrnIf MainBuffer = "" Then srclStrnMainBuffer = c.Text srclStrnIf Len(EndOfLine) = 2 Then srclStrn9EditField1.Text = ReplaceLineEndings(MainBuffer, Chr(13)) srclStrnElsesrclStrnEditField1.Text = MainBuffersrclStrnEnd If srclStrn+Count1 = CountFields(MainBuffer, EndOfLine) srclStrn"EditField1.Scrollposition = Count1 srclStrnElsesrclStrn(MainBuffer = MainBuffer + EOL + c.Text srclStrnIf Len(EndOfLine) = 2 Then srclStrn9EditField1.Text = ReplaceLineEndings(MainBuffer, Chr(13)) srclStrnElsesrclStrnEditField1.Text = MainBuffersrclStrnEnd If srclStrn2Temp1 = ReplaceLineEndings (MainBuffer, EndOfLine) srclStrn&Count1 = CountFields(Temp1, EndOfLine) srclStrn&EditField1.Scrollposition = Count1 - 3 srclStrnEnd If srclStrnFormerText = c.Text srclStrnEnd If srclStrnEnd If srclStrnsrclStrnEnd Sub EndGInt  EndGInt  EndGInt  CBhvGrupSuprStrn EditField EndGInt CtrlGrupěcclsStrnTimer nameStrnTimer PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup$nameStrnPeriod PValInt ŔEndGInt PDefGrup nameStrnModePValInt EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn0 EndGInt PDefGrup8nameStrnSuper EncoInt PValStrnTimer EndGInt PDefGrup$nameStrnIndex PValInt ÇEndGInt PDefGrup4nameStrnNameEncoInt PValStrnTimer1 EndGInt CBixInt EndGInt CtrlGrup cclsStrn EditField nameStrn EditField PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Alignment PValInt EndGInt PDefGrup(nameStrn AcceptTabs PValStrnEndGInt PDefGrup( nameStrn LimitText PValInt EndGInt  PDefGrup$!nameStrnReadOnlyPValStrnEndGInt !PDefGrup,"nameStrnMaskEncoInt PValStrnEndGInt "PDefGrup,#nameStrnTextEncoInt 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 +PDefGrup0,nameStrnFormat EncoInt PValStrnEndGInt ,PDefGrup(-nameStrnEnabled PValStrnTrueEndGInt -PDefGrup(.nameStrn BackColor PValInt    EndGInt .PDefGrup(/nameStrn TextColor PValInt EndGInt /PDefGrup,0nameStrn UseFocusRingPValStrnTrueEndGInt 0PDefGrup$1nameStrnPasswordPValStrnEndGInt 1PDefGrup$2nameStrnStyled PValStrnEndGInt 2PDefGrup43nameStrnScrollbarVertical PValStrnTrueEndGInt 3PDefGrup44nameStrnScrollbarHorizontal PValStrnTrueEndGInt 4PDefGrup,5nameStrn Multiline PValStrnTrueEndGInt 5PDefGrup(6nameStrnBorder PValStrnTrueEndGInt 6PDefGrup,7nameStrn TabPanelIndex PValInt EndGInt 7PDefGrup,8nameStrn LockBottom PValStrnTrueEndGInt 8PDefGrup,9nameStrn LockRight PValStrnTrueEndGInt 9PDefGrup(:nameStrnLockTop PValStrnTrueEndGInt :PDefGrup(;nameStrnLockLeftPValStrnTrueEndGInt ;PDefGrup$nameStrnTop PValInt EndGInt >PDefGrup ?nameStrnLeftPValInt EndGInt ?PDefGrup8@nameStrn ControlOrderEncoInt PValStrn1 EndGInt @PDefGrup<AnameStrnSuper EncoInt PValStrn EditField EndGInt APDefGrup$BnameStrnIndex PValInt ÇEndGInt BPDefGrup8CnameStrnNameEncoInt PValStrn EditField1 EndGInt CCBixInt EndGInt PadnPadnŘ********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnul\_ NameStrnMenuBar1ContInt paswStrnMItmGrupDspmuInt nameStrnFileMenutextStrn&File indxInt ÇscutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupöEspmuInt nameStrnFileSaveAsText textStrn Save As TextindxInt ÇscutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt EMItmGrupđFspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt ÇscutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt FEndGInt DPadnPadnt************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrup▄GOTabGrupHContInt eSptInt ŁEndGInt HOTabGrupIContInt ~ _ EndGInt IOTabGrupJContInt l\_ EndGInt JOTabGrupKContInt ~ _ EndGInt KLsLcStrn(Home) rEdtRect.¬EndGInt GPadnPadnÓ****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!