"{ Package: 'cvut:stx/goodies/libtool3' }"

"{ NameSpace: Tools }"

ApplicationModel subclass:#MethodRewriter

	instanceVariableNames:'replaceTextView classes searchTextView actionInProgresHolder

		infoHolder progressHolder templateSearchPatternHolder

		templateReplacePatternHolder selectedTemplateIndex templates

		selectedTabIndex selectedClassesHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Method rewriter'

!

!MethodRewriter class methodsFor:'examples'!

templateReplaceAtIfAbsentByAtAifAbsentPut

    ^Array 

        with:'Replace Dictionary>>#at:ifAbsent: by #at:ifAbsentPut:'

with: '``@dictionary

    at: ``@key

    ifAbsent:

        [| `@temps |

        `@.statements.

        ``@dictionary at: ``@key put: ``@object]'

with:'``@dictionary

    at: ``@key

    ifAbsentPut:

        [| `@temps |

        `@.statements.

        ``@object]'

    "Created: / 12-12-2007 / 11:08:01 / janfrog"

    "Modified: / 17-02-2008 / 08:35:17 / janfrog"

!

templateReplaceSelfHaltBySelfError

    ^Array 

        with:'Replace self halt by self error:''was: self halt'''

        with: 'self halt'

        with: 'self error:''was: self error'''

    "Created: / 12-12-2007 / 11:29:51 / janfrog"

    "Modified: / 17-02-2008 / 08:35:09 / janfrog"

!

templates

    |templateSelectors|

    templateSelectors := 

        (self class selectors select:[:e|(e startsWith:'template') 

            and:[e ~= #templates and:[e ~= #templatesSpec]]]).

    ^templateSelectors 

        collect:[:e|self perform:e]

    "

        self templates

    "

    "Created: / 12-12-2007 / 11:03:32 / janfrog"

! !

!MethodRewriter class methodsFor:'interface specs'!

classesSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

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

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

    "

     UIPainter new openOnClass:Tools::MethodRewriter andSelector:#classesSpec

     Tools::MethodRewriter new openInterface:#classesSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: classesSpec

        window: 

       (WindowSpec

          label: 'Classes'

          name: 'Classes'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 300 300)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Hint: drag''n''drop classes from browser'

              name: 'HintLabel'

              layout: (LayoutFrame 0 0 0 0 0 1 30 0)

              translateLabel: true

              adjust: left

            )

           (SelectionInListModelViewSpec

              name: 'ClassesList'

              layout: (LayoutFrame 0 0 30 0 0 1 -30 1)

              model: selectedClassesHolder

              hasHorizontalScrollBar: true

              hasVerticalScrollBar: true

              listModel: classes

              multipleSelectOk: true

              useIndex: false

              highlightMode: line

              properties: 

             (PropertyListDictionary

                dragArgument: nil

                dropArgument: nil

                canDropSelector: canDropClasses:

                dropSelector: doDropClasses:

              )

            )

           (ActionButtonSpec

              label: 'Remove selected classes'

              name: 'RemoveClassesButton'

              layout: (LayoutFrame 5 0 -25 1 -5 1 -5 1)

              translateLabel: true

              model: removeSeletedClassesAction

            )

           )

        )

      )

    "Modified: / 12-12-2007 / 12:07:17 / janfrog"

!

searchAndReplaceSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

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

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

    "

     UIPainter new openOnClass:Tools::MethodRewriter andSelector:#searchAndReplaceSpec

     Tools::MethodRewriter new openInterface:#searchAndReplaceSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: searchAndReplaceSpec

        window: 

       (WindowSpec

          label: 'Method Rewriter'

          name: 'Method Rewriter'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 418 294)

        )

        component: 

       (SpecCollection

          collection: (

           (VariableVerticalPanelSpec

              name: 'FindAndReplacePanel'

              layout: (LayoutFrame 0 0 0 0 0 1 -30 1)

              showHandle: true

              snapMode: both

              component: 

             (SpecCollection

                collection: (

                 (ViewSpec

                    name: 'FindBox'

                    component: 

                   (SpecCollection

                      collection: (

                       (LabelSpec

                          label: 'Find:'

                          name: 'FindLabel'

                          layout: (LayoutFrame 0 0 0 0 0 1 20 0)

                          translateLabel: true

                          adjust: left

                        )

                       (TextEditorSpec

                          name: 'FindText'

                          layout: (LayoutFrame 0 0 20 0 0 1 0 1)

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          postBuildCallback: postBuildFindTextView:

                        )

                       )

                    )

                  )

                 (ViewSpec

                    name: 'ReplaceBox'

                    component: 

                   (SpecCollection

                      collection: (

                       (LabelSpec

                          label: 'Replace with:'

                          name: 'ReplaceLabel'

                          layout: (LayoutFrame 0 0 0 0 0 1 20 0)

                          translateLabel: true

                          adjust: left

                        )

                       (TextEditorSpec

                          name: 'ReplaceText'

                          layout: (LayoutFrame 0 0 20 0 0 1 0 1)

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          postBuildCallback: postBuildReplaceTextView:

                        )

                       )

                    )

                  )

                 )

              )

              handles: (Any 0.5 1.0)

            )

           (LabelSpec

              label: 'Enjoy'

              name: 'InfoLabel'

              layout: (LayoutFrame 5 0 -25 1 205 0 -5 1)

              visibilityChannel: actionInProgresHolder

              translateLabel: true

              labelChannel: infoHolder

              adjust: left

            )

           (ProgressIndicatorSpec

              name: 'ProgressIndicator'

              layout: (LayoutFrame 210 0 -25 1 -215 1 -5 1)

              visibilityChannel: actionInProgresHolder

              model: progressHolder

            )

           (ActionButtonSpec

              label: 'Search'

              name: 'SearchButton'

              layout: (LayoutFrame -210 1 -25 1 -110 1 -5 1)

              translateLabel: true

              model: doSearchAction

            )

           (ActionButtonSpec

              label: 'Rewrite'

              name: 'RewriteButton'

              layout: (LayoutFrame -105 1 -25 1 -5 1 -5 1)

              translateLabel: true

              model: doRewriteAction

            )

           )

        )

      )

    "Modified: / 12-12-2007 / 11:15:58 / janfrog"

!

templatesSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

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

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

    "

     UIPainter new openOnClass:Tools::MethodRewriter andSelector:#templatesSpec

     Tools::MethodRewriter new openInterface:#templatesSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: templatesSpec

        window: 

       (WindowSpec

          label: 'Method Rewriter'

          name: 'Method Rewriter'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 472 354)

        )

        component: 

       (SpecCollection

          collection: (

           (VariableVerticalPanelSpec

              name: 'FindAndReplacePanel'

              layout: (LayoutFrame 0 0 0 0 0 1 -30 1)

              showHandle: true

              snapMode: both

              component: 

             (SpecCollection

                collection: (

                 (SelectionInListModelViewSpec

                    name: 'SelectionInListModelView1'

                    model: selectedTemplateIndex

                    hasHorizontalScrollBar: true

                    hasVerticalScrollBar: true

                    listModel: templateNameList

                    highlightMode: line

                  )

                 (ViewSpec

                    name: 'FindBox'

                    component: 

                   (SpecCollection

                      collection: (

                       (LabelSpec

                          label: 'Find:'

                          name: 'FindLabel'

                          layout: (LayoutFrame 0 0 0 0 0 1 20 0)

                          translateLabel: true

                          adjust: left

                        )

                       (TextEditorSpec

                          name: 'FindText'

                          layout: (LayoutFrame 0 0 20 0 0 1 0 1)

                          model: templateSearchPatternHolder

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                        )

                       )

                    )

                  )

                 (ViewSpec

                    name: 'ReplaceBox'

                    component: 

                   (SpecCollection

                      collection: (

                       (LabelSpec

                          label: 'Replace with:'

                          name: 'ReplaceLabel'

                          layout: (LayoutFrame 0 0 0 0 0 1 20 0)

                          translateLabel: true

                          adjust: left

                        )

                       (TextEditorSpec

                          name: 'ReplaceText'

                          layout: (LayoutFrame 0 0 20 0 0 1 0 1)

                          model: templateReplacePatternHolder

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                        )

                       )

                    )

                  )

                 )

              )

              handles: (Any 0.2 0.6 1.0)

            )

           (ActionButtonSpec

              label: 'Use as template'

              name: 'UseAsTemplateButton'

              layout: (LayoutFrame 0 0 -25 1 -5 1 -5 1)

              translateLabel: true

              model: useAsTemplateAction

            )

           )

        )

      )

    "Modified: / 12-12-2007 / 11:23:34 / janfrog"

!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

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

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

    "

     UIPainter new openOnClass:Tools::MethodRewriter andSelector:#windowSpec

     Tools::MethodRewriter new openInterface:#windowSpec

     Tools::MethodRewriter open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Method Rewriter'

          name: 'Method Rewriter'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 658 490)

        )

        component: 

       (SpecCollection

          collection: (

           (NoteBookViewSpec

              name: 'NoteBook'

              layout: (LayoutFrame 0 0 0 0 0 1 0 1)

              model: selectedTabIndex

              menu: tabList

              useIndex: true

              fitLastRow: false

            )

           )

        )

      )

    "Modified: / 12-12-2007 / 11:39:31 / janfrog"

! !

!MethodRewriter class methodsFor:'list specs'!

tabList

    "This resource specification was automatically generated

     by the TabListEditor of ST/X."

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

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

    "

     TabListEditor new openOnClass: self andSelector:#tabList

    "

    <resource: #tabList>

    ^     #(

       (TabItem

          label: 'Search and Replace'

          createNewBuilder: false

          minorKey: searchAndReplaceSpec

        )

       (TabItem

          label: 'Classes'

          createNewBuilder: false

          minorKey: classesSpec

        )

       (TabItem

          label: 'Templates'

          createNewBuilder: false

          minorKey: templatesSpec

        )

       )

      collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]

    "Modified: / 12-12-2007 / 11:21:27 / janfrog"

! !

!MethodRewriter methodsFor:'accessing'!

actionInProgress: aBoolean

    ^self actionInProgresHolder value: aBoolean

    "Created: / 12-12-2007 / 10:06:16 / janfrog"

!

classes

    ^ classes ifNil:[classes := List new]

    "Created: / 20-07-2007 / 16:31:18 / janfrog"

!

classes: aCollection

    classes := (aCollection collect:[:cls|cls theNonMetaclass]) asList

    "Created: / 20-07-2007 / 16:31:18 / janfrog"

    "Modified: / 12-12-2007 / 09:47:01 / janfrog"

!

info: aString

    self infoHolder value: aString

    "Created: / 12-12-2007 / 10:00:50 / janfrog"

!

progress: anInteger

    self progressHolder value: anInteger

    "Created: / 12-12-2007 / 10:01:03 / janfrog"

!

replacePattern

    ^ replaceTextView contents trimSeparators

    "Created: / 21-07-2007 / 06:29:22 / janfrog"

!

replacePattern: pattern

    ^ replaceTextView contents: pattern trimSeparators

    "Created: / 12-12-2007 / 11:38:22 / janfrog"

!

searchPattern

    ^ searchTextView contents trimSeparators

    "Created: / 20-07-2007 / 16:51:49 / janfrog"

    "Modified: / 21-07-2007 / 06:29:29 / janfrog"

!

searchPattern: pattern

    ^ searchTextView contents: pattern trimSeparators

    "Created: / 12-12-2007 / 11:38:12 / janfrog"

!

selectedClasses

    ^self selectedClassesHolder value

    "Created: / 12-12-2007 / 12:02:03 / janfrog"

!

selectedTemplate

    ^self templates at:self selectedTemplateIndex value

    "Created: / 12-12-2007 / 11:20:32 / janfrog"

!

templates

    templates isNil ifTrue:[

        templates := self class templates.

    ].