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

		directoriesSkippedCount unfilteredFilesList filteredFilesList

		hasResultListHolder itemsFoundQueue showWhatHolder'

	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'

#showAll

'Show all differences in the result list'

#showDifferent

'Show only files in the result list\which are present in both, but different'

#showOnlyIn1

'Show only files in the result list\which are present in the first directory,\but missing in the second'

#showOnlyIn2

'Show only files in the result list\which are present in the second directory,\but missing in the first'

)

! !

!DirectoryDifferenceViewApplication class methodsFor:'image specs'!

leftOnlyIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self leftOnlyIcon inspect

     ImageEditor openOnClass:self andSelector:#leftOnlyIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'DirectoryDifferenceViewApplication class leftOnlyIcon'

        ifAbsentPut:[(Depth8Image width:24 height:24) bits:(ByteArray fromPackedString:'

X6M#X6M#X6M#X6M#X&I"X&I"X&I"X&I"X6M#X6M#X6M#X6M#VE!!"X&I"X&I"X&I"X6M#X6M#X6M#X6MXA ]"X&I"X&I"X&I"X6M#X6M#X6M#X0(KC@5"X&I"

X&I"X&I"X6M#X6M#X6M#A <PDP5"X&I"X&I"X&I"X6M#X6M#X1LSEADUE 5"X&I"X&I"X&I"X6M#X6M#D1LXE!!$ZD@5"X&I"X&I"X&I"X6M#X6MXA10]G!!<Z

H@4MCP4MCP4MHRI"X6M#X0(#G"@$IRXZI2 (JATUEQTUBB%"X6M#A"(HER,%G20-K"<0LSD2L3P5M 5"X6L7NB 9G1<&KB4DAC(;OC0=O#=@PP5"X3\>P$L/

F!!(ZKPPDN#-DOA-EQ$\?R@5"X3]IR"XZKR4-A@P:N1 <O$-LST8TK 5"X6L!!S1H.ACD1L#(;Q@TCQ$YLQ48TT@5"X6M#TUH,P3(:N#P[T5QTUUYWQ$1WLP5"

X6M#X5!!YL10;QDTCK3D1LSD1L#H;MB%"X6M#X6MXD38/U@MWL 4MCP4MCP4MJRM"X6M#X6M#VALON UFF@5"X&I"X&I"X&I"X6M#X6M#X5 SV30>W@5"X&I"

X&I"X&I"X6M#X6M#X6MXTU5FU 5"X&I"X&I"X&I"X6M#X6M#X6M#X5!!_X@5"X&I"X&I"X&I"X6M#X6M#X6M#X6MXXP5"X&I"X&I"X&I"X6M#X6M#X6M#X6M#

VE5"X&I"X&I"X&I"X6M#X6M#X6M#X6M#X&I"X&I"X&I"X&I"')

            colorMapFromArray:#[251 251 251 249 249 249 234 234 234 210 210 210 224 224 224 213 213 213 184 184 184 176 176 176 238 238 238 245 245 245 200 200 200 187 187 187 240 240 240 171 171 171 233 233 233 198 198 198 246 246 246 249 249 249 236 236 236 174 174 174 207 207 207 241 241 241 247 247 247 226 226 226 219 219 219 237 237 237 227 227 227 216 216 216 231 231 231 247 247 247 234 234 234 229 229 229 245 245 245 178 178 178 188 188 188 185 185 185 232 232 232 231 231 231 228 228 228 244 244 244 242 242 242 175 175 175 193 193 193 232 232 232 228 228 228 225 225 225 229 229 229 227 227 227 226 226 226 223 223 223 221 221 221 220 220 220 219 219 219 223 223 223 237 237 237 179 179 179 200 200 200 236 236 236 221 221 221 220 220 220 217 217 217 214 214 214 213 213 213 210 210 210 215 215 215 235 235 235 239 239 239 230 230 230 218 218 218 212 212 212 208 208 208 202 202 202 230 230 230 211 211 211 238 238 238 209 209 209 205 205 205 204 204 204 201 201 201 197 197 197 225 225 225 183 183 183 187 187 187 217 217 217 214 214 214 212 212 212 211 211 211 209 209 209 196 196 196 180 180 180 248 248 248 186 186 186 215 215 215 180 180 180 240 240 240 174 174 174 196 196 196 172 172 172 255 0 0 0 255 0]

            mask:((ImageMask width:24 height:24) bits:(ByteArray fromPackedString:'????????????????????????????????????????????????????????????????????????????????????????????????'); yourself); yourself]

!

rightOnlyIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self rightOnlyIcon inspect

     ImageEditor openOnClass:self andSelector:#rightOnlyIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'DirectoryDifferenceViewApplication class rightOnlyIcon'

        ifAbsentPut:[(Depth8Image width:24 height:24) bits:(ByteArray fromPackedString:'

X&I"X&I"X&I"X&I"X6M#X6M#X6M#X6M#X&I"X&I"X&I"X%5XX6M#X6M#X6M#X6M#X&I"X&I"X&I"X 5!!VFM#X6M#X6M#X6M#X&I"X&I"X&I"X 5 W5!!#X6M#

X6M#X6M#X&I"X&I"X&I"X 5VQ%5QVFM#X6M#X6M#X&I"X&I"X&I"X 5\O#1[D5!!#X6M#X6M#X&I"X&I"X&I"X 4XQ T:C1MXX6M#X6M#X"L)CP4MCP4MCP42

U0MTK38SVFM#X6M#X"$4N3H2LSD1LSD/@4UDN103VU!!#X6M#X 41U41FU5YUUEQSF3P:N#)CKEIQX6M#X 5PED9GSDYF@0UDN3(2LSDDK!!IOHVM#X 4.ED9M

SD,>OA ;N PDKR4-F"YJRS]#X 5HO4]FQQ,<QC,:A@P-F!!(ZK4MBO#]#X 5APC<>OS0<N3(DAB4,I!!<_NR 8M6M#X 46MSP3L#D1LB<.KR0_IR,UBB(FX6M#

X"$HEQTUEQT(JB ''F"X%IB@^H0)#X6M#X"H!!CP4MCP4MCP4 F!!<^GQ0GVFM#X6M#X&I"X&I"X&I"X 4PF!!$VFALSX6M#X6M#X&I"X&I"X&I"X 4VEQDTD1M#

X6M#X6M#X&I"X&I"X&I"X 4QD@<FX6M#X6M#X6M#X&I"X&I"X&I"X 4LB0)#X6M#X6M#X6M#X&I"X&I"X&I"X \FVFM#X6M#X6M#X6M#X&I"X&I"X&I"X%!!X

X6M#X6M#X6M#X6M#X&I"X&I"X&I"X&I"X6M#X6M#X6M#X6M#')

            colorMapFromArray:#[251 251 251 249 249 249 234 234 234 210 210 210 224 224 224 213 213 213 184 184 184 176 176 176 238 238 238 245 245 245 200 200 200 187 187 187 240 240 240 171 171 171 233 233 233 198 198 198 246 246 246 249 249 249 236 236 236 174 174 174 207 207 207 241 241 241 247 247 247 226 226 226 219 219 219 237 237 237 227 227 227 216 216 216 231 231 231 247 247 247 234 234 234 229 229 229 245 245 245 178 178 178 188 188 188 185 185 185 232 232 232 231 231 231 228 228 228 244 244 244 242 242 242 175 175 175 193 193 193 232 232 232 228 228 228 225 225 225 229 229 229 227 227 227 226 226 226 223 223 223 221 221 221 220 220 220 219 219 219 223 223 223 237 237 237 179 179 179 200 200 200 236 236 236 221 221 221 220 220 220 217 217 217 214 214 214 213 213 213 210 210 210 215 215 215 235 235 235 239 239 239 230 230 230 218 218 218 212 212 212 208 208 208 202 202 202 230 230 230 211 211 211 238 238 238 209 209 209 205 205 205 204 204 204 201 201 201 197 197 197 225 225 225 183 183 183 187 187 187 217 217 217 214 214 214 212 212 212 211 211 211 209 209 209 196 196 196 180 180 180 248 248 248 186 186 186 215 215 215 180 180 180 240 240 240 174 174 174 196 196 196 172 172 172 255 0 0 0 255 0]

            mask:((ImageMask width:24 height:24) bits:(ByteArray fromPackedString:'????????????????????????????????????????????????????????????????????????????????????????????????'); yourself); yourself]

! !

!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

       uuid: '01d49d90-bac4-11e9-a284-10ddb1cc5928'

       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

             name: 'SearchToolBar'

             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'

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

             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: fileListDoubleClick:

                   columnHolder: searchResultTable

                   valueChangeSelector: fileSelected:

                   multipleSelectOk: true

                   useIndex: 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 ToolbarIconLibrary stop22x22Icon)

          )

         (MenuItem

            label: 'Close'

            itemValue: doClose

            translateLabel: true

            isButton: true

            startGroup: right

            isVisible: false

            labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)

          )

         (MenuItem

            activeHelpKey: showOnlyIn1

            label: 'Only in 1)'

            indication: showOnlyIn1Holder

            labelImage: (ResourceRetriever DirectoryDifferenceViewApplication leftOnlyIcon)

            isButton: true

            isVisible: hasResultListHolder

         )

         (MenuItem

            activeHelpKey: showOnlyIn2

            label: 'Only in 2)'

            indication: showOnlyIn2Holder