hg/stx-libtool: comparison Tools_

equal deleted inserted replaced

-:235b77901045
+:4714b9640528
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
 OTHER DEALINGS IN THE SOFTWARE.
 "
 ! !
 !CodeView2 class methodsFor:'initialization'!
 initialize
 "Invoked at system start or when the class is dynamically loaded."
 TraceSelectors := IdentitySet new.
 "Modified: / 14-02-2010 / 15:36:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 class methodsFor:'debugging'!
 trace: aSelector
 TraceSelectors add: aSelector
 TraceSelectors := IdentitySet new
 "Created: / 14-02-2010 / 09:53:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 class methodsFor:'examples'!
 example1
 window open.
 "Created: / 02-09-2009 / 21:48:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 class methodsFor:'menu specs'!
 debugMenu
 "This resource specification was automatically generated
 )
 "Modified: / 02-03-2012 / 19:53:19 / cg"
 ! !
 !CodeView2 methodsFor:'* As yet uncategorized *'!
 defaultFileNameForSave
 self halt:'please define defaultFileNameForSave here'.
 "Created: / 11-05-2012 / 15:38:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'accessing'!
 acceptAction:aBlock
 "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:'accessing - code component'!
 klass
 | v |
 ^nil
 "Created: / 27-07-2011 / 13:14:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'accessing-code component'!
 klass: aClass
 ^self methodHolder value: aMethod
 "Created: / 27-07-2011 / 13:12:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'aspects'!
 browserHolder
 browserHolder isNil ifTrue:[
 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:[
 ]
 "Created: / 23-06-2010 / 19:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'channels'!
 modifiedChannel
 "return the valueHolder holding true if text was modified"
 showGutterChannel := aValueHolder.
 self setupChannel:aValueHolder for:nil withOld:prev
 "Created: / 23-06-2010 / 19:03:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'code services'!
 browseMethod: method
 "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)
 ^textView hasSelection
 "Created: / 14-02-2010 / 09:53:54 / 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
 "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>"
 ! !
 !CodeView2 methodsFor:'delegation-drawing'!
 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..."
 redrawVisibleLine:visLine from:startCol to:endCol
 "Modified: / 07-03-2010 / 14:46:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'delegation-events'!
 linesDeletedFrom: start to: end
 !
 !
 !CodeView2 methodsFor:'diff mode'!
 recomputeDiff:view
 |t1 t2 pom diffHelper view2|
 "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"
 "Created: / 02-09-2009 / 21:36:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 23-06-2010 / 19:38:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'menu actions'!
 accept
 textView accept
 textView undo
 "Created: / 16-02-2010 / 19:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'menus-dynamic'!
 editMenu
 | editMenu superEditMenu moreMenu moreMenuItem |
 ^ menu
 "Created: / 07-03-2010 / 14:03:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 06-10-2011 / 14:14:30 / cg"
 ! !
 !CodeView2 methodsFor:'private'!
 codeCompletion
 |cls
 [app showInfo: message]].
 "Modified: / 13-02-2010 / 23:25:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'private-accessing'!
 gutterView
 ^gutterView
 ^textViewScroller
 "Created: / 14-02-2010 / 15:21:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'realization'!
 postRealize
 services do:[:service|
 ]
 "Created: / 23-01-2012 / 10:35:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2 methodsFor:'services'!
 registerService: aCodeViewService
 services add: aCodeViewService.
 "Created: / 06-03-2010 / 19:21:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Created: / 19-07-2012 / 16:34:18 / cg"
 ! !
 !CodeView2 methodsFor:'testing'!
 isCodeView2
 ^true
 ^true
 "Created: / 14-02-2010 / 22:13:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::GutterView methodsFor:'accessing'!
 setTextView: aTextView
 setTextViewScroller:aScr
 textViewScroller := aScr.
 "Created: / 07-12-2009 / 22:36:31 / Jindra <a>"
 ! !
 !CodeView2::GutterView methodsFor:'accessing-dimensions'!
 acceptButtonBottom
 usedWidthForAcceptCancel
 ^ (codeView showAcceptCancelBar ifTrue:[widthAcceptCancel ? 0] ifFalse:[0])
 ! !
 !CodeView2::GutterView methodsFor:'actions'!
 accept
 textView accept
 diff
 "Created: / 07-10-2011 / 20:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::GutterView methodsFor:'aspects'!
 currentBlockNodeHolder
 "return/create the 'currentBlockNodeHolder' value holder (automatically generated)"
 newValue := currentBlockNodeHolder value.
 oldValue ~~ newValue ifTrue:[
 self update:#value with:newValue from:currentBlockNodeHolder.
 ].
 ! !
 !CodeView2::GutterView methodsFor:'change & update'!
 update:something with:aParameter from:changedObject
 self shown ifFalse:[^self].
 super update:something with:aParameter from:changedObject
 "Modified (format): / 15-07-2011 / 20:14:04 / cg"
 "Modified: / 05-04-2012 / 17:47:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::GutterView methodsFor:'event handling'!
 buttonPress: btn x: x y: y
 |extraSafeArea|
 "Created: / 17-06-2011 / 13:02:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified (comment): / 18-05-2012 / 10:56:54 / cg"
 ! !
 !CodeView2::GutterView methodsFor:'help'!
 flyByHelpText
 ^ 'Click to toggle breakpoint. Shift-Click to toggle tracepoint.'
 "Created: / 27-01-2012 / 14:04:52 / cg"
 ! !
 !CodeView2::GutterView methodsFor:'initialization'!
 initialize
 "Created: / 14-02-2010 / 15:19:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 17-08-2011 / 15:15:55 / cg"
 "Modified: / 05-04-2012 / 17:46:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::GutterView methodsFor:'queries'!
 displayedString: line
 "get text to display in gutter for specified list line number"
 yOfTextViewLine:line
 ^(textView yOfLine:line) + 1
 "Created: / 14-12-2009 / 13:35:07 / Jindra <a>"
 ! !
 !CodeView2::GutterView methodsFor:'redrawing'!
 redrawAcceptCancelBarX: x y: y width:w height:h
 "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>"
 ! !
 !CodeView2::TextView methodsFor:'accessing'!
 changedDiffText
 ^ changedDiffText
 !
 ^self reallyModifiedChannel value
 "Created: / 07-10-2011 / 19:28:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::TextView methodsFor:'accessing-colors'!
 colorChanged
 ^ Color redByte:240 greenByte: 192 blueByte: 192
 colorInserted
 ^ Color redByte: 239 greenByte: 225 blueByte: 152
 "Modified: / 24-06-2010 / 14:13:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::TextView methodsFor:'accessing-contents'!
 list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nonStrings
 self notifyLinesModifiedFrom: 1 to: list size.
 "Created: / 07-10-2011 / 18:42:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::TextView methodsFor:'accessing-look'!
 lineSpacing
 ^lineSpacing
 "Modified: / 22-05-1996 / 12:22:29 / cg"
 "Created: / 19-03-2012 / 13:22:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::TextView methodsFor:'accessing-state'!
 beUnmodified
 ^self reallyModified
 "Created: / 08-10-2011 / 12:52:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::TextView methodsFor:'channels'!
 reallyModifiedChannel
 reallyModifiedChannel addDependent: gutterView.
 ]
 "Created: / 07-10-2011 / 18:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::TextView methodsFor:'drawing'!
 backgroundForVisibleLine:visLineNr default:bg
 | lineNr |
 "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>"
 ! !
 !CodeView2::TextView methodsFor:'editing'!
 contentsChanged
 super contentsChanged.
 "Created: / 22-06-2010 / 22:33:27 / Jakub <zelenja7@fel.cvut.cz>"
 "Modified: / 24-06-2010 / 14:27:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 18-11-2011 / 14:58:22 / cg"
 ! !
 !CodeView2::TextView methodsFor:'editing-basic'!
 basicDeleteCharsAtLine:lineNr fromCol:startCol toCol:endCol
 "delete characters from startCol to endCol in line lineNr"
 super insertLines:someText from:start to:end before:lineNr.
 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
 "
 "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>"
 ! !
 !CodeView2::TextView methodsFor:'formatting'!
 leftIndentForLine:lineNr
 ^super leftIndentForLine:lineNr
 "Created: / 10-12-2011 / 11:02:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::TextView methodsFor:'initialization'!
 initialize
 super initialize.
 gutterView := aGutterView.
 gutterView setTextView: self.
 "Created: / 02-09-2009 / 21:57:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::TextView methodsFor:'menu & menu actions'!
 accept
 ^ elementUnderCursor.
 "Created: / 08-03-2012 / 12:44:03 / cg"
 ! !
 !CodeView2::TextView methodsFor:'notification'!
 notifyLinesDeletedFrom: startLine to: endLine
 self updateReallyModified.
 suppressNotifications := true.
 "Modified: / 06-07-2011 / 17:47:20 / jv"
 "Created: / 16-09-2011 / 15:12:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::TextView methodsFor:'private'!
 superEditMenu
 "Created: / 07-10-2011 / 19:16:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 08-10-2011 / 11:10:01 / cg"
 "Modified: / 28-10-2011 / 09:23:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CodeView2::TextView methodsFor:'queries'!
 supportsSyntaxElements
 ^ true
 ! !
 !CodeView2::TextView methodsFor:'scrolling'!
 "Created: / 19-03-2012 / 17:05:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 !
 !CodeView2::TextView methodsFor:'undo & again'!
 nonUndoableDo: aBlock
 super nonUndoableDo: aBlock.
 suppressNotifications := false.
 "Created: / 06-07-2011 / 17:48:49 / jv"
 ! !
 !CodeView2 class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.67 2012/11/01 14:20:15 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.67 2012-11-01 14:20:15 cg Exp $'
 !
 version_CVS
-^ '�Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.67 2012/11/01 14:20:15 cg Exp �'
+^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.67 2012-11-01 14:20:15 cg Exp $'
 !
 version_SVN
-^ '$Id: Tools__CodeView2.st 8074 2012-11-30 17:23:39Z vranyj1 $'
+^ '�Id: Tools__CodeView2.st 7797 2011-06-28 07:45:06Z vranyj1 �'
 ! !
 CodeView2 initialize!

branch	jv
changeset 12401	4714b9640528
parent 12308	5d9291c0fc27
parent 11988	b482d2c77040
child 12406	1fbd331e4489