hg/stx-libtool: comparison Tools_

equal deleted inserted replaced

-:0ce340e972c4
+:c9b815af5777
 "
 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
-All Rights Reserved
+	      All Rights Reserved
 Permission is hereby granted, free of charge, to any person
 obtaining a copy of this software and associated documentation
 files (the 'Software'), to deal in the Software without
 restriction, including without limitation the rights to use,
 !CodeView2 class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
-All Rights Reserved
+	      All Rights Reserved
 Permission is hereby granted, free of charge, to any person
 obtaining a copy of this software and associated documentation
 files (the 'Software'), to deal in the Software without
 restriction, including without limitation the rights to use,
 | window codeView |
 window := StandardSystemView new.
 window extent: 300 @ 300.
 window label: 'CodeView2 example1'.
 codeView := Tools::CodeView2 in: window.
 codeView
-origin: 0.1 @ 0.1
+	origin: 0.1 @ 0.1
-corner: 0.9 @ 0.9.
+	corner: 0.9 @ 0.9.
 window open.
 "Created: / 02-09-2009 / 21:48:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 (Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu_stxStyle)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Inspect '
+		  label: 'Inspect '
-itemValue: inspectView
+		  itemValue: inspectView
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Inspect Syntax Elements'
+		  label: 'Inspect Syntax Elements'
-itemValue: inspectSyntaxElements
+		  itemValue: inspectSyntaxElements
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Inspect Selected Selector'
+		  label: 'Inspect Selected Selector'
-itemValue: inspectSelectedSelector
+		  itemValue: inspectSelectedSelector
-translateLabel: true
+		  translateLabel: true
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
 "Created: / 08-07-2011 / 13:36:02 / cg"
 !
 editMenu
 MenuEditor new openOnClass:Tools::CodeView2 andSelector:#editMenu
 (Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu)) startUp
 "
 UserPreferences current eclipseStyleMenus ifTrue:[
-^ self editMenu_eclipseStyle
+	^ self editMenu_eclipseStyle
 ].
 ^ self editMenu_stxStyle
 "Modified: / 08-07-2011 / 13:23:35 / cg"
 !
 (Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu_eclipseStyle)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'Implementors...'
+	    label: 'Implementors...'
-itemValue: browseImplementorsOfIt
+	    itemValue: browseImplementorsOfIt
-translateLabel: true
+	    translateLabel: true
-submenuChannel: implementorsMenu
+	    submenuChannel: implementorsMenu
-shortcutKey: ImplementorsOfIt
+	    shortcutKey: ImplementorsOfIt
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Senders...'
+	    label: 'Senders...'
-itemValue: browseSendersOfIt
+	    itemValue: browseSendersOfIt
-translateLabel: true
+	    translateLabel: true
-submenuChannel: sendersMenu
+	    submenuChannel: sendersMenu
-shortcutKey: SendersOfIt
+	    shortcutKey: SendersOfIt
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Refactor'
+	    label: 'Refactor'
-nameKey: refactor
+	    nameKey: refactor
-translateLabel: true
+	    translateLabel: true
-isVisible: false
+	    isVisible: false
-shortcutKey: Shift
+	    shortcutKey: Shift
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Accept'
+	    label: 'Accept'
-itemValue: accept
+	    itemValue: accept
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Accept
+	    shortcutKey: Accept
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Cut'
+	    label: 'Cut'
-itemValue: cut
+	    itemValue: cut
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Cut
+	    shortcutKey: Cut
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Copy'
+	    label: 'Copy'
-itemValue: copySelection
+	    itemValue: copySelection
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Copy
+	    shortcutKey: Copy
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Paste'
+	    label: 'Paste'
-itemValue: pasteOrReplace
+	    itemValue: pasteOrReplace
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Paste
+	    shortcutKey: Paste
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Undo'
+	    label: 'Undo'
-itemValue: undo
+	    itemValue: undo
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Undo
+	    shortcutKey: Undo
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Do it'
+	    label: 'Do it'
-itemValue: doIt
+	    itemValue: doIt
-translateLabel: true
+	    translateLabel: true
-shortcutKey: DoIt
+	    shortcutKey: DoIt
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Print it'
+	    label: 'Print it'
-itemValue: printIt
+	    itemValue: printIt
-translateLabel: true
+	    translateLabel: true
-shortcutKey: PrintIt
+	    shortcutKey: PrintIt
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Inspect it'
+	    label: 'Inspect it'
-itemValue: inspectIt
+	    itemValue: inspectIt
-translateLabel: true
+	    translateLabel: true
-shortcutKey: InspectIt
+	    shortcutKey: InspectIt
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Profile it'
+	    label: 'Profile it'
-itemValue: profileIt
+	    itemValue: profileIt
-translateLabel: true
+	    translateLabel: true
-shortcutKey: InspectIt
+	    shortcutKey: InspectIt
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Show Gutter'
+	    label: 'Show Gutter'
-nameKey: ShowGutter
+	    nameKey: ShowGutter
-translateLabel: true
+	    translateLabel: true
-indication: showGutterChannel
+	    indication: showGutterChannel
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'More'
+	    label: 'More'
-nameKey: More
+	    nameKey: More
-translateLabel: true
+	    translateLabel: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Services'
+	    label: 'Services'
-translateLabel: true
+	    translateLabel: true
-submenuChannel: servicesMenu
+	    submenuChannel: servicesMenu
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Debug'
+	    label: 'Debug'
-translateLabel: true
+	    translateLabel: true
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Inspect '
+		  label: 'Inspect '
-itemValue: inspectView
+		  itemValue: inspectView
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Inspect Syntax Elements'
+		  label: 'Inspect Syntax Elements'
-itemValue: inspectSyntaxElements
+		  itemValue: inspectSyntaxElements
-translateLabel: true
+		  translateLabel: true
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Inspect Selected Selector'
+		  label: 'Inspect Selected Selector'
-itemValue: inspectSelectedSelector
+		  itemValue: inspectSelectedSelector
-translateLabel: true
+		  translateLabel: true
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 "Modified: / 08-03-2012 / 12:36:18 / cg"
 !
 (Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu_stxStyle)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'Undo'
+	    label: 'Undo'
-itemValue: undo
+	    itemValue: undo
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Undo
+	    shortcutKey: Undo
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Again'
+	    label: 'Again'
-itemValue: again
+	    itemValue: again
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Again
+	    shortcutKey: Again
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Cut'
+	    label: 'Cut'
-itemValue: cut
+	    itemValue: cut
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Cut
+	    shortcutKey: Cut
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Copy'
+	    label: 'Copy'
-itemValue: copySelection
+	    itemValue: copySelection
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Copy
+	    shortcutKey: Copy
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Paste'
+	    label: 'Paste'
-itemValue: pasteOrReplace
+	    itemValue: pasteOrReplace
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Paste
+	    shortcutKey: Paste
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'DoIt'
+	    label: 'DoIt'
-itemValue: doIt
+	    itemValue: doIt
-translateLabel: true
+	    translateLabel: true
-shortcutKey: DoIt
+	    shortcutKey: DoIt
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'PrintIt'
+	    label: 'PrintIt'
-itemValue: printIt
+	    itemValue: printIt
-translateLabel: true
+	    translateLabel: true
-shortcutKey: PrintIt
+	    shortcutKey: PrintIt
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'InspectIt'
+	    label: 'InspectIt'
-itemValue: inspectIt
+	    itemValue: inspectIt
-translateLabel: true
+	    translateLabel: true
-shortcutKey: InspectIt
+	    shortcutKey: InspectIt
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Accept'
+	    label: 'Accept'
-itemValue: accept
+	    itemValue: accept
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Accept
+	    shortcutKey: Accept
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-isVisible: false
+	    isVisible: false
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Refactor'
+	    label: 'Refactor'
-nameKey: refactor
+	    nameKey: refactor
-translateLabel: true
+	    translateLabel: true
-isVisible: false
+	    isVisible: false
-shortcutKey: Shift
+	    shortcutKey: Shift
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Services'
+	    label: 'Services'
-translateLabel: true
+	    translateLabel: true
-isVisible: false
+	    isVisible: false
-submenuChannel: servicesMenu
+	    submenuChannel: servicesMenu
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '='
+	    label: '='
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'More'
+	    label: 'More'
-nameKey: More
+	    nameKey: More
-translateLabel: true
+	    translateLabel: true
-shortcutKey: Ctrl
+	    shortcutKey: Ctrl
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 "Modified: / 02-03-2012 / 19:53:19 / cg"
 ! !
 !
 breakpoints
 services do:[:each|
-(each isKindOf: BreakpointService) ifTrue:[
+	(each isKindOf: BreakpointService) ifTrue:[
-^each breakpoints
+	    ^each breakpoints
-]
+	]
 ].
 ^ nil
 "Created: / 06-07-2011 / 18:05:35 / jv"
 "Modified: / 06-10-2011 / 14:13:53 / cg"
 codeAspect ifNotNil:[^codeAspect].
 methodHolder value ifNotNil:[^SyntaxHighlighter codeAspectMethod].
 ^((app := self topView application) notNil and:[app respondsTo: #codeAspect])
-ifTrue:[app codeAspect]
+	ifTrue:[app codeAspect]
-ifFalse:[(SyntaxHighlighter codeAspectExpression)]
+	ifFalse:[(SyntaxHighlighter codeAspectExpression)]
 "Modified: / 27-07-2011 / 13:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 27-07-2012 / 22:22:27 / cg"
 !
 codeAspect:aSymbol
 self assert: ({  SyntaxHighlighter codeAspectClassDefinition .
-SyntaxHighlighter codeAspectExpression .
+		    SyntaxHighlighter codeAspectExpression .
-SyntaxHighlighter codeAspectMethod } includes:aSymbol ).
+		    SyntaxHighlighter codeAspectMethod } includes:aSymbol ).
 codeAspect ~~ aSymbol ifTrue:[
-codeAspect := aSymbol.
+	codeAspect := aSymbol.
-self update: #codeAspect with: codeAspect from: self.
+	self update: #codeAspect with: codeAspect from: self.
 ]
 "Modified: / 27-07-2012 / 22:32:19 / cg"
 "Modified: / 15-04-2013 / 23:02:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 !
 mode: aSymbol
 "is this the same as codeAspect ?"
 self assert: (#(expression method) includes: aSymbol).
 ^self modeHolder value: aSymbol
 "Created: / 13-06-2011 / 10:50:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 15-06-2011 / 16:37:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified (comment): / 27-07-2012 / 22:19:49 / cg"
 model: aValueModel
 |oldValue newValue|
 textView model notNil ifTrue:[
-oldValue := textView model value.
+	oldValue := textView model value.
-textView model removeDependent:self.
+	textView model removeDependent:self.
 ].
 textView model: aValueModel.
 textView model notNil ifTrue:[
-textView model addDependent:self.
+	textView model addDependent:self.
 ].
 newValue := textView model value.
 oldValue ~~ newValue ifTrue:[
-self update:#value with:newValue from:textView model.
+	self update:#value with:newValue from:textView model.
 ].
 "Modified: / 17-03-2012 / 16:11:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 !
 synchronizeWith: aCodeView
 self assert: aCodeView ~= self.
 (synchronizedCodeViews includes: aCodeView) ifTrue:[^self].
 synchronizedCodeViews := synchronizedCodeViews copyWith: aCodeView.
 "Created: / 06-04-2010 / 14:13:14 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 23-06-2010 / 17:01:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 unsynchronizeWith: aCodeView
 self assert: aCodeView ~= self.
 (synchronizedCodeViews includes: aCodeView) ifFalse:[^self].
 synchronizedCodeViews := synchronizedCodeViews copyWithout: aCodeView.
 "Created: / 06-04-2010 / 14:13:14 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 23-06-2010 / 17:01:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Created: / 19-03-2012 / 14:25:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !CodeView2 methodsFor:'aspects'!
 browserHolder
 browserHolder isNil ifTrue:[
-browserHolder := ValueHolder new
+	browserHolder := ValueHolder new
 ].
 ^browserHolder
 "Modified: / 14-02-2010 / 19:27:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 18-11-2011 / 14:58:15 / cg"
 classHolder
 "return/create the 'classHolder' value holder (automatically generated)"
 classHolder isNil ifTrue:[
-classHolder := ValueHolder with: nil.
+	classHolder := ValueHolder with: nil.
-classHolder addDependent:self.
+	classHolder addDependent:self.
 ].
 ^ classHolder
 "Modified: / 27-07-2011 / 13:15:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 "set the 'classHolder' value holder (automatically generated)"
 |old oldValue newValue|
 classHolder notNil ifTrue:[
-oldValue := classHolder value.
+	oldValue := classHolder value.
-classHolder removeDependent:self.
+	classHolder removeDependent:self.
 ].
 classHolder := aValueModel.
 classHolder notNil ifTrue:[
-classHolder addDependent:self.
+	classHolder addDependent:self.
 ].
 old := methodHolder.
 newValue := classHolder value.
 oldValue ~~ newValue ifTrue:[
-self update:#value with:newValue from:classHolder.
+	self update:#value with:newValue from:classHolder.
 ].
 self changed: #classHolder with: old -> classHolder
 "Modified: / 17-06-2011 / 12:56:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 currentBlockNodeHolder
 "return/create the 'currentBlockNodeHolder' value holder (automatically generated)"
 currentBlockNodeHolder isNil ifTrue:[
-currentBlockNodeHolder := ValueHolder new.
+	currentBlockNodeHolder := ValueHolder new.
 ].
 ^ currentBlockNodeHolder
 !
 currentBlockNodeHolder:something
 currentParseNodeHolder
 "return/create the 'currentParseNodeHolder' value holder (automatically generated)"
 currentParseNodeHolder isNil ifTrue:[
-currentParseNodeHolder := ValueHolder new.
+	currentParseNodeHolder := ValueHolder new.
 ].
 ^ currentParseNodeHolder
 !
 currentParseNodeHolder:something
 "Modified: / 16-02-2012 / 23:11:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 languageHolder
 languageHolder isNil ifTrue:[
-"/ cg: I dont like the smalltalk default here, because everyone who is not showing ST-code (expecco, filebrowser etc.)
+	"/ cg: I dont like the smalltalk default here, because everyone who is not showing ST-code (expecco, filebrowser etc.)
-"/ has to explicitely clear the valueholder. I guess, it is better for the few
+	"/ has to explicitely clear the valueholder. I guess, it is better for the few
-"/ others to explicitely set it, if they do not provide syntaxHighlighter per method
+	"/ others to explicitely set it, if they do not provide syntaxHighlighter per method
-"/ or class.
+	"/ or class.
-languageHolder := ValueHolder with: nil "SmalltalkLanguage instance".
+	languageHolder := ValueHolder with: nil "SmalltalkLanguage instance".
-languageHolder addDependent:self.
+	languageHolder addDependent:self.
 ].
 ^ languageHolder
 "Modified: / 19-07-2012 / 16:51:04 / cg"
 !
 "set the 'languageHolder' value holder (automatically generated)"
 |old oldValue newValue|
 languageHolder notNil ifTrue:[
-oldValue := languageHolder value.
+	oldValue := languageHolder value.
-languageHolder removeDependent:self.
+	languageHolder removeDependent:self.
 ].
 languageHolder := aValueModel.
 languageHolder notNil ifTrue:[
-languageHolder addDependent:self.
+	languageHolder addDependent:self.
 ].
 old := languageHolder.
 newValue := languageHolder value.
 oldValue ~~ newValue ifTrue:[
-self update:#value with:newValue from:languageHolder.
+	self update:#value with:newValue from:languageHolder.
 ].
 self changed: #languageHolder with: old -> languageHolder
 "Modified: / 17-06-2011 / 12:56:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 methodHolder
 "return/create the 'methodHolder' value holder (automatically generated)"
 methodHolder isNil ifTrue:[
-methodHolder := ValueHolder new.
+	methodHolder := ValueHolder new.
-methodHolder addDependent:self.
+	methodHolder addDependent:self.
 ].
 ^ methodHolder
 !
 methodHolder:aValueModel
 "set the 'methodHolder' value holder (automatically generated)"
 |old oldValue newValue|
 methodHolder notNil ifTrue:[
-oldValue := methodHolder value.
+	oldValue := methodHolder value.
-methodHolder removeDependent:self.
+	methodHolder removeDependent:self.
 ].
 old := methodHolder.
 methodHolder := aValueModel.
 methodHolder notNil ifTrue:[
-methodHolder addDependent:self.
+	methodHolder addDependent:self.
 ].
 newValue := methodHolder value.
 oldValue ~~ newValue ifTrue:[
-self update:#value with:newValue from:methodHolder.
+	self update:#value with:newValue from:methodHolder.
 ].
 self changed: #methodHolder with: old -> methodHolder
 "Modified: / 17-06-2011 / 12:55:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 modeHolder
 "return/create the 'modeHolder' value holder (automatically generated)"
 "is this the codeAspect?"
 modeHolder isNil ifTrue:[
-modeHolder := #expression asValue.
+	modeHolder := #expression asValue.
-modeHolder addDependent:self.
+	modeHolder addDependent:self.
 ].
 ^ modeHolder
 "Modified: / 13-06-2011 / 10:52:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified (comment): / 27-07-2012 / 22:22:19 / cg"
 "set the 'modeHolder' value holder (automatically generated)"
 |oldValue newValue|
 modeHolder notNil ifTrue:[
-oldValue := modeHolder value.
+	oldValue := modeHolder value.
-modeHolder removeDependent:self.
+	modeHolder removeDependent:self.
 ].
 modeHolder := something.
 modeHolder notNil ifTrue:[
-modeHolder addDependent:self.
+	modeHolder addDependent:self.
 ].
 newValue := modeHolder value.
 oldValue ~~ newValue ifTrue:[
-self update:#value with:newValue from:modeHolder.
+	self update:#value with:newValue from:modeHolder.
 ].
 self changed: #modeHolder with: modeHolder
 "Modified: / 17-06-2011 / 12:55:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !CodeView2 methodsFor:'change & update'!
 update:aspect with:param from:sender
 sender == modeHolder ifTrue:[
-codeAspect := modeHolder value
+	codeAspect := modeHolder value
 ].
 sender == showGutterChannel ifTrue: [
-self updateGutterVisibility.
+	self updateGutterVisibility.
-^self.
+	^self.
 ].
 services do:[:each |
-each isEnabled ifTrue:[
+	each isEnabled ifTrue:[
-each update:aspect with:param from:sender
+	    each update:aspect with:param from:sender
-]
+	]
 ].
 super update:aspect with:param from:sender
 "Modified: / 07-07-2011 / 12:07:04 / Jan Vrany <jan.vrant@fit.cvut,cz>"
 "Modified: / 26-07-2012 / 19:25:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 updateGutterVisibility
 self showGutterChannel value ifTrue:[
-textViewScroller origin:(gutterView width @ 0.0) corner:(1.0 @ 1.0).
+	textViewScroller origin:(gutterView width @ 0.0) corner:(1.0 @ 1.0).
-gutterView beVisible.
+	gutterView beVisible.
 ] ifFalse:[
-textViewScroller origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+	textViewScroller origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-gutterView beInvisible.
+	gutterView beInvisible.
 ]
 "Created: / 23-06-2010 / 19:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !
 browseMethod: method label: label
 self browser isNil ifTrue: [^NewSystemBrowser openInMethod:method].
 (UserPreferences current alwaysOpenNewTabWhenCtrlClick
-or:[self browser navigationState modified])
+	or:[self browser navigationState modified])
-ifTrue:
+	ifTrue:
-[self browser
+	    [self browser
-spawnFullBrowserInClass: method mclass
+		spawnFullBrowserInClass: method mclass
-selector:method selector
+		selector:method selector
-in:#newBuffer]
+		in:#newBuffer]
-ifFalse:
+	ifFalse:
-[self browser
+	    [self browser
-switchToClass: method containingClass
+		switchToClass: method containingClass
-selector: method selector].
+		selector: method selector].
 "Modified: / 19-02-2008 / 10:15:17 / janfrog"
 "Created: / 19-10-2008 / 08:16:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
 "Modified: / 25-07-2010 / 13:34:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 18-11-2011 / 14:58:12 / cg"
 !
 browseMethods: methods label: label
 methods size = 1 ifTrue:
-[^self browseMethod: methods anyOne label: label].
+	[^self browseMethod: methods anyOne label: label].
 self browser
-ifNil: [NewSystemBrowser browseMethods: methods title: label]
+	ifNil: [NewSystemBrowser browseMethods: methods title: label]
-ifNotNil:[self browser spawnMethodBrowserFor:methods in:#newBuffer label:label]
+	ifNotNil:[self browser spawnMethodBrowserFor:methods in:#newBuffer label:label]
 "Created: / 26-12-2007 / 11:32:04 / janfrog"
 "Modified: / 19-10-2008 / 08:17:28 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 | selector selectedText compilerClass na |
 selectedText := givenSelectedText.
 compilerClass := self language compilerClass.
 selectedText size > 0 ifTrue:[
-"/ self windowGroup withWaitCursorDo:[
+	"/ self windowGroup withWaitCursorDo:[
-"/ hack, for now and expecco; must ask the Parser eventually...
+	    "/ hack, for now and expecco; must ask the Parser eventually...
-(compilerClass notNil and:[compilerClass includesBehavior:JavaScriptParser]) ifTrue:[
+	    (compilerClass notNil and:[compilerClass includesBehavior:JavaScriptParser]) ifTrue:[
-"/ selector is in one piece anyway
+		"/ selector is in one piece anyway
-(selectedText includes:$_) ifFalse:[
+		(selectedText includes:$_) ifFalse:[
-"/ zero or one args - sigh (need to parse more to figure this out)
+		    "/ zero or one args - sigh (need to parse more to figure this out)
-selector := JavaScriptParser basicNew translatedSmalltalkSelectorFor:selectedText numArgs:1.
+		    selector := JavaScriptParser basicNew translatedSmalltalkSelectorFor:selectedText numArgs:1.
-selectedText := JavaScriptParser basicNew translatedSmalltalkSelectorFor:selectedText numArgs:0.
+		    selectedText := JavaScriptParser basicNew translatedSmalltalkSelectorFor:selectedText numArgs:0.
-] ifTrue:[
+		] ifTrue:[
-"/ count _#s plus one arg - sigh
+		    "/ count _#s plus one arg - sigh
-na := (selectedText occurrencesOf:$_) + 1.
+		    na := (selectedText occurrencesOf:$_) + 1.
-selector := JavaScriptParser basicNew translatedSmalltalkSelectorFor:selectedText numArgs:na
+		    selector := JavaScriptParser basicNew translatedSmalltalkSelectorFor:selectedText numArgs:na
-].
+		].
-] ifFalse:[
+	    ] ifFalse:[
-selector := SystemBrowser extractSelectorFrom:selectedText.
+		selector := SystemBrowser extractSelectorFrom:selectedText.
-].
+	    ].
-"/ ]
+	"/ ]
 ].
 ^Array with: selector with: selectedText
 "Created: / 30-06-2011 / 19:49:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 05-03-2012 / 09:04:12 / cg"
 implementorsOf: selector
 selector isNil ifTrue:[^#()].
 ^SystemBrowser
-findImplementorsOf: selector
+	findImplementorsOf: selector
-in: Smalltalk allClasses
+	in: Smalltalk allClasses
-ignoreCase: false
+	ignoreCase: false
 "Created: / 26-12-2007 / 11:37:11 / janfrog"
 "Modified: / 18-11-2011 / 14:58:17 / cg"
 !
 sendersOf: selector
+|senderBlock|
 selector isNil ifTrue:[^#()].
-^SystemBrowser
-findSendersOf: selector
+"/ not exact, but much faster (looks for symbol only, does not parse code for real send)
-in: Smalltalk allClasses
+senderBlock := SystemBrowser searchBlockForSymbol:selector.
-ignoreCase: false
+senderBlock == false ifTrue:[ ^ #() ].
+^ SystemBrowser
+	allMethodsIn:Smalltalk allClasses
+	where:senderBlock.
+"/ exact, but much slower
+"/    ^SystemBrowser
+"/        findSendersOf: selector
+"/        in: Smalltalk allClasses
+"/        ignoreCase: false
 "Created: / 26-12-2007 / 11:37:22 / janfrog"
 "Modified: / 30-06-2011 / 19:32:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 18-11-2011 / 14:58:19 / cg"
 ! !
 !CodeView2 methodsFor:'delegation'!
 doesNotUnderstand: aMessage
 ((textView respondsTo: aMessage selector)
 and:[(TraceSelectors includes:aMessage selector) not])
-ifTrue:[^aMessage sendTo: textView].
+	ifTrue:[^aMessage sendTo: textView].
 ^super doesNotUnderstand: aMessage
 "Created: / 13-02-2010 / 23:27:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 14-02-2010 / 09:53:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 !CodeView2 methodsFor:'delegation - events'!
 buttonMotion: button x:x y:y in: view
 "Delegates events to services. Answers true iff at least
 one service handler method returns true. In that case,
-the event is is NOT passed to the rest of services AND it is NOT
+the event is is NOT processes by the view."
-processes by the view."
+^ services
-services do:[:service|
+	contains:[:service |
-service isEnabled ifTrue:[
+	    service isEnabled and:[ ((service buttonMotion: button x:x y:y in: view) == true) ]
-(service buttonMotion: button x:x y:y in: view) == true ifTrue:[
+	].
-^true
-].
+"Modified: / 07-03-2010 / 13:53:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-].
-].
-^ false
 "Modified: / 06-10-2011 / 14:13:57 / cg"
-"Modified: / 31-01-2012 / 12:21:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 buttonPress: button x:x y:y in: view
 "Delegates events to services. Answers true iff at least
 one service handler method returns true. In that case,
-the event is is NOT passed to the rest of services AND it is NOT
+the event is is NOT processes by the view."
-processes by the view."
+^ services
-services do:[:service|
+	contains:[:service |
-(service isEnabled and:[(service buttonPress: button x:x y:y in: view) == true]) ifTrue:[
+	    service isEnabled and:[ ((service buttonPress: button x:x y:y in: view) == true) ]
-^true
+	].
-]
-].
+"Modified: / 07-03-2010 / 13:53:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-^false
 "Modified: / 06-10-2011 / 14:14:00 / cg"
 "Modified (format): / 05-03-2012 / 08:56:02 / cg"
-"Modified: / 04-04-2012 / 12:42:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 keyPress: key x:x y:y in: view
 "Delegates events to services. Answers true iff at least
 one service handler method returns true. In that case,
-the event is is NOT passed to the rest of services AND it is NOT
+the event is is NOT processes by the view."
-processes by the view."
+^ services
-services do:[:service|
+	contains:[:service |
-service isEnabled ifTrue:[
+	    service isEnabled and:[ ((service keyPress: key x:x y:y in: view) == true) ]
-(service keyPress: key x:x y:y in: view) == true ifTrue:[
+	].
-^true
-].
+"Modified: / 07-03-2010 / 13:54:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-].
-].
-^ false
 "Modified: / 06-10-2011 / 14:14:11 / cg"
-"Modified: / 31-01-2012 / 12:21:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 keyRelease: key x:x y:y in: view
 "Delegates events to services. Answers true iff at least
 one service handler method returns true. In that case,
-the event is is NOT passed to the rest of services AND it is NOT
+the event is is NOT processes by the view."
-processes by the view."
+^ services
-services do:[:service|
+	contains:[:service |
-service isEnabled ifTrue:[
+	    service isEnabled and:[ ((service keyRelease: key x:x y:y in: view) == true) ]
-(service keyRelease: key x:x y:y in: view) == true ifTrue:[
+	].
-^true
-].
+"Modified: / 07-03-2010 / 13:54:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-].
-].
-^ false
 "Modified: / 06-10-2011 / 14:14:13 / cg"
-"Modified: / 31-01-2012 / 12:21:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 scrollTo:origin redraw:doRedraw in: view
 view == textView ifTrue: [
-"/my text view scrolled...
+	"/my text view scrolled...
-synchronizedCodeViews do:[:codeView|
+	synchronizedCodeViews do:[:codeView|
-codeView scrollTo:origin redraw:doRedraw in: view.
+	    codeView scrollTo:origin redraw:doRedraw in: view.
-]
+	]
 ] ifFalse: [
-"/other code view scrolls and I'm notified about that
+	"/other code view scrolls and I'm notified about that
-textView basicScrollTo:origin redraw:doRedraw.
+	textView basicScrollTo:origin redraw:doRedraw.
 ]
 "Created: / 06-04-2010 / 14:02:39 / Jakub <zelenja7@fel.cvut.cz>"
 "Created: / 19-03-2012 / 17:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 drawLine:lineNo in: view atX:x y:y width: w height:h from:startCol to:endColOrNil with:fg and:bg
 "See the comment in
 CodeViewService>>drawLine:in:atX..."
 services do:[:each|
-each drawLine:lineNo in: view atX:x y:y width: w height:h from:startCol to:endColOrNil with:fg and:bg
+	each drawLine:lineNo in: view atX:x y:y width: w height:h from:startCol to:endColOrNil with:fg and:bg
 ]
 "Created: / 17-06-2011 / 13:50:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 06-10-2011 / 14:14:04 / cg"
 !
 "Modified: / 07-03-2010 / 14:46:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'delegation-events'!
+buttonRelease: button x:x y:y in: view
+"Delegates events to services. Answers true iff at least
+one service handler method returns true. In that case,
+the event is is NOT processes by the view."
+^ services
+	contains:[:service |
+	    service isEnabled and:[ ((service buttonRelease: button x:x y:y in: view) == true) ]
+	].
+!
 linesDeletedFrom: start to: end
 services do: [:each |
-each isEnabled ifTrue: [
+	each isEnabled ifTrue: [
-each linesDeletedFrom: start to: end
+	    each linesDeletedFrom: start to: end
-]
+	]
 ].
 "Created: / 06-07-2011 / 17:12:54 / jv"
 "Modified: / 06-10-2011 / 14:14:16 / cg"
 "Modified: / 07-10-2011 / 19:14:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 linesInsertedFrom: start to: end
 services do: [:each |
-each isEnabled ifTrue: [
+	each isEnabled ifTrue: [
-each linesInsertedFrom: start to: end
+	    each linesInsertedFrom: start to: end
-]
+	]
 ].
 "Created: / 06-07-2011 / 17:12:48 / jv"
 "Modified: / 06-10-2011 / 14:14:20 / cg"
 !
 linesModifiedFrom: start to: end
 services do: [:each |
-each isEnabled ifTrue: [
+	each isEnabled ifTrue: [
-each linesModifiedFrom: start to: end
+	    each linesModifiedFrom: start to: end
-]
+	]
 ].
 "Created: / 06-07-2011 / 17:12:58 / jv"
 "Modified: / 06-10-2011 / 14:13:44 / cg"
-! !
+!
+!
 !CodeView2 methodsFor:'diff mode'!
 recomputeDiff:view
 |t1 t2 pom diffHelper view2|
 t1 := view getNewOriginText.
 synchronizedCodeViews do:[:codeView |
-view2 := codeView
+	view2 := codeView
 ].
 view changedDiffText:false.
 view2 changedDiffText:false.
 t2 := view2 getNewOriginText.
 pom := DiffCodeView2 new.
 (view == textView) ifTrue:[
-diffHelper := pom computeDiffDataForText1:t1 text2:t2.
+	diffHelper := pom computeDiffDataForText1:t1 text2:t2.
-(view) contents:(diffHelper text1).
+	(view) contents:(diffHelper text1).
-(view) deletedLines:(diffHelper deleted).
+	(view) deletedLines:(diffHelper deleted).
-(view) changedLines:(diffHelper changed).
+	(view) changedLines:(diffHelper changed).
-(view) originDiffText:t1.
+	(view) originDiffText:t1.
-(view) emptyLines:(diffHelper inserted).
+	(view) emptyLines:(diffHelper inserted).
-(view) changedLines:(diffHelper changed).
+	(view) changedLines:(diffHelper changed).
-(view2) contents:(diffHelper text2).
+	(view2) contents:(diffHelper text2).
-(view2) insertedLines:(diffHelper inserted).
+	(view2) insertedLines:(diffHelper inserted).
-(view2) changedLines:(diffHelper changed).
+	(view2) changedLines:(diffHelper changed).
-(view2) originDiffText:t2.
+	(view2) originDiffText:t2.
-(view2) emptyLines:(diffHelper deleted).
+	(view2) emptyLines:(diffHelper deleted).
 ].
 "Modified: / 22-06-2010 / 23:35:41 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 23-06-2010 / 17:25:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'initialization'!
 initialize
 "Invoked when a new instance is created."
 "Call super initialize"
 super initialize.
 "Now set up some visual properties"
 self level:-1.
 "Now initialize sub-views"
 showGutterChannel := ValueHolder with: true.
 showGutterChannel addDependent: self.
 "/ toDo: I don't like two options in the settings;
 "/ showAcceptCancelBarChannel := (ValueHolder with: (UserPreferences current showAcceptCancelBarInBrowser)).
 showAcceptCancelBarChannel := ValueHolder with: (UserPreferences current codeView2ShowAcceptCancel).
 "/ these views must be created first, as they refer to each other's channels in their
 textView := textViewScroller scrolledView.
 self initializeGutterView.
 self initializeTextView.
 textView setCodeView:self.
 modifiedChannel := ValueHolder with:false.
 diffMode := false.
 synchronizedCodeViews := #().
 currentParseNodeHolder := ValueHolder new.
 currentBlockNodeHolder := ValueHolder new.
 | serviceClasses |
 "/ only do it, if the services have not yet been defined by the user of this view
 "/ (FileBrowser does not want Smalltalk-specific services)
 servicesFromClient ifFalse:[
-serviceClasses := CodeViewService availableServices
+	serviceClasses := CodeViewService availableServices
-sort:[:a :b|
+	    sort:[:a :b|
-a priority = b priority
+		a priority = b priority
-ifTrue:[a name < b name]
+		    ifTrue:[a name < b name]
-ifFalse:[a priority > b priority]].
+		    ifFalse:[a priority > b priority]].
-serviceClasses do:[:cls|
+	serviceClasses do:[:cls|
-self registerService: cls new
+	    self registerService: cls new
-].
+	].
 ].
 "Modified: / 06-10-2011 / 14:16:01 / cg"
 "Modified: / 01-02-2012 / 10:30:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 initializeTextView
 "Initialize textView. gutterView has to be already initialized!!"
 textViewScroller
-origin: ((self showGutter ifTrue:[gutterView width] ifFalse:[0.0]) @ 0.0)
+	origin: ((self showGutter ifTrue:[gutterView width] ifFalse:[0.0]) @ 0.0)
-corner: 1.0@1.0;
+	corner: 1.0@1.0;
-level: 0.
+	level: 0.
 textView level: 0.
 textView modifiedChannel addDependent: self.
 "Created: / 02-09-2009 / 21:36:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 superEditMenu := textView superEditMenu.
 moreMenu := superEditMenu subMenuAt: superEditMenu numberOfItems.
 textView sensor ctrlDown ifTrue:[
-^superEditMenu
+	^superEditMenu
 ].
 editMenu := self class editMenu decodeAsLiteralArray.
 moreMenuItem := editMenu menuItemLabeled: 'More'.
 moreMenuItem submenu: moreMenu asMenu.
 | selectorAndSelectedText selector selectedText  implementors |
 selectedText := textView selectionAsString.
 selectedText size > 0 ifTrue:[
-"/ self windowGroup withWaitCursorDo:[
+	"/ self windowGroup withWaitCursorDo:[
-selectorAndSelectedText := self extractSelectorAndSelectedTextFrom:  selectedText.
+	    selectorAndSelectedText := self extractSelectorAndSelectedTextFrom:  selectedText.
-selector := selectorAndSelectedText first.
+	    selector := selectorAndSelectedText first.
-selectedText := selectorAndSelectedText second.
+	    selectedText := selectorAndSelectedText second.
-(selector notNil and:[selector = selectedText]) ifTrue:[
+	    (selector notNil and:[selector = selectedText]) ifTrue:[
-implementors := (SystemBrowser
+		implementors := (SystemBrowser
-findImplementorsOf:selectedText "Any: (Array with:selectedText)"
+				    findImplementorsOf:selectedText "Any: (Array with:selectedText)"
-in:(Smalltalk allClasses)
+				    in:(Smalltalk allClasses)
-ignoreCase:false)
+				    ignoreCase:false)
-] ifFalse:[
+	    ] ifFalse:[
-implementors := (SystemBrowser
+		implementors := (SystemBrowser
-findImplementorsOfAny:(Array with:selectedText with: selector)
+				    findImplementorsOfAny:(Array with:selectedText with: selector)
-in:(Smalltalk allClasses)
+				    in:(Smalltalk allClasses)
-ignoreCase:false)
+				    ignoreCase:false)
-].
+	    ].
-"/ ]
+	"/ ]
 ] ifFalse:[
-implementors := #().
+	implementors := #().
 ].
 ^self implementorsMenu: implementors selector: (selector ? selectedText)
 "Modified: / 19-10-2008 / 08:16:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
 "Created: / 30-06-2011 / 19:28:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 05-03-2012 / 09:02:43 / cg"
 !
 implementorsMenu: implementors selector: selector
 | menu|
 menu := Menu new.
 implementors isEmptyOrNil ifTrue:[
-menu addItem:(MenuItem label:'No implementors found') disable
+	menu addItem:(MenuItem label:'No implementors found') disable
 ] ifFalse:[
-menu addItem:(MenuItem
+	menu addItem:(MenuItem
-label:(selector storeString , (' (all implementors) ') asText allItalic)
+		    label:(selector storeString , (' (all implementors) ') asText allItalic)
-value:[
+		    value:[
-self browseMethods:implementors
+			self browseMethods:implementors
-label:'Implementors of ' , selector storeString
+			    label:'Implementors of ' , selector storeString
-]).
+		    ]).
-menu addSeparator.
+	menu addSeparator.
-(implementors asOrderedCollection sort:[:a :b | a mclass name < b mclass name])
+	(implementors asOrderedCollection sort:[:a :b | a mclass name < b mclass name])
-"implementors" do:[:mth |
+	"implementors" do:[:mth |
-menu
+	    menu
-addItem:(MenuItem label:(selector storeString
+		addItem:(MenuItem label:(selector storeString
-, (' in ' , mth containingClass name asText allBold))
+				, (' in ' , mth containingClass name asText allBold))
-value:[ self browseMethod:mth label: 'Implementor of ' , selector storeString  ])
+			value:[ self browseMethod:mth label: 'Implementor of ' , selector storeString  ])
-]
+	]
 ].
 ^ menu
 "Modified: / 19-10-2008 / 08:16:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
 "Created: / 14-02-2010 / 19:39:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 | selectorAndSelectedText selector selectedText  senders |
 selectedText := textView selectionAsString.
 selectedText size > 0 ifTrue:[
-"/ self windowGroup withWaitCursorDo:[
+	"/ self windowGroup withWaitCursorDo:[
-selectorAndSelectedText := self extractSelectorAndSelectedTextFrom:  selectedText.
+	    selectorAndSelectedText := self extractSelectorAndSelectedTextFrom:  selectedText.
-selector := selectorAndSelectedText first.
+	    selector := selectorAndSelectedText first.
-selectedText := selectorAndSelectedText second.
+	    selectedText := selectorAndSelectedText second.
-(selector notNil and:[selector = selectedText]) ifTrue:[
+	    (selector notNil and:[selector = selectedText]) ifTrue:[
-senders := (SystemBrowser
+		senders := (SystemBrowser
-findSendersOf:selectedText "Any:(Array with:selectedText)"
+				findSendersOf:selectedText "Any:(Array with:selectedText)"
-in:(Smalltalk allClasses)
+				in:(Smalltalk allClasses)
-ignoreCase:false)
+				ignoreCase:false)
-] ifFalse:[
+	    ] ifFalse:[
-senders := (SystemBrowser
+		senders := (SystemBrowser
-findSendersOfAny:(Array with:selectedText with: selector)
+				findSendersOfAny:(Array with:selectedText with: selector)
-in:(Smalltalk allClasses)
+				in:(Smalltalk allClasses)
-ignoreCase:false)
+				ignoreCase:false)
-].
+	    ].
-"/ ]
+	"/ ]
 ] ifFalse:[
-senders := #().
+	senders := #().
 ].
 ^self sendersMenu: senders selector: (selector ? selectedText)
 "Modified: / 19-10-2008 / 08:16:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
 "Created: / 30-06-2011 / 19:28:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 05-03-2012 / 09:02:56 / cg"
 !
 sendersMenu: senders  selector: selector
 | menu shownSenderItems numCut sendersSorted|
 menu := Menu new.
 senders isEmptyOrNil ifTrue:[
-menu addItem:(MenuItem label:'No senders found') disable
+	menu addItem:(MenuItem label:'No senders found') disable
 ] ifFalse:[
-menu addItem:(MenuItem
+	menu addItem:(MenuItem
-label:(selector storeString , (' (all senders)') asText allItalic)
+		    label:(selector storeString , (' (all senders)') asText allItalic)
-value:[
+		    value:[
-self browseMethods:senders
+			self browseMethods:senders
-label:'Senders of ' , selector storeString
+			    label:'Senders of ' , selector storeString
-]).
+		    ]).
-menu addSeparator.
+	menu addSeparator.
-sendersSorted := senders asOrderedCollection
+	sendersSorted := senders asOrderedCollection
-sort:[:a :b | a whoString < b whoString].
+			    sort:[:a :b | a whoString < b whoString].
-shownSenderItems := (senders size > 20) ifTrue:[sendersSorted copyTo:20] ifFalse:[sendersSorted].
+	shownSenderItems := (senders size > 20) ifTrue:[sendersSorted copyTo:20] ifFalse:[sendersSorted].
-numCut := senders size - 20.
+	numCut := senders size - 20.
-shownSenderItems do:[:mth |
+	shownSenderItems do:[:mth |
-menu
+	    menu
-addItem:(MenuItem label:(mth selector storeString
+		addItem:(MenuItem label:(mth selector storeString
-, (' in ' , mth containingClass name asText allBold))
+				, (' in ' , mth containingClass name asText allBold))
-value:[ self browseMethod:mth label: 'Sender of ' , selector storeString ])
+			value:[ self browseMethod:mth label: 'Sender of ' , selector storeString ])
-].
+	].
-numCut > 0 ifTrue:[
+	numCut > 0 ifTrue:[
-menu addSeparator.
+	    menu addSeparator.
-menu addItem:(MenuItem label:('... %1 more senders not shown here' bindWith:numCut)) disable
+	    menu addItem:(MenuItem label:('... %1 more senders not shown here' bindWith:numCut)) disable
-].
+	].
 ].
 ^ menu
 "Modified: / 19-10-2008 / 08:17:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
 "Created: / 14-02-2010 / 19:40:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 item indication:(self showGutterChannel).
 menu addItem:item.
 menu addSeparator.
 anyService := false.
 services do:[:service |
-|item|
+	|item|
-item := MenuItem label:(resources string:service label).
+	item := MenuItem label:(resources string:service label).
-item indication:((AspectAdaptor forAspect:#enabled) subject:service).
+	item indication:((AspectAdaptor forAspect:#enabled) subject:service).
-menu addItem:item.
+	menu addItem:item.
-anyService := true.
+	anyService := true.
 ].
 anyService ifTrue:[
-menu addSeparator.
+	menu addSeparator.
 ].
 item := MenuItem label:(resources string:'Debug').
 item submenuChannel:[ self class debugMenu ].
 menu addItem:item.
 ! !
 !CodeView2 methodsFor:'private'!
 codeCompletion
 |cls
 "/     crsrPos interval node checkedNode
 "/     char start stop selectorSoFar matchingSelectors
 |
 cls := self classHolder value.
 cls isNil ifTrue:[
-self showInfo:'No class'.
+	self showInfo:'No class'.
-^ self.
+	^ self.
 ].
 UserInformation handle:[:ex |
-self showInfo:(ex messageText).
+	self showInfo:(ex messageText).
-ex proceed.
+	ex proceed.
 ] do:[
-self withWaitCursorDo:[
+	self withWaitCursorDo:[
-DoWhatIMeanSupport codeCompletionForClass:cls codeView:self.
+	    DoWhatIMeanSupport codeCompletionForClass:cls codeView:self.
-]
+	]
 ].
 ^ self.
 "/
 "/    interval := self selectedInterval.
 textView modified ifTrue:[^true].
 "/ higher prio to prevent it from being changed while we convert it (by editing)
 Processor activeProcess
-withHigherPriorityDo:[
+	withHigherPriorityDo:[
-changedSource := textView contentsAsString asStringCollection.
+	    changedSource := textView contentsAsString asStringCollection.
-].
+	].
 changedSource := changedSource collect:[:line | line string withoutTrailingSeparators withTabsExpanded].
 changedSource := changedSource collect:[:line | line isEmpty ifTrue:[nil] ifFalse:[line]].
 [changedSource size > 0 and:[changedSource last isNil]] whileTrue:[
-changedSource := changedSource copyButLast:1
+	changedSource := changedSource copyButLast:1
 ].
 changedSource := changedSource asString.
-originalSource := textView model value ? ''.
+	originalSource := textView model value ? ''.
-originalSource := originalSource asStringCollection.
+	originalSource := originalSource asStringCollection.
-originalSource := originalSource collect:[:line | line string withoutTrailingSeparators withTabsExpanded].
+	originalSource := originalSource collect:[:line | line string withoutTrailingSeparators withTabsExpanded].
-originalSource := originalSource collect:[:line | line isEmpty ifTrue:[nil] ifFalse:[line]].
+	originalSource := originalSource collect:[:line | line isEmpty ifTrue:[nil] ifFalse:[line]].
-[originalSource size > 0 and:[originalSource last isNil]] whileTrue:[
+	[originalSource size > 0 and:[originalSource last isNil]] whileTrue:[
-originalSource := originalSource copyButLast:1
+	    originalSource := originalSource copyButLast:1
-].
+	].
-s1 := originalSource asString.
+	s1 := originalSource asString.
-s2 := changedSource asString.
+	s2 := changedSource asString.
-modified := (s1 ~= s2).
+	modified := (s1 ~= s2).
 ^ modified
 "Created: / 06-02-2010 / 19:59:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified (format): / 05-06-2012 / 23:55:02 / cg"
 showInfo: message
 | app |
 (app := self topView application) ifNotNil:
-[(app respondsTo: #showInfo:) ifTrue:
+	[(app respondsTo: #showInfo:) ifTrue:
-[app showInfo: message]].
+	    [app showInfo: message]].
 "Modified: / 13-02-2010 / 23:25:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'private-accessing'!
 !
 syntaxElementSelection:anElement
 syntaxElementSelection := anElement.
 anElement isNil ifTrue:[
-currentParseNodeHolder value: nil.
+	currentParseNodeHolder value: nil.
-currentBlockNodeHolder value: nil.
+	currentBlockNodeHolder value: nil.
 ] ifFalse:[
-currentParseNodeHolder value: anElement node.
+	currentParseNodeHolder value: anElement node.
-currentBlockNodeHolder value: anElement node enclosingBlock.
+	currentBlockNodeHolder value: anElement node enclosingBlock.
 ]
 "Modified: / 16-02-2012 / 23:06:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 !CodeView2 methodsFor:'realization'!
 postRealize
 services do:[:service|
-service viewRealized.
+	service viewRealized.
 ]
 "Created: / 23-01-2012 / 10:35:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 ^(self height * 0.6) ceiling.
 "Created: / 07-10-2011 / 19:53:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 cancelButtonBottom
 ^(self height * 0.8) ceiling.
 "Created: / 07-10-2011 / 19:54:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 padding
 ^self paddingLeft + self paddingRight
-+ self usedWidthForAcceptCancel
+	+ self usedWidthForAcceptCancel
-+ (widthAnnotations ? 0)
+	+ (widthAnnotations ? 0)
-+ (widthDiffInfo ? 0)
+	+ (widthDiffInfo ? 0)
 "Created: / 14-02-2010 / 22:28:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 07-10-2011 / 19:01:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified (format): / 07-10-2011 / 20:45:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 explicitExtent ifNotNil:[^explicitExtent].
 preferredExtent ifNotNil:[^preferredExtent].
 font := self font.
 w := (font widthOf:'00') + self padding.
 h := textView notNil
-ifTrue:[textView height]
+	    ifTrue:[textView height]
-ifFalse:[font height * 12].
+	    ifFalse:[font height * 12].
 ^preferredExtent := w @ h
 "Modified: / 16-06-2011 / 14:03:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified (format): / 26-03-2012 / 11:19:54 / cg"
 currentBlockNodeHolder
 "return/create the 'currentBlockNodeHolder' value holder (automatically generated)"
 currentBlockNodeHolder isNil ifTrue:[
-currentBlockNodeHolder := ValueHolder new.
+	currentBlockNodeHolder := ValueHolder new.
-currentBlockNodeHolder addDependent:self.
+	currentBlockNodeHolder addDependent:self.
 ].
 ^ currentBlockNodeHolder
 !
 currentBlockNodeHolder:something
 "set the 'currentBlockNodeHolder' value holder (automatically generated)"
 |oldValue newValue|
 currentBlockNodeHolder notNil ifTrue:[
-oldValue := currentBlockNodeHolder value.
+	oldValue := currentBlockNodeHolder value.
-currentBlockNodeHolder removeDependent:self.
+	currentBlockNodeHolder removeDependent:self.
 ].
 currentBlockNodeHolder := something.
 currentBlockNodeHolder notNil ifTrue:[
-currentBlockNodeHolder addDependent:self.
+	currentBlockNodeHolder addDependent:self.
 ].
 newValue := currentBlockNodeHolder value.
 oldValue ~~ newValue ifTrue:[
-self update:#value with:newValue from:currentBlockNodeHolder.
+	self update:#value with:newValue from:currentBlockNodeHolder.
 ].
 ! !
 !CodeView2::GutterView methodsFor:'change & update'!
 update:something with:aParameter from:changedObject
 self shown ifFalse:[^self].
 (changedObject == textView) ifTrue:[
-(something == #sizeOfContents) ifTrue:[
+	(something == #sizeOfContents) ifTrue:[
-"/ cg: with that test, it does not update when the text becomes smaller...
+	    "/ cg: with that test, it does not update when the text becomes smaller...
 "/            (firstLineShown ~= textView firstLineShown
 "/            or:[lastLineShown ~= (textView lastLineShown - 1)]) ifTrue:[
-self invalidate.
+		self invalidate.
-^self.
+		^self.
 "/            ]
-].
+	].
 ].
 (changedObject == textView reallyModifiedChannel) ifTrue:[
-self invalidate.
+	self invalidate.
 ].
 changedObject == codeView currentBlockNodeHolder ifTrue:[
-self invalidate.
+	 self invalidate.
-^ self.
+	 ^ self.
 ].
 "/ changedObject == someOfMyValueHolders ifTrue:[
 "/     self doSomethingApropriate.
 buttonPress: btn x: x y: y
 |extraSafeArea|
 (x <= (self paddingLeft + self usedWidthForAcceptCancel)) ifTrue:[
-textView reallyModified ifTrue:[
+	textView reallyModified ifTrue:[
-(y < self acceptButtonBottom) ifTrue:[
+	    (y < self acceptButtonBottom) ifTrue:[
-self accept.
+		self accept.
-^self.
+		^self.
-].
+	    ].
-(y < self cancelButtonBottom) ifTrue:[
+	    (y < self cancelButtonBottom) ifTrue:[
-self cancel.
+		self cancel.
-^self.
+		^self.
-].
+	    ].
-self diff.
+	    self diff.
-].
+	].
-^self.
+	^self.
 ].
 false ifTrue:[
 "Do not allow clicking on line numbers..."
 extraSafeArea := "('999' widthOn:self)" 5.
 x < (self width - self paddingRight - widthDiffInfo - extraSafeArea) ifFalse:[^ self].
 ].
 ((x > (self paddingLeft + self usedWidthForAcceptCancel)) or:
-[x < (self width - self paddingRight - widthDiffInfo)]
+	[x < (self width - self paddingRight - widthDiffInfo)]
 ) ifTrue:[
-(codeView buttonPress: btn x:x y:y in: self) ifFalse:[
+	(codeView buttonPress: btn x:x y:y in: self) ifFalse:[
-super buttonPress: btn x: x y: y
+	    super buttonPress: btn x: x y: y
-]
+	]
 ] ifFalse:[
-super buttonPress: btn x: x y: y
+	super buttonPress: btn x: x y: y
 ]
 "Created: / 17-06-2011 / 13:02:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified (comment): / 18-05-2012 / 10:56:54 / cg"
 ! !
 redrawAcceptCancelBarX: x y: y width:w height:h
 | rw acceptBottom cancelBottom |
 x > ((self paddingLeft) + (widthAcceptCancel ? 0)) ifTrue:[
-^self.
+	^self.
 ].
 rw := ((x + w) min: (self paddingLeft + (widthAcceptCancel ? 0))) - x.
 textView reallyModified ifFalse:[
-self fillRectangleX:x y:y width:rw height:h color: self viewBackground
+	self fillRectangleX:x y:y width:rw height:h color: self viewBackground
 ] ifTrue:[
-acceptBottom := self acceptButtonBottom.
+	acceptBottom := self acceptButtonBottom.
-cancelBottom := self cancelButtonBottom.
+	cancelBottom := self cancelButtonBottom.
-y < acceptBottom ifTrue:[
+	y < acceptBottom ifTrue:[
-self fillRectangleX:x y:y width:rw height: ((y + h) min: acceptBottom) color: acceptColor.
+	    self fillRectangleX:x y:y width:rw height: ((y + h) min: acceptBottom) color: acceptColor.
-].
+	].
-(y < cancelBottom) ifTrue:[
+	(y < cancelBottom) ifTrue:[
-self fillRectangleX:x y: acceptBottom + 1width:rw height: ((y + h) min: cancelBottom) - acceptBottom - 1color: cancelColor.
+	    self fillRectangleX:x y: acceptBottom + 1width:rw height: ((y + h) min: cancelBottom) - acceptBottom - 1color: cancelColor.
-].
+	].
-(y + h >= cancelBottom) ifTrue:[
+	(y + h >= cancelBottom) ifTrue:[
-self fillRectangleX:x y: cancelBottom + 1 width:rw height: (y + h) - cancelBottom - 1 color: diffColor.
+	    self fillRectangleX:x y: cancelBottom + 1 width:rw height: (y + h) - cancelBottom - 1 color: diffColor.
-]
+	]
 ]
 "Created: / 07-10-2011 / 19:44:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 redrawBackgroundX:x y:y width:w height:h
 "redraws gutter background"
 "background is filled with background color"
 self
-fillRectangleX:x
+	fillRectangleX:x
-y:y
+	y:y
-width:w
+	width:w
-height:h
+	height:h
-color: self viewBackground "backgroundPaint".
+	color: self viewBackground "backgroundPaint".
 "separator line is drawn with foreground color"
 self
-displayLineFromX:(self width - 2)
+	displayLineFromX:(self width - 2)
-y:y
+	y:y
-toX:(self width - 2)
+	toX:(self width - 2)
-y:(y+h).
+	y:(y+h).
 "Created: / 14-12-2009 / 13:15:53 / Jindra <a>"
 "Modified: / 14-12-2009 / 15:09:54 / Jindra <a>"
 "Modified: / 17-08-2011 / 15:12:47 / cg"
 "Modified (comment): / 07-10-2011 / 19:37:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 redrawLine:line
 ^self redrawLine:line cleared: false.
 "Modified: / 17-06-2011 / 14:12:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 redrawLine:line cleared: cleared
 "redraws specified line. Returns width of drawn object. Color of drawn objects should be taken from lineFont, lineColor"
 |lineString y0 yOfLine textW requiredW oldFont newFont oldColor newColor|
 lineString := self displayedString:line.
 textW := (lineString widthOn:self).
 requiredW := textW + self padding.
 oldFont := self font.
 oldColor := self paint.
 newFont := self lineFont:line.
 newFont isNil ifTrue:[
-newFont := oldFont.
+	newFont := oldFont.
-newColor := self lineColor:line.
+	newColor := self lineColor:line.
-newColor notNil ifTrue:[ self paint:newColor ].
+	newColor notNil ifTrue:[ self paint:newColor ].
 ] ifFalse:[
-self font:newFont.
+	self font:newFont.
 ].
 (newFont heightOn:device) > (textView font heightOn:device) ifTrue:[
-newFont := textView font.
+	newFont := textView font.
-self font:newFont
+	self font:newFont
 ].
 y0 := (textView yOfLine:line)
-+ (textView font ascentOn:device)
+	  + (textView font ascentOn:device)
-"/ - (newFont descentOn:device)
+	  "/ - (newFont descentOn:device)
-+ 1.
+	  + 1.
 cleared ifFalse:[
-self clearRectangleX:0 y:y0 - font height width: self width - 2 height: font height + font descent.
+	self clearRectangleX:0 y:y0 - font height width: self width - 2 height: font height + font descent.
 ].
 "Let the services to draw annotations and other stuff"
 codeView
-drawLine:line in: self
+	drawLine:line in: self
-atX: self paddingLeft + self usedWidthForAcceptCancel y:y0 width: widthAnnotations height: font height
+	atX: self paddingLeft + self usedWidthForAcceptCancel y:y0 width: widthAnnotations height: font height
-from:nil to:nil with:self paint and: self backgroundColor.
+	from:nil to:nil with:self paint and: self backgroundColor.
 self
-displayString:lineString
+	displayString:lineString
-x:(self width - textW - self paddingRight - widthDiffInfo)
+	x:(self width - textW - self paddingRight - widthDiffInfo)
-y:y0.
+	y:y0.
 newFont notNil ifTrue:[
-self font:oldFont.
+	self font:oldFont.
-self paint:oldColor
+	self paint:oldColor
 ] ifFalse:[
-newColor notNil ifTrue:[
+	newColor notNil ifTrue:[
-self paint:oldColor
+	    self paint:oldColor
-].
+	].
 ].
 ^ requiredW.
 "Modified: / 14-12-2009 / 15:30:44 / Jindra <a>"
 !
 redrawLinesFrom:start
 start to: (textView lastLineShown - 1 min: textView list size) do:[:line|
-self redrawLine:line cleared: false.
+	self redrawLine:line cleared: false.
 ]
 "Created: / 06-07-2011 / 17:25:36 / jv"
 "Modified: / 12-07-2011 / 17:14:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 redrawX:x y:y width:w height:h
 | requiredW currentW |
 self redrawBackgroundX:x y:y width:w height:h.
 codeView showAcceptCancelBar ifTrue:[
-self redrawAcceptCancelBarX:x y:y width:w height:h.
+	self redrawAcceptCancelBarX:x y:y width:w height:h.
 ].
 firstLineShown := textView firstLineShown.
 lastLineShown := textView lastLineShown - 1 min: textView list size.
 currentW := requiredW := self width.
 firstLineShown to:lastLineShown do:
-[:line |
+	[:line |
-requiredW := requiredW max: (self redrawLine:line cleared: true)].
+	requiredW := requiredW max: (self redrawLine:line cleared: true)].
 (requiredW > self width) ifTrue:[
-self corner:(requiredW @ 1.0).
+	self corner:(requiredW @ 1.0).
-textViewScroller origin:(requiredW @ 0.0) corner:(1.0 @ 1.0).
+	textViewScroller origin:(requiredW @ 0.0) corner:(1.0 @ 1.0).
-self invalidate.
+	self invalidate.
 ].
 "Created: / 03-09-2009 / 08:22:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 14-12-2009 / 14:13:14 / Jindra <a>"
 "Modified: / 10-10-2011 / 16:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Created: / 26-04-2010 / 20:30:32 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 26-04-2010 / 21:48:13 / Jakub <zelenja7@fel.cvut.cz>"
 !
 changedLines:something
 changedLines := something.
 "Created: / 26-04-2010 / 20:30:19 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 02-05-2010 / 19:13:32 / Jakub <zelenja7@fel.cvut.cz>"
 !
 ^  deletedLines
 "Modified: / 26-04-2010 / 21:48:23 / Jakub <zelenja7@fel.cvut.cz>"
 !
 deletedLines:something
 deletedLines := something.
 "Modified: / 26-04-2010 / 21:48:54 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified (format): / 17-07-2012 / 18:56:44 / cg"
 !
 ^  insertedLines
 "Modified: / 26-04-2010 / 21:48:27 / Jakub <zelenja7@fel.cvut.cz>"
 !
 insertedLines:something
 insertedLines := something.
 "Modified: / 26-04-2010 / 21:48:59 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified (format): / 17-07-2012 / 18:56:50 / cg"
 !
 |prev|
 prev := reallyModifiedChannel.
 prev notNil ifTrue:[
-gutterView notNil ifTrue:[
+	gutterView notNil ifTrue:[
-reallyModifiedChannel removeDependent: gutterView.
+	    reallyModifiedChannel removeDependent: gutterView.
-]
+	]
 ].
 reallyModifiedChannel := aValueModel.
 self setupChannel:aValueModel for:nil withOld:prev.
 gutterView notNil ifTrue:[
-reallyModifiedChannel addDependent: gutterView.
+	reallyModifiedChannel addDependent: gutterView.
 ]
 "Created: / 07-10-2011 / 18:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::TextView methodsFor:'delegation-events'!
 isQuickMenuModifierPressed
 UserPreferences current codeView2QuickSendersAndImplementorsOnControl ifTrue:[
-^ self sensor ctrlDown
+	^ self sensor ctrlDown
 ].
 ^ self sensor metaDown
 !
 isQuickMenuModifierReleased
 UserPreferences current codeView2QuickSendersAndImplementorsOnControl ifTrue:[
-^ self sensor ctrlDown not
+	^ self sensor ctrlDown not
 ].
 ^ self sensor metaDown not
 ! !
 !CodeView2::TextView methodsFor:'drawing'!
 backgroundForVisibleLine:visLineNr default:bg
 | lineNr |
 diffMode ifTrue:[
-lineNr := self visibleLineToListLine:visLineNr.
+	lineNr := self visibleLineToListLine:visLineNr.
-(insertedLines notEmptyOrNil and:[insertedLines includes:lineNr]) ifTrue:[
+	(insertedLines notEmptyOrNil and:[insertedLines includes:lineNr]) ifTrue:[
-^self colorInserted
+	    ^self colorInserted
-].
+	].
-(changedLines notEmptyOrNil and:[changedLines includes:lineNr]) ifTrue:[
+	(changedLines notEmptyOrNil and:[changedLines includes:lineNr]) ifTrue:[
-^self colorChanged
+	    ^self colorChanged
-].
+	].
-(deletedLines notEmptyOrNil and:[deletedLines includes:lineNr]) ifTrue:[
+	(deletedLines notEmptyOrNil and:[deletedLines includes:lineNr]) ifTrue:[
-^self colorDeleted
+	    ^self colorDeleted
-].
+	].
 ].
 ^ bg
 "Modified: / 17-03-2012 / 12:22:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 drawFromVisibleLine:startVisLineNr to:endVisLineNr with:fg and:bg
 "draw a visible line range in fg/bg"
 diffMode ifFalse:[
-super drawFromVisibleLine:startVisLineNr to:endVisLineNr with:fg and:bg.
+	super drawFromVisibleLine:startVisLineNr to:endVisLineNr with:fg and:bg.
-^self.
+	^self.
 ].
 startVisLineNr to: endVisLineNr do:[:visLineNr|
-self drawVisibleLine: visLineNr with:fg and:bg
+	self drawVisibleLine: visLineNr with:fg and:bg
 ]
 "Modified: / 15-12-1999 / 23:19:39 / cg"
 "Created: / 17-03-2012 / 09:44:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 drawLine:line fromX:x inVisible:visLineNr with:fg and:bg
 super
-drawLine:line
+	drawLine:line
-fromX:x
+	fromX:x
-inVisible:visLineNr
+	inVisible:visLineNr
-with:fg
+	with:fg
-and:(self backgroundForVisibleLine:visLineNr default:bg).
+	and:(self backgroundForVisibleLine:visLineNr default:bg).
 "Created: / 05-04-2010 / 12:07:07 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 02-05-2010 / 18:46:00 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 17-03-2012 / 10:05:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 drawLine:lineStringArg inVisible:visLineNr col:col with:fg and:bg
 super
-drawLine:lineStringArg
+	drawLine:lineStringArg
-inVisible:visLineNr
+	inVisible:visLineNr
-col:col
+	col:col
-with:fg
+	with:fg
-and:(self backgroundForVisibleLine:visLineNr default:bg).
+	and:(self backgroundForVisibleLine:visLineNr default:bg).
 "Created: / 05-04-2010 / 11:49:42 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 02-05-2010 / 18:45:56 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 17-03-2012 / 10:04:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 drawLine:lineStringArg inVisible:visLineNr from:startCol to:endColOrNil with:fg and:bg
 super
-drawLine:lineStringArg
+	drawLine:lineStringArg
-inVisible:visLineNr
+	inVisible:visLineNr
-from:startCol
+	from:startCol
-to:endColOrNil
+	to:endColOrNil
-with:fg
+	with:fg
-and:(self backgroundForVisibleLine:visLineNr default:bg).
+	and:(self backgroundForVisibleLine:visLineNr default:bg).
 "Created: / 05-04-2010 / 11:54:54 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 02-05-2010 / 18:45:52 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 17-03-2012 / 10:04:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 drawLine:lineString inVisible:visLineNr from:startCol with:fg and:bg
 super
-drawLine:lineString
+	drawLine:lineString
-inVisible:visLineNr
+	inVisible:visLineNr
-from:startCol
+	from:startCol
-with:fg
+	with:fg
-and:(self backgroundForVisibleLine:visLineNr default:bg).
+	and:(self backgroundForVisibleLine:visLineNr default:bg).
 "Created: / 05-04-2010 / 11:54:26 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 02-05-2010 / 18:45:48 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 17-03-2012 / 10:04:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 drawVisibleLine:visLineNr with:fg and:bg
 super
-drawVisibleLine:visLineNr
+	drawVisibleLine:visLineNr
-with:fg
+	with:fg
-and:(self backgroundForVisibleLine:visLineNr default:bg).
+	and:(self backgroundForVisibleLine:visLineNr default:bg).
 "Created: / 05-04-2010 / 11:49:42 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 02-05-2010 / 18:45:44 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 17-03-2012 / 10:04:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 redrawLines
 |i pom|
 diffMode ifFalse:[^self].
 pom := self hasSelection.
 (pom) ifTrue:[ ^ self. ].
 i := 1.
 [
-i <= (deletedLines size)
+	i <= (deletedLines size)
 ] whileTrue:[
-((deletedLines at:i) > 0) ifTrue:[
+	((deletedLines at:i) > 0) ifTrue:[
-super
+	    super
-drawVisibleLine:(deletedLines at:i)
+		drawVisibleLine:(deletedLines at:i)
-with:fgColor
+		with:fgColor
-and:self colorDeleted.
+		and:self colorDeleted.
-].
+	].
-i := i + 1.
+	i := i + 1.
 ].
 i := 1.
 [
-i <= (insertedLines size)
+	i <= (insertedLines size)
 ] whileTrue:[
-((insertedLines at:i) > 0) ifTrue:[
+	((insertedLines at:i) > 0) ifTrue:[
-super
+	    super
-drawVisibleLine:(insertedLines at:i)
+		drawVisibleLine:(insertedLines at:i)
-with:fgColor
+		with:fgColor
-and:self colorInserted.
+		and:self colorInserted.
-].
+	].
-i := i + 1.
+	i := i + 1.
 ].
 i := 1.
 [
-i <= (changedLines size)
+	i <= (changedLines size)
 ] whileTrue:[
-((changedLines at:i) > 0) ifTrue:[
+	((changedLines at:i) > 0) ifTrue:[
-super
+	    super
-drawVisibleLine:(changedLines at:i)
+		drawVisibleLine:(changedLines at:i)
-with:fgColor
+		with:fgColor
-and:self colorChanged.
+		and:self colorChanged.
-].
+	].
-i := i + 1.
+	i := i + 1.
 ].
 "Created: / 26-04-2010 / 21:04:31 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 22-06-2010 / 23:28:30 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 17-03-2012 / 09:27:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 contentsChanged
 super contentsChanged.
 "
 codeView diffMode ifTrue:[
-changedDiffText ifTrue:[
+	changedDiffText ifTrue:[
-codeView recomputeDiff:self.
+	    codeView recomputeDiff:self.
-] ifFalse:[
+	] ifFalse:[
-changedDiffText := true.
+	    changedDiffText := true.
-].
+	].
 ]
 "
 "Created: / 22-06-2010 / 23:13:24 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 01-08-2010 / 20:33:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 |soCol wasOn lineNrAboveCursor ln originalLine prevTab|
 wasOn := self hideCursor.
 "JV@2012-01-06: Do not play with autoindent iff cursor is at the very beginning of the line"
 (autoIndent
 and:[cursorCol ~~ 1
 and:[ (tabPositions includes:cursorCol)
 ]]) ifTrue:[
-prevTab := (self prevTabBefore:cursorCol) max:1.
+	prevTab := (self prevTabBefore:cursorCol) max:1.
-"JV@2011-12-10: The list can be shorter than cursorLine,
+	"JV@2011-12-10: The list can be shorter than cursorLine,
-trailing because empty lines are not physically in the list."
+	 trailing because empty lines are not physically in the list."
-(list size >= cursorLine) ifTrue:[
+	(list size >= cursorLine) ifTrue:[
-ln := originalLine := (list at:cursorLine) ? ''.
+	    ln := originalLine := (list at:cursorLine) ? ''.
-] ifFalse:[
+	] ifFalse:[
-ln := originalLine := ''.
+	    ln := originalLine := ''.
-].
+	].
-ln size < prevTab ifTrue:[
+	ln size < prevTab ifTrue:[
-ln := ln , (String new:prevTab withAll:Character space).
+	    ln := ln , (String new:prevTab withAll:Character space).
-].
+	].
-(ln copyTo:prevTab) isBlank ifTrue:[
+	(ln copyTo:prevTab) isBlank ifTrue:[
-(ln copyFrom:prevTab+1) isBlank ifTrue:[
+	    (ln copyFrom:prevTab+1) isBlank ifTrue:[
-cursorCol > prevTab ifTrue:[
+		cursorCol > prevTab ifTrue:[
-self st80EditMode ifTrue:[
+		    self st80EditMode ifTrue:[
-"/ ensure that there is no conflict here: st80EditMode will
+			"/ ensure that there is no conflict here: st80EditMode will
-"/ not allow a cursor position beyond the end of line,
+			"/ not allow a cursor position beyond the end of line,
-"/ so avoid that cursorLine:col: will force us to the beginning of the line
+			"/ so avoid that cursorLine:col: will force us to the beginning of the line
-originalLine size < prevTab ifTrue:[
+			originalLine size < prevTab ifTrue:[
-self at:cursorLine put:ln
+			    self at:cursorLine put:ln
-]
+			]
-].
+		    ].
-self cursorLine:cursorLine col:prevTab.
+		    self cursorLine:cursorLine col:prevTab.
-wasOn ifTrue:[ self showCursor ].
+		    wasOn ifTrue:[ self showCursor ].
-^  self
+		    ^  self
-].
+		].
-] ifFalse:[
+	    ] ifFalse:[
-"/ (ln copyFrom:prevTab+1 to:cursorCol-1) isBlank ifTrue:[
+		"/ (ln copyFrom:prevTab+1 to:cursorCol-1) isBlank ifTrue:[
-self deleteFromLine:cursorLine col:prevTab toLine:cursorLine col:cursorCol-1.
+		    self deleteFromLine:cursorLine col:prevTab toLine:cursorLine col:cursorCol-1.
-self cursorLine:cursorLine col:prevTab.
+		    self cursorLine:cursorLine col:prevTab.
-wasOn ifTrue:[ self showCursor ].
+		    wasOn ifTrue:[ self showCursor ].
-^  self.
+		    ^  self.
-"/ ]
+		"/ ]
-]
+	    ]
-].
+	].
 ].
 "/        (autoIndent
 "/    and:[cursorCol  ~~ 1
 "/    and:[cursorLine <= (list size)]])
 "/            (ln notNil and:[(ln indexOfNonSeparatorStartingAt:1) < soCol]) ifTrue:[
 "/                soCol := 1
 "/            ]
 "/        ]
 "/    ] ifFalse:[
-soCol := 1.
+	soCol := 1.
 "/    ].
 (cursorCol ~~ soCol and:[cursorCol ~~ 1]) ifTrue:[
-"
+	"
-somewhere in the middle of a line
+	 somewhere in the middle of a line
-"
+	"
-self cursorLeft.
+	self cursorLeft.
-self deleteCharAtLine:cursorLine col:cursorCol.
+	self deleteCharAtLine:cursorLine col:cursorCol.
 ] ifFalse:[
-"
+	"
-at begin of line - merge with previous line;
+	 at begin of line - merge with previous line;
-except for the very first line.
+	 except for the very first line.
-"
+	"
-(cursorLine == 1) ifFalse:[
+	(cursorLine == 1) ifFalse:[
-lineNrAboveCursor := self validateCursorLine:(cursorLine - 1).
+	    lineNrAboveCursor := self validateCursorLine:(cursorLine - 1).
-lineNrAboveCursor < cursorLine ifTrue:[
+	    lineNrAboveCursor < cursorLine ifTrue:[
-(lineNrAboveCursor > 0 and:[lineNrAboveCursor > list size]) ifTrue:[
+		(lineNrAboveCursor > 0 and:[lineNrAboveCursor > list size]) ifTrue:[
-"/ we are beyond the end of the text.
+		    "/ we are beyond the end of the text.
-"/ move the cursor to the previous line.
+		    "/ move the cursor to the previous line.
-self cursorLine:lineNrAboveCursor col:1.
+		    self cursorLine:lineNrAboveCursor col:1.
-] ifFalse:[
+		] ifFalse:[
-self mergeLine:lineNrAboveCursor removeBlanks:false.
+		    self mergeLine:lineNrAboveCursor removeBlanks:false.
-]
+		]
-]
+	    ]
-]
+	]
 ].
 wasOn ifTrue:[ self showCursor ]
 "Modified: / 16-01-1998 / 22:33:04 / cg"
 "Modified: / 06-01-2012 / 12:42:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 pole := list.
 size := list size.
 text:=''.
 emptyLines isNil ifTrue:[emptyLines := #()].
 [ i <= size ] whileTrue:[
-pom := emptyLines indexOf:i.
+	pom := emptyLines indexOf:i.
-(pom = 0) ifFalse:[
+	(pom = 0) ifFalse:[
-helperText := pole at:i.
+	    helperText := pole at:i.
-(helperText = '') ifFalse:[
+	    (helperText = '') ifFalse:[
-(helperText isNil)ifTrue:[helperText:=''].
+		(helperText isNil)ifTrue:[helperText:=''].
-helperText:=helperText,Character cr.
+		helperText:=helperText,Character cr.
-text := text asString , helperText asString.
+		text := text asString , helperText asString.
-].
+	    ].
-] ifTrue:[
+	] ifTrue:[
-helperText := pole at:i.
+	    helperText := pole at:i.
-(helperText isNil)ifTrue:[helperText:=''].
+	    (helperText isNil)ifTrue:[helperText:=''].
-helperText:=helperText,Character cr.
+	    helperText:=helperText,Character cr.
-text := text asString , helperText asString.
+	    text := text asString , helperText asString.
-].
+	].
 i:=i+1.
 ].
 ^text
 "Created: / 22-06-2010 / 22:33:27 / Jakub <zelenja7@fel.cvut.cz>"
 self notifyLinesModifiedFrom: lineNr to: lineNr.
 "Created: / 16-09-2011 / 15:13:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 basicDeleteFromLine:startLineNr toLine:endLineNr
 super basicDeleteFromLine:startLineNr toLine:endLineNr.
 self notifyLinesDeletedFrom:startLineNr to:endLineNr.
 "Created: / 28-06-2011 / 09:09:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 | wasAutoIndent |
 wasAutoIndent := autoIndent.
 autoIndent := false.
 [
-super insertLines:someText from:start to:end before:lineNr.
+	super insertLines:someText from:start to:end before:lineNr.
 ] ensure:[
-autoIndent := wasAutoIndent
+	autoIndent := wasAutoIndent
 ]
 "Created: / 20-12-2011 / 15:32:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::TextView methodsFor:'event handling'!
 buttonMotion:button x:x y:y
 (codeView buttonMotion:button x:x y:y in: self)
-ifFalse:[super buttonMotion:button x:x y:y].
+	ifFalse:[super buttonMotion:button x:x y:y].
 "Created: / 14-02-2010 / 16:23:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 06-03-2010 / 20:10:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 buttonPress: button x: x y: y
 | ctrlDown  |
 (codeView buttonPress:button x:x y:y in: self)
-ifFalse:[super buttonPress:button x:x y:y].
+	ifFalse:[super buttonPress:button x:x y:y].
 "
 ((ctrlDown := self sensor ctrlDown) and: [ codeView syntaxElementSelection notNil])
-ifTrue: [codeView buttonPressInTextView: button x:x y:y ctrlDown: ctrlDown].
+	ifTrue: [codeView buttonPressInTextView: button x:x y:y ctrlDown: ctrlDown].
 super
-buttonPress: button
+	buttonPress: button
-x: x
+	x: x
-y: y
+	y: y
 "
 "Created: / 14-02-2010 / 18:12:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 06-03-2010 / 20:37:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
-exposeX:x y:y width:w height:h
+buttonRelease: button x: x y: y
-super
+(codeView buttonRelease:button x:x y:y in: self)
-exposeX:x
+	ifFalse:[super buttonRelease:button x:x y:y].
-y:y
+!
-width:w
-height:h.
+exposeX:x y:y width:w height:h
+super
+	exposeX:x
+	y:y
+	width:w
+	height:h.
 self redrawLines.
 "Created: / 05-04-2010 / 10:07:50 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 02-05-2010 / 18:41:07 / Jakub <zelenja7@fel.cvut.cz>"
 !
 keyPress:key x:x y:y
 (codeView keyPress:key x:x y:y in: self)
-ifFalse:[super keyPress:key x:x y:y].
+	ifFalse:[super keyPress:key x:x y:y].
 "Modified: / 06-03-2010 / 20:34:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 05-04-2010 / 09:55:52 / Jakub <zelenja7@fel.cvut.cz>"
 !
 keyRelease: key x: x y: y
 (codeView keyRelease:key x:x y:y in: self)
-ifFalse:[super keyRelease:key x:x y:y].
+	ifFalse:[super keyRelease:key x:x y:y].
 "
 (key = #Control_L) ifTrue:
-[ codeView highlightClear. self redraw ].
+	[ codeView highlightClear. self redraw ].
 ^ super
-keyRelease: key
+	keyRelease: key
-x: x
+	x: x
-y: y
+	y: y
 "
 "Created: / 14-02-2010 / 16:38:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 06-03-2010 / 21:04:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 | lang |
 lang := codeView language.
 "Bit hacky here, should ask language some language toolbox
 for formatting helper, that should do it..."
 (lang notNil and:[lang isSmalltalk]) ifTrue:[
-| line lineNo indent |
+	| line lineNo indent |
-lineNo := lineNr.
+	lineNo := lineNr.
-[lineNo ~~ 1] whileTrue:[
+	[lineNo ~~ 1] whileTrue:[
-lineNo  := lineNo - 1.
+	    lineNo  := lineNo - 1.
-line := self listAt:lineNo.
+	    line := self listAt:lineNo.
-line notNil ifTrue:[
+	    line notNil ifTrue:[
-indent := line indexOfNonSeparatorStartingAt:1.
+		indent := line indexOfNonSeparatorStartingAt:1.
-"beggining od block"
+		"beggining od block"
-line notEmptyOrNil ifTrue:[
+		line notEmptyOrNil ifTrue:[
-line last == $[ ifTrue:[
+		    line last == $[ ifTrue:[
-indent := indent + 4.
+			indent := indent + 4.
-] ifFalse:[
+		    ] ifFalse:[
-"end of block args"
+			"end of block args"
-(line last == $| and: [line includes: $[]) ifTrue:[
+			(line last == $| and: [line includes: $[]) ifTrue:[
-indent := indent + 4.
+			    indent := indent + 4.
-]
+			]
-].
+		    ].
-].
+		].
-indent ~~ 0 ifTrue:[
+		indent ~~ 0 ifTrue:[
-^ indent - 1
+		^ indent - 1
-]
+		]
-]
+	    ]
-].
+	].
-^0.
+	^0.
 ].
 ^super leftIndentForLine:lineNr
 "Created: / 10-12-2011 / 11:02:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 "/ higher prio to prevent it from being changed while we convert it (by editing)
 modified := false.
 list size ~~ listOriginal size ifTrue:[
-modified := true.
+	modified := true.
 ] ifFalse:[
-"/ cg: don't do that (collecting original/changedSource);
+	"/ cg: don't do that (collecting original/changedSource);
-"/ for huge files (>8Mb), this makes editing annoying slow (editing a trace output, for example)
+	"/ for huge files (>8Mb), this makes editing annoying slow (editing a trace output, for example)
 "/        changedSource := list ? #().
 "/        changedSource := changedSource collect:[:line | line isEmptyOrNil ifTrue:[nil] ifFalse:[line]].
 "/        [changedSource size > 0 and:[changedSource last isNil]] whileTrue:[
 "/            changedSource := changedSource removeLast.
 "/        ].
 "/            modified := true.
 "/        ] ifFalse:[
 "/            | i stopIndex |
 "/
 "/            i := 1.
 "/            stopIndex := originalSource size + 1.
 "/            [ modified not and:[ i < stopIndex ] ] whileTrue:[
 "/                | originalL changedL |
 "/
 "/                originalL := ((originalSource at: i) ? '') string.
 "/                changedL :=  ((changedSource  at: i) ? '') string.
 "/                originalL ~= changedL ifTrue:[
 "/                    originalL withoutTrailingSeparators ~= changedL withoutTrailingSeparators ifTrue:[
 "/                        modified := true.
 "/                    ]
 "/                ].
 "/                i := i + 1.
 "/            ]
 "/        ].
-"/ instead, do everything without collecting a new stringcollection.
+	"/ instead, do everything without collecting a new stringcollection.
-changedSource := list ? #().
+	changedSource := list ? #().
-lastLineOfChangedSource := changedSource size.
+	lastLineOfChangedSource := changedSource size.
-[lastLineOfChangedSource > 0 and:[(changedSource at:lastLineOfChangedSource) isEmptyOrNil]] whileTrue:[
+	[lastLineOfChangedSource > 0 and:[(changedSource at:lastLineOfChangedSource) isEmptyOrNil]] whileTrue:[
-lastLineOfChangedSource := lastLineOfChangedSource - 1.
+	    lastLineOfChangedSource := lastLineOfChangedSource - 1.
-].
+	].
-originalSource := listOriginal ? #().
+	originalSource := listOriginal ? #().
-lastLineOfOriginalSource := originalSource size.
+	lastLineOfOriginalSource := originalSource size.
-[lastLineOfOriginalSource > 0 and:[(originalSource at:lastLineOfOriginalSource) isEmptyOrNil]] whileTrue:[
+	[lastLineOfOriginalSource > 0 and:[(originalSource at:lastLineOfOriginalSource) isEmptyOrNil]] whileTrue:[
-lastLineOfOriginalSource := lastLineOfOriginalSource - 1.
+	    lastLineOfOriginalSource := lastLineOfOriginalSource - 1.
-].
+	].
-lastLineOfOriginalSource ~~ lastLineOfChangedSource ifTrue:[
+	lastLineOfOriginalSource ~~ lastLineOfChangedSource ifTrue:[
-modified := true.
+	    modified := true.
-] ifFalse:[
+	] ifFalse:[
-| i stopIndex |
+	    | i stopIndex |
-i := 1.
+	    i := 1.
-stopIndex := lastLineOfOriginalSource + 1.
+	    stopIndex := lastLineOfOriginalSource + 1.
-[ modified not and:[ i < stopIndex ] ] whileTrue:[
+	    [ modified not and:[ i < stopIndex ] ] whileTrue:[
-| originalL changedL |
+		| originalL changedL |
-originalL := ((originalSource at: i) ? '') string.
+		originalL := ((originalSource at: i) ? '') string.
-changedL :=  ((changedSource  at: i) ? '') string.
+		changedL :=  ((changedSource  at: i) ? '') string.
-originalL ~= changedL ifTrue:[
+		originalL ~= changedL ifTrue:[
-originalL withoutTrailingSeparators ~= changedL withoutTrailingSeparators ifTrue:[
+		    originalL withoutTrailingSeparators ~= changedL withoutTrailingSeparators ifTrue:[
-modified := true.
+			modified := true.
-]
+		    ]
-].
+		].
-i := i + 1.
+		i := i + 1.
-]
+	    ]
-].
+	].
 ].
 reallyModifiedChannel value: modified
 ^ true
 ! !
 !CodeView2::TextView methodsFor:'scrolling'!
 basicScrollTo:anOrigin redraw:doRedraw
 super scrollTo:anOrigin redraw:doRedraw
 "Modified: / 06-04-2010 / 14:05:40 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 17-03-2012 / 10:06:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Created: / 19-03-2012 / 17:01:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 originChanged:delta
 super originChanged:delta.
 gutterView invalidate.
 "Created: / 07-12-2009 / 21:50:49 / Jindra <a>"
 !
 scrollTo:anOrigin redraw:doRedraw
 codeView scrollTo:anOrigin redraw:doRedraw in: self.
 self basicScrollTo:anOrigin redraw:doRedraw
 "Modified: / 06-04-2010 / 14:04:28 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 17-03-2012 / 10:06:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Created: / 19-03-2012 / 17:05:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
+!
+!
 !CodeView2::TextView methodsFor:'undo & again'!
 nonUndoableDo: aBlock
 ! !
 !CodeView2 class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.74 2013-05-29 17:26:31 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.77 2013-06-06 19:39:41 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.74 2013-05-29 17:26:31 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.77 2013-06-06 19:39:41 cg Exp $'
 !
 version_HG
 ^ '$Changeset: <not expanded> $'
 !
 version_SVN
-^ '$Id: Tools__CodeView2.st,v 1.74 2013-05-29 17:26:31 cg Exp $'
+^ '$Id: Tools__CodeView2.st,v 1.77 2013-06-06 19:39:41 cg Exp $'
 ! !
 CodeView2 initialize!

branch	jv
changeset 13170	c9b815af5777
parent 12819	0ce340e972c4
parent 12870	798d611cfd62
child 13173	e9da2324940d