"

 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague

              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,

copy, modify, merge, publish, distribute, sublicense, and/or sell

copies of the Software, and to permit persons to whom the

Software is furnished to do so, subject to the following

conditions:

The above copyright notice and this permission notice shall be

included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,

EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES

OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT

HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

OTHER DEALINGS IN THE SOFTWARE.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

SimpleView subclass:#CodeView2

	instanceVariableNames:'gutterView textView textViewScroller methodHolder languageHolder

		classHolder browserHolder codeAspect modifiedChannel

		showGutterChannel modeHolder serviceManager services

		syntaxElements syntaxElementSelection highlightEmphasis diffMode

		synchronizedCodeViews'

	classVariableNames:'TraceSelectors'

	poolDictionaries:''

	category:'Interface-CodeView'

!

SimpleView subclass:#GutterView

	instanceVariableNames:'codeView textView textViewScroller widthAnnotations widthDiffInfo

		firstLineShown lastLineShown'

	classVariableNames:''

	poolDictionaries:''

	privateIn:CodeView2

!

CodeView subclass:#TextView

	instanceVariableNames:'codeView gutterView diffMode deletedLines insertedLines

		lastFirstLine changedLines scrolled originDiffText emptyLines

		changedDiffText suppressNotifications'

	classVariableNames:''

	poolDictionaries:''

	privateIn:CodeView2

!

!CodeView2 class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague

              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,

copy, modify, merge, publish, distribute, sublicense, and/or sell

copies of the Software, and to permit persons to whom the

Software is furnished to do so, subject to the following

conditions:

The above copyright notice and this permission notice shall be

included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,

EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES

OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT

HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

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."

    "/ please change as required (and remove this comment)

    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

    "Created: / 14-02-2010 / 09:26:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

untrace: aSelector

    TraceSelectors remove: aSelector ifAbsent:[]

    "Created: / 14-02-2010 / 09:50:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

untraceAll

    TraceSelectors := IdentitySet new

    "Created: / 14-02-2010 / 09:53:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CodeView2 class methodsFor:'examples'!

example1

    | window codeView |

    window := StandardSystemView new.

    window extent: 300 @ 300.              

    window label: 'CodeView2 example1'.

    codeView := Tools::CodeView2 in: window.

    codeView

        origin: 0.1 @ 0.1

        corner: 0.9 @ 0.9.

    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

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:Tools::CodeView2 andSelector:#editMenu_stxStyle

     (Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu_stxStyle)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

              (

               (MenuItem

                  label: 'Inspect '

                  itemValue: inspectView

                  translateLabel: true

                )

               (MenuItem

                  label: 'Inspect Syntax Elements'

                  itemValue: inspectSyntaxElements

                  translateLabel: true

                )

               (MenuItem

                  label: 'Inspect selected selector'

                  itemValue: inspectSelectedSelector

                  translateLabel: true

                )

               )

              nil

              nil

            )

    "Created: / 08-07-2011 / 13:36:02 / cg"

!

editMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:Tools::CodeView2 andSelector:#editMenu

     (Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu)) startUp

    "

    UserPreferences current eclipseStyleMenus ifTrue:[

        ^ self editMenu_eclipseStyle

    ].

    ^ self editMenu_stxStyle

    "Modified: / 08-07-2011 / 13:23:35 / cg"

!

editMenu_eclipseStyle

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:Tools::CodeView2 andSelector:#editMenu

     (Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'Implementors...'

            itemValue: browseImplementorsOfIt

            translateLabel: true

            submenuChannel: implementorsMenu

            shortcutKey: ImplementorsOfIt

          )

         (MenuItem

            label: 'Senders...'

            itemValue: browseSendersOfIt

            translateLabel: true

            submenuChannel: sendersMenu

            shortcutKey: SendersOfIt

          )

         (MenuItem

            label: 'Refactor'

            translateLabel: true

            isVisible: false

            shortcutKey: Shift

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Accept'

            itemValue: accept

            translateLabel: true

            shortcutKey: Accept

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Cut'

            itemValue: cut

            translateLabel: true

            shortcutKey: Cut

          )

         (MenuItem

            label: 'Copy'

            itemValue: copySelection

            translateLabel: true

            shortcutKey: Copy

          )

         (MenuItem

            label: 'Paste'

            itemValue: pasteOrReplace

            translateLabel: true

            shortcutKey: Paste

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Undo'

            itemValue: undo

            translateLabel: true

            shortcutKey: Undo

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Do it'

            itemValue: doIt

            translateLabel: true

            shortcutKey: DoIt

          )

         (MenuItem

            label: 'Print it'

            itemValue: printIt

            translateLabel: true

            shortcutKey: PrintIt

          )

         (MenuItem

            label: 'Inspect it'

            itemValue: inspectIt

            translateLabel: true

            shortcutKey: InspectIt

          )

         (MenuItem

            label: 'Profile it'

            itemValue: profileIt

            translateLabel: true

            shortcutKey: InspectIt

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Show Gutter'

            nameKey: ShowGutter

            translateLabel: true

            indication: showGutterChannel

          )

         (MenuItem

            label: 'More'

            nameKey: More

            translateLabel: true

          )

         (MenuItem

            label: 'Services'

            translateLabel: true

            submenuChannel: servicesMenu

          )

         (MenuItem

            label: 'Debug'

            translateLabel: true

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Inspect '

                  itemValue: inspectView

                  translateLabel: true

                )

               (MenuItem

                  label: 'Inspect Syntax Elements'

                  itemValue: inspectSyntaxElements

                  translateLabel: true

                )

               (MenuItem

                  label: 'Inspect selected selector'

                  itemValue: inspectSelectedSelector

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         )

        nil

        nil

      )

    "Created: / 08-07-2011 / 13:20:47 / cg"

!

editMenu_stxStyle

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:Tools::CodeView2 andSelector:#editMenu_stxStyle

     (Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu_stxStyle)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'Undo'

            itemValue: undo

            translateLabel: true

            shortcutKey: Undo

          )

         (MenuItem

            label: 'Again'

            itemValue: again

            translateLabel: true

            shortcutKey: Again

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Cut'

            itemValue: cut

            translateLabel: true

            shortcutKey: Cut

          )

         (MenuItem

            label: 'Copy'

            itemValue: copySelection

            translateLabel: true

            shortcutKey: Copy

          )

         (MenuItem

            label: 'Paste'

            itemValue: pasteOrReplace

            translateLabel: true

            shortcutKey: Paste

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'DoIt'

            itemValue: doIt

            translateLabel: true

            shortcutKey: DoIt

          )

         (MenuItem

            label: 'PrintIt'

            itemValue: printIt

            translateLabel: true

            shortcutKey: PrintIt

          )

         (MenuItem

            label: 'InspectIt'

            itemValue: inspectIt

            translateLabel: true

            shortcutKey: InspectIt

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Accept'

            itemValue: accept

            translateLabel: true

            shortcutKey: Accept

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Refactor'

            translateLabel: true

            isVisible: false

            shortcutKey: Shift

          )

         (MenuItem

            label: 'Services'

            translateLabel: true

            submenuChannel: servicesMenu

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'More'

            nameKey: More

            translateLabel: true

            shortcutKey: Ctrl

          )

         )

        nil

        nil

      )

! !

!CodeView2 methodsFor:'accessing'!

acceptAction:aBlock

    textView acceptAction: aBlock

    "Modified: / 01-08-2010 / 20:40:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

breakpoints

    services do:[:each|

        (each isKindOf: BreakpointService) ifTrue:[

            ^each breakpoints

        ]

    ].

    ^nil

    "Created: / 06-07-2011 / 18:05:35 / jv"

!

browser

    ^self browserHolder value

    "Created: / 07-07-2011 / 12:25:59 / Jan Vrany <jan.vrant@fit.cvut,cz>"

!

codeAspect

    |app|

    codeAspect ifNotNil:[^codeAspect].

    methodHolder value ifNotNil:[^#method].

    ^((app := self topView application) notNil and:[app respondsTo: #codeAspect])

        ifTrue:[app codeAspect]

        ifFalse:[#expression]

    "Modified: / 27-07-2011 / 13:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"