"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 2006 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Smalltalk }"

AbstractFileFinderApplicationComponent subclass:#DirectoryDifferenceViewApplication

	instanceVariableNames:'directory1Holder directory2Holder directory1 directory2

		filesOnlyInDirectory1 filesOnlyInDirectory2

		filesWhichAreDifferent directoriesOnlyInDirectory1

		directoriesOnlyInDirectory2 namePatternHolder

		excludedNamePatternHolder excludedDirectoryNamePatternHolder

		ignoreCaseInNameHolder ignoreCaseInExcludedNameHolder

		ignoreCaseInExcludedDirectoryNameHolder

		ignoreCaseInDirectoryNameHolder filesSkippedCount

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!DirectoryDifferenceViewApplication class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2006 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    documentation to be added.

    class:

        <a short class summary here, describing what instances represent>

    responsibilities:    

        <describing what my main role is>

    collaborators:    

        <describing with whom and how I talk to>

    API:

        <public api and main messages>

    example:

        <a one-line examples on how to use - can also be in a separate example method>

    implementation:

        <implementation points>

    [author:]

        exept MBP

    [instance variables:]

    [class variables:]

    [see also:]

"

!

examples

"

 Notice that everything between [exBegin] and [exEnd] is extracted by the html-doc generator

 to create nicely formatted and clickable executable examples in the generated html-doc.

 (see the browser's class-documentation menu items for more)

 opening the application:

                                                        [exBegin]

    DirectoryDifferenceViewApplication open

                                                        [exEnd]

 opening the application on some model:

                                                        [exBegin]

    DirectoryDifferenceViewApplication openOn:aModel

                                                        [exEnd]

"

! !

!DirectoryDifferenceViewApplication class methodsFor:'help specs'!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

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

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

    "

     UIHelpTool openOnClass:DirectoryDifferenceViewApplication

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#excludedDirectoryNamePattern

'Directory name(s) to skip.\Can be matchPatterns, separated by ";"'

#excludedNamePattern

'File name(s) to skip.\Can be matchPatterns, separated by ";"'

#ignoreCaseInExcludedDirectoryName

'Ignore case in directory name exclude pattern(s)'

#ignoreCaseInExcludedName

'Ignore case in file name exclude pattern(s)'

#ignoreCaseInName

'Ignore case in file name pattern(s)'

#namePattern

'Filename(s) to search for.\Can be matchPatterns, separated by ";".\(eg. "*.c ; *.h" searches for C and header files. So does "*.[ch]")'

#searchDirectory1

'The first folder, to be compared against folder2'

#searchDirectory2

'The second folder, to be compared against folder1'

)

! !

!DirectoryDifferenceViewApplication class methodsFor:'interface specs'!

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:DirectoryDifferenceViewApplication andSelector:#windowSpec

     DirectoryDifferenceViewApplication new openInterface:#windowSpec

     DirectoryDifferenceViewApplication open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'Directory Diff'

         name: 'Directory Diff'

         uuid: '09a5b9c0-baa9-11e9-a284-10ddb1cc5928'

         min: (Point 377 131)

         bounds: (Rectangle 0 0 758 512)

      )

       component: 

      (SpecCollection

         collection: (

          (MenuPanelSpec

             layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)

             uuid: '09a5bd8a-baa9-11e9-a284-10ddb1cc5928'

             level: 0

             menu: searchMenu

             textDefault: true

          )

          (ProgressIndicatorSpec

             name: 'ProgressIndicator1'

             layout: (LayoutFrame 125 0 11 0 231 0 21 0)

             uuid: '09a5c06e-baa9-11e9-a284-10ddb1cc5928'

             visibilityChannel: enableStop

             backgroundColor: (Color 0.0 67.0 67.0)

             showPercentage: false

             isActivityIndicator: true

          )

          (ViewSpec

             name: 'Box1'

             layout: (LayoutFrame 0 0.0 32 0 0 1.0 154 0)

             uuid: '09a5c2d0-baa9-11e9-a284-10ddb1cc5928'

             component: 

            (SpecCollection

               collection: (

                (LabelSpec

                   label: 'Directory1:'

                   name: 'DirectoryLabel'

                   layout: (LayoutFrame 2 0 7 0 154 0 24 0)

                   activeHelpKey: searchDirectory1

                   uuid: '09a5c42e-baa9-11e9-a284-10ddb1cc5928'

                   translateLabel: true

                   adjust: right

                )

                (FilenameInputFieldSpec

                   name: 'DirectoryEntryField'

                   layout: (LayoutFrame 156 0 4 0 0 1 24 0)

                   activeHelpKey: searchDirectory1

                   uuid: '09a5c67c-baa9-11e9-a284-10ddb1cc5928'

                   model: directory1Holder

                   immediateAccept: true

                   acceptOnPointerLeave: false

                )

                (LabelSpec

                   label: 'Directory2:'

                   name: 'Label2'

                   layout: (LayoutFrame 2 0 31 0 154 0 48 0)

                   activeHelpKey: searchDirectory2

                   uuid: '09a5ca00-baa9-11e9-a284-10ddb1cc5928'

                   translateLabel: true

                   adjust: right

                )

                (FilenameInputFieldSpec

                   name: 'FilenameEntryField1'

                   layout: (LayoutFrame 156 0 28 0 0 1 48 0)

                   activeHelpKey: searchDirectory2

                   uuid: '09a5cb40-baa9-11e9-a284-10ddb1cc5928'

                   model: directory2Holder

                   immediateAccept: true

                   acceptOnPointerLeave: false

                )

                (LabelSpec

                   label: 'Compare Files Named:'

                   name: 'FileNameLabel'

                   layout: (LayoutFrame 2 0 55 0 154 0 72 0)

                   activeHelpKey: namePattern

                   uuid: '09a5ccda-baa9-11e9-a284-10ddb1cc5928'

                   translateLabel: true

                   adjust: right

                )

                (InputFieldSpec

                   name: 'FileNameEntryField'

                   layout: (LayoutFrame 156 0 52 0 -180 1 72 0)

                   activeHelpKey: namePattern

                   uuid: '09a5cdf2-baa9-11e9-a284-10ddb1cc5928'

                   tabable: true

                   model: namePatternHolder

                   immediateAccept: true

                   acceptOnLeave: false

                   acceptOnPointerLeave: false

                )

                (CheckBoxSpec

                   label: 'Ignore Case'

                   name: 'IgnoreCaseInNameCheckBox'

                   layout: (LayoutFrame -169 1 53 0 -4 1 76 0)

                   activeHelpKey: ignoreCaseInName

                   uuid: '09a5cfb4-baa9-11e9-a284-10ddb1cc5928'

                   tabable: true

                   model: ignoreCaseInNameHolder

                   translateLabel: true

                )

                (LabelSpec

                   label: 'But Not Named:'

                   name: 'Label1'

                   layout: (LayoutFrame 2 0 79 0 190 0 96 0)

                   activeHelpKey: excludedNamePattern

                   uuid: '09a5d16c-baa9-11e9-a284-10ddb1cc5928'

                   translateLabel: true

                   adjust: right

                )

                (InputFieldSpec

                   name: 'EntryField1'

                   layout: (LayoutFrame 190 0 76 0 -180 1 96 0)

                   activeHelpKey: excludedNamePattern

                   uuid: '09a5d284-baa9-11e9-a284-10ddb1cc5928'

                   tabable: true

                   model: excludedNamePatternHolder

                   immediateAccept: true

                   acceptOnLeave: false

                   acceptOnPointerLeave: false

                )

                (CheckBoxSpec

                   label: 'Ignore Case'

                   name: 'CheckBox1'

                   layout: (LayoutFrame -169 1 77 0 -4 1 100 0)

                   activeHelpKey: ignoreCaseInExcludedName

                   uuid: '09a5d414-baa9-11e9-a284-10ddb1cc5928'

                   tabable: true

                   model: ignoreCaseInExcludedNameHolder

                   translateLabel: true

                )

                (LabelSpec

                   label: 'Ignore Folders Named:'

                   name: 'Label3'

                   layout: (LayoutFrame 2 0 103 0 190 0 120 0)

                   activeHelpKey: excludedDirectoryNamePattern

                   uuid: '09a5d518-baa9-11e9-a284-10ddb1cc5928'

                   translateLabel: true

                   adjust: right

                )

                (InputFieldSpec

                   name: 'EntryField2'

                   layout: (LayoutFrame 190 0 100 0 -180 1 120 0)

                   activeHelpKey: excludedDirectoryNamePattern

                   uuid: '09a5d63a-baa9-11e9-a284-10ddb1cc5928'

                   tabable: true

                   model: excludedDirectoryNamePatternHolder

                   immediateAccept: true

                   acceptOnLeave: false

                   acceptOnPointerLeave: false

                )

                (CheckBoxSpec

                   label: 'Ignore Case'

                   name: 'CheckBox2'

                   layout: (LayoutFrame -169 1 101 0 -4 1 124 0)

                   activeHelpKey: ignoreCaseInExcludedDirectoryName

                   uuid: '09a5d7d4-baa9-11e9-a284-10ddb1cc5928'

                   tabable: true

                   model: ignoreCaseInExcludedDirectoryNameHolder

                   translateLabel: true

                )

              )

            )

          )

          (VariableVerticalPanelSpec

             name: 'VariableVerticalPanel1'

             uuid: '09a5d914-baa9-11e9-a284-10ddb1cc5928'

             component: 

            (SpecCollection

               collection: (

                (DataSetSpec

                   name: 'Table1'

                   uuid: '09a5daa4-baa9-11e9-a284-10ddb1cc5928'

                   model: selectionHolder

                   hasHorizontalScrollBar: true

                   hasVerticalScrollBar: true

                   dataList: matchedFilesList

                   doubleClickSelector: fileDoubleClick:

                   columnHolder: searchResultTable

                   valueChangeSelector: fileSelected:

                   multipleSelectOk: true

                )

                (ArbitraryComponentSpec

                   name: 'DiffTextView'

                   uuid: '09a5deaa-baa9-11e9-a284-10ddb1cc5928'

                   hasHorizontalScrollBar: true

                   hasVerticalScrollBar: true

                   component: DiffTextView

                )

              )

            )

             handles: (Any 0.5 1.0)

          )

        )

      )

    )

! !

!DirectoryDifferenceViewApplication class methodsFor:'menu specs'!

searchMenu

    "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:FindFileApplication andSelector:#searchMenu

     (Menu new fromLiteralArrayEncoding:(FindFileApplication searchMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'Search'

            itemValue: doSearch

            translateLabel: true

            isButton: true

            labelImage: (ResourceRetriever ToolbarIconLibrary searchFileIcon)

          )

         (MenuItem

            enabled: enableStop

            label: 'Stop'

            itemValue: stop

            translateLabel: true

            isButton: true

            isVisible: enableStop

            labelImage: (ResourceRetriever XPToolbarIconLibrary stop22x22Icon)

          )

         (MenuItem

            label: 'Close'

            itemValue: doClose

            translateLabel: true

            isButton: true

            startGroup: right

            isVisible: false

            labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)

          )