RbBFBlokProj¿Áþ¬ fÓPSIVStrn5.5OPSpStrn clip41.rbACnmStrnAChpStrnACsvStrnlocalhost:7325Ver1Strn1Ver2Strn0Ver3Strn0RelsStrn0NnRlStrn0RegnStrn0SVerStrnLVerStrn(C) 2004 by Barry TraverIVerStrn-REALbasic utility to comment lines in WindowsDVewInt ½E#ëprTpInt DLanInt CLanInt DEncInt BflgInt BCXFInt IconGrup(oEndGInt (oCPalGrupÐ(pflagInt elemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿEndGInt (pMacCStrn????BMacStrnMy Application (Classic)BCarStrnMy ApplicationBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnMy ApplicationBWinStrn Commenter.exeBMDIInt BL86Strn MyApplicationrEdtRect(ˆÈ¾fTypGrupL(qnameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt EndGInt (qPadnPadnð************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew½E#ë8¿Áþ¬ fÓNameStrnWindow1ContInt rEdtRectÿÿÿÞ°eSptInt ÿÿübPGpGrupP(rbPElGrup4(sscKyInt õãÑrEdtRectÿÿÿÞ°eSptInt ÿÿüEndGInt (sEndGInt (rlstHInt žlstVInt ×PDefGrup4(tnameStrnNamePValStrnWindow1EncoInt EndGInt (tPDefGrup((unameStrnFramePValStrn7EndGInt (uPDefGrup0(vnameStrn CompositePValStrnFalseEndGInt (vPDefGrup0(wnameStrn HasBackColorPValStrnFalseEndGInt (wPDefGrup0(xnameStrn BackColorPValStrn16777215EndGInt (xPDefGrup((ynameStrnBackdropPValStrn0EndGInt (yPDefGrupP(znameStrnTitlePValStrnTraver Commenter - Version 1.0EncoInt EndGInt (zPDefGrup(({nameStrnVisiblePValStrnTrueEndGInt ({PDefGrup0(|nameStrn FullScreenPValStrnFalseEndGInt (|PDefGrup4(}nameStrnMenuBarVisiblePValStrnFalseEndGInt (}PDefGrup((~nameStrnCloseBoxPValStrnTrueEndGInt (~PDefGrup,(nameStrnGrowIconPValStrnFalseEndGInt (PDefGrup0(€nameStrn LiveResizePValStrnFalseEndGInt (€PDefGrup,(nameStrnZoomIconPValStrnFalseEndGInt (PDefGrup((‚nameStrn BalloonHelpPValStrnEndGInt (‚PDefGrup,(ƒnameStrn MacProcIDPValStrn0EndGInt (ƒPDefGrup0(„nameStrnMenuBarPValStrn -1119542294EndGInt („PDefGrup,(…nameStrn PlacementPValStrn0EndGInt (…PDefGrup((†nameStrnWidthPValStrn232EndGInt (†PDefGrup((‡nameStrnHeightPValStrn26EndGInt (‡PDefGrup((ˆnameStrnMinWidthPValStrn64EndGInt (ˆPDefGrup,(‰nameStrn MinHeightPValStrn64EndGInt (‰PDefGrup,(ŠnameStrnMaxWidthPValStrn32000EndGInt (ŠPDefGrup0(‹nameStrn MaxHeightPValStrn32000EndGInt (‹FDefGrupÐ(ŒNameStrnWindow1SizeInt SuprStrnWindowbNtrInt PropGrupÐ(EncoInt declStrnLastActive_hwnd as integersorcGrup€(ŽstsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrnLastActive_hwnd as integerntlnStrnntlnStrnEndGInt (ŽEndGInt (HInsGrupÀ(EncoInt nameStrnPaintsorcGrup„(stsrInt stscInt ndsrInt ndscInt EncoInt srclStrnSub Paint(g As Graphics)srclStrnsrclStrnEnd SubEndGInt (EndGInt (HInsGrupì(‘EncoInt nameStrn MouseDownsorcGrup¬(’stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As BooleansrclStrnsrclStrn End FunctionEndGInt (’EndGInt (‘HInsGrup°(“EncoInt nameStrnOpensorcGrupx(”stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Open()srclStrnsrclStrnEnd SubEndGInt (”EndGInt (“EndGInt (ŒCBhvGrup ”(•NameStrnSizeInt €SuprStrn PushButtonbNtrInt HInsGrup¸(–EncoInt nameStrnGotFocussorcGrup|(—stsrInt stscInt ndsrInt ndscInt EncoInt srclStrnSub GotFocus()srclStrnsrclStrnEnd SubEndGInt (—EndGInt (–HInsGrup°(˜EncoInt nameStrnOpensorcGrupx(™stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Open()srclStrnsrclStrnEnd SubEndGInt (™EndGInt (˜HInsGrup¼(šEncoInt nameStrn LostFocussorcGrup|(›stsrInt stscInt ndsrInt ndscInt EncoInt srclStrnSub LostFocus()srclStrnsrclStrnEnd SubEndGInt (›EndGInt (šHInsGrupØ(œEncoInt nameStrn MouseMovesorcGrup˜(stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn)Sub MouseMove(X As Integer, Y As Integer)srclStrnsrclStrnEnd SubEndGInt (EndGInt (œHInsGrupì(žEncoInt nameStrn MouseDownsorcGrup¬(ŸstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As BooleansrclStrnsrclStrn End FunctionEndGInt (ŸEndGInt (žHInsGrup¼( EncoInt nameStrn MouseExitsorcGrup|(¡stsrInt stscInt ndsrInt ndscInt EncoInt srclStrnSub MouseExit()srclStrnsrclStrnEnd SubEndGInt (¡EndGInt ( HInsGrup(¢EncoInt nameStrnActionsorcGrupÌ(£stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Action()srclStrnPDeclare Function SetForegroundWindow Lib "user32" ( hWnd As Integer ) As IntegersrclStrn@Declare Function GetForegroundWindow Lib "user32" ( ) As IntegersrclStrnsrclStrnDim c As New ClipboardsrclStrnDim temp1 As StringsrclStrnDim temp2 as stringsrclStrnsrclStrnTimer1.Enabled = FalsesrclStrnsrclStrn"If Not c.TextAvailable then ReturnsrclStrn// get text from clipboardsrclStrntemp1 = c.TextsrclStrn+// get rid of spaces at beginning and end srclStrntemp1 = Trim(temp1)srclStrn:// put "//" and two spaces after every end-of-line markersrclStrnAtemp1 = "// " + ReplaceAll(temp1, EndOfLine, EndOfLine + "// ")srclStrn8// remove extra internal spaces near beginnning of linesrclStrnDosrclStrn temp2 = temp1srclStrnBtemp1 = ReplaceAll(temp1, EndOfLine + "// ", EndOfLine + "// ")srclStrnLoop until temp2 = temp1srclStrn!// get rid of "// " at the end srclStrn@If Right(temp1,2) = "//" then temp1 = Left(temp1, len(temp1) -2)srclStrn#// put the result in the clipboardsrclStrnc.Text = temp1srclStrn Window1.handle Then LastActive_hwnd = MainApplication_hWnd srclStrnTimer1.Enabled = TruesrclStrnEnd SubEndGInt (¯EndGInt (®EndGInt (­CtrlGrup,(°cclsStrn PushButtonnameStrn PushButtonPDefGrup8(±nameStrnNamePValStrn PushButton1EncoInt EndGInt (±PDefGrup0(²nameStrnIndexPValStrn -2147483648EndGInt (²PDefGrup0(³nameStrn TabPanelIndexPValStrn0EndGInt (³PDefGrup((´nameStrnVisiblePValStrnTrueEndGInt (´PDefGrup$(µnameStrnLeftPValStrn5EndGInt (µPDefGrup$(¶nameStrnTopPValStrn2EndGInt (¶PDefGrup((·nameStrnWidthPValStrn105EndGInt (·PDefGrup((¸nameStrnHeightPValStrn22EndGInt (¸PDefGrup,(¹nameStrn InitialParentPValStrnEndGInt (¹PDefGrup$(ºnameStrnHelpTagPValStrnEndGInt (ºPDefGrup((»nameStrn BalloonHelpPValStrnEndGInt (»PDefGrup0(¼nameStrnDisabledBalloonHelpPValStrnEndGInt (¼PDefGrup0(½nameStrnAutoDeactivatePValStrnTrueEndGInt (½PDefGrup((¾nameStrnLockLeftPValStrnTrueEndGInt (¾PDefGrup((¿nameStrnLockTopPValStrnTrueEndGInt (¿PDefGrup,(ÀnameStrn LockRightPValStrnTrueEndGInt (ÀPDefGrup,(ÁnameStrn LockBottomPValStrnTrueEndGInt (ÁPDefGrup8(ÂnameStrnTextFontPValStrnSystemEncoInt EndGInt (ÂPDefGrup((ÃnameStrnTextSizePValStrn12EndGInt (ÃPDefGrup((ÄnameStrnBoldPValStrnFalseEndGInt (ÄPDefGrup,(ÅnameStrnItalicPValStrnFalseEndGInt (ÅPDefGrup0(ÆnameStrn UnderlinePValStrnFalseEndGInt (ÆPDefGrup@(ÇnameStrnCaptionPValStrn Comment LinesEncoInt EndGInt (ÇPDefGrup,(ÈnameStrnDefaultPValStrnFalseEndGInt (ÈPDefGrup,(ÉnameStrnCancelPValStrnFalseEndGInt (ÉPDefGrup((ÊnameStrnEnabledPValStrnTrueEndGInt (ÊCBixInt EndGInt (°CtrlGrup,(ËcclsStrn PushButtonnameStrn PushButtonPDefGrup8(ÌnameStrnNamePValStrn PushButton2EncoInt EndGInt (ÌPDefGrup0(ÍnameStrnIndexPValStrn -2147483648EndGInt (ÍPDefGrup0(ÎnameStrn TabPanelIndexPValStrn0EndGInt (ÎPDefGrup((ÏnameStrnVisiblePValStrnTrueEndGInt (ÏPDefGrup$(ÐnameStrnLeftPValStrn122EndGInt (ÐPDefGrup$(ÑnameStrnTopPValStrn2EndGInt (ÑPDefGrup((ÒnameStrnWidthPValStrn100EndGInt (ÒPDefGrup((ÓnameStrnHeightPValStrn22EndGInt (ÓPDefGrup,(ÔnameStrn InitialParentPValStrnEndGInt (ÔPDefGrup$(ÕnameStrnHelpTagPValStrnEndGInt (ÕPDefGrup((ÖnameStrn BalloonHelpPValStrnEndGInt (ÖPDefGrup0(×nameStrnDisabledBalloonHelpPValStrnEndGInt (×PDefGrup0(ØnameStrnAutoDeactivatePValStrnTrueEndGInt (ØPDefGrup((ÙnameStrnLockLeftPValStrnTrueEndGInt (ÙPDefGrup((ÚnameStrnLockTopPValStrnTrueEndGInt (ÚPDefGrup,(ÛnameStrn LockRightPValStrnTrueEndGInt (ÛPDefGrup,(ÜnameStrn LockBottomPValStrnTrueEndGInt (ÜPDefGrup8(ÝnameStrnTextFontPValStrnSystemEncoInt EndGInt (ÝPDefGrup((ÞnameStrnTextSizePValStrn12EndGInt (ÞPDefGrup((ßnameStrnBoldPValStrnFalseEndGInt (ßPDefGrup,(ànameStrnItalicPValStrnFalseEndGInt (àPDefGrup0(ánameStrn UnderlinePValStrnFalseEndGInt (áPDefGrup@(ânameStrnCaptionPValStrnUncomment LinesEncoInt EndGInt (âPDefGrup,(ãnameStrnDefaultPValStrnFalseEndGInt (ãPDefGrup,(änameStrnCancelPValStrnFalseEndGInt (äPDefGrup((ånameStrnEnabledPValStrnTrueEndGInt (åCBixInt EndGInt (ËCtrlGrup(æcclsStrnTimernameStrnTimerPDefGrup4(çnameStrnNamePValStrnTimer1EncoInt EndGInt (çPDefGrup0(ènameStrnIndexPValStrn -2147483648EndGInt (èPDefGrup0(énameStrn TabPanelIndexPValStrn0EndGInt (éPDefGrup$(ênameStrnLeftPValStrn11EndGInt (êPDefGrup$(ënameStrnTopPValStrn14EndGInt (ëPDefGrup$(ìnameStrnModePValStrn2EndGInt (ìPDefGrup((ínameStrnPeriodPValStrn1000EndGInt (íCBixInt EndGInt (æPadnPadnœ********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnu½E#ê¿Áþ¬ fÓNameStrnMenuBar1ContInt rEdtRectža,ÈMItmGrup˜(îspmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupÀ(ïspmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt (ïEndGInt (îMItmGrup˜(ðspmuInt nameStrnFileMenutextStrn&FileindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupØ(ñspmuInt nameStrnFileQuittextStrnE&xitindxInt €scutStrnQbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrn QuitMenuItembNtrInt EndGInt (ñMItmGrupÀ(òspmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt (òEndGInt (ðMItmGrupÀ(óspmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt (óPadnPadnd************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj½E#é¿Áþ¬ fÓNameStrnAppContInt rEdtRect_K!•eSptInt ÿÿübPGpGrupP(ôbPElGrup4(õscKyInt õãÑrEdtRect_K!•eSptInt ÿÿüEndGInt (õEndGInt (ôbClsInt NameStrnAppSizeInt 4SuprStrn ApplicationbNtrInt IntrStrnbApOInt PDefGrup0(önameStrnMenuBarPValStrn -1119542294EndGInt (öPadnPadn€****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!