DirectoryDifferenceViewApplication.st
branchjv
changeset 12401 4714b9640528
parent 12262 d25ef6bb0ef3
parent 11564 67a8e0885c2c
child 12431 9f0c59c742d5
equal deleted inserted replaced
12330:235b77901045 12401:4714b9640528
    36  other person.  No title to or ownership of the software is
    36  other person.  No title to or ownership of the software is
    37  hereby transferred.
    37  hereby transferred.
    38 "
    38 "
    39 ! !
    39 ! !
    40 
    40 
       
    41 
    41 !DirectoryDifferenceViewApplication class methodsFor:'help specs'!
    42 !DirectoryDifferenceViewApplication class methodsFor:'help specs'!
    42 
    43 
    43 flyByHelpSpec
    44 flyByHelpSpec
    44     "This resource specification was automatically generated
    45     "This resource specification was automatically generated
    45      by the UIHelpTool of ST/X."
    46      by the UIHelpTool of ST/X."
    69 
    70 
    70 )
    71 )
    71 
    72 
    72     "Modified: / 13-01-2012 / 14:41:36 / cg"
    73     "Modified: / 13-01-2012 / 14:41:36 / cg"
    73 ! !
    74 ! !
       
    75 
    74 
    76 
    75 !DirectoryDifferenceViewApplication class methodsFor:'interface specs'!
    77 !DirectoryDifferenceViewApplication class methodsFor:'interface specs'!
    76 
    78 
    77 windowSpec
    79 windowSpec
    78     "This resource specification was automatically generated
    80     "This resource specification was automatically generated
   247       )
   249       )
   248 
   250 
   249     "Modified: / 13-01-2012 / 14:41:56 / cg"
   251     "Modified: / 13-01-2012 / 14:41:56 / cg"
   250 ! !
   252 ! !
   251 
   253 
       
   254 
   252 !DirectoryDifferenceViewApplication class methodsFor:'menu specs'!
   255 !DirectoryDifferenceViewApplication class methodsFor:'menu specs'!
   253 
   256 
   254 searchMenu
   257 searchMenu
   255     "This resource specification was automatically generated
   258     "This resource specification was automatically generated
   256      by the MenuEditor of ST/X."
   259      by the MenuEditor of ST/X."
   298         nil
   301         nil
   299         nil
   302         nil
   300       )
   303       )
   301 ! !
   304 ! !
   302 
   305 
       
   306 
   303 !DirectoryDifferenceViewApplication class methodsFor:'tableColumns specs'!
   307 !DirectoryDifferenceViewApplication class methodsFor:'tableColumns specs'!
   304 
   308 
   305 searchResultTable
   309 searchResultTable
   306     "This resource specification was automatically generated
   310     "This resource specification was automatically generated
   307      by the DataSetBuilder of ST/X."
   311      by the DataSetBuilder of ST/X."
   338        )
   342        )
   339       )
   343       )
   340     
   344     
   341 ! !
   345 ! !
   342 
   346 
       
   347 
   343 !DirectoryDifferenceViewApplication methodsFor:'accessing'!
   348 !DirectoryDifferenceViewApplication methodsFor:'accessing'!
   344 
   349 
   345 directory1:directory1Arg directory2:directory2Arg 
   350 directory1:directory1Arg directory2:directory2Arg 
   346     self directory1Holder value:directory1Arg.
   351     self directory1Holder value:directory1Arg.
   347     self directory2Holder value:directory2Arg.
   352     self directory2Holder value:directory2Arg.
   370     ^ directory2Holder
   375     ^ directory2Holder
   371 
   376 
   372     "Created: / 12-01-2012 / 01:37:41 / cg"
   377     "Created: / 12-01-2012 / 01:37:41 / cg"
   373 ! !
   378 ! !
   374 
   379 
       
   380 
   375 !DirectoryDifferenceViewApplication methodsFor:'actions'!
   381 !DirectoryDifferenceViewApplication methodsFor:'actions'!
   376 
   382 
   377 fileSelected:entries
   383 fileSelected:entries
   378     |entry file fn1 fn2 text1 text2 differ|
   384     |entry file fn1 fn2 text1 text2 differ|
   379 
   385 
   394     differ text1:(text1 ? '') text2:(text2 ? '').
   400     differ text1:(text1 ? '') text2:(text2 ? '').
   395 
   401 
   396     "Created: / 12-01-2012 / 03:21:52 / cg"
   402     "Created: / 12-01-2012 / 03:21:52 / cg"
   397 ! !
   403 ! !
   398 
   404 
       
   405 
   399 !DirectoryDifferenceViewApplication methodsFor:'aspects'!
   406 !DirectoryDifferenceViewApplication methodsFor:'aspects'!
   400 
   407 
   401 excludedNamePatternHolder
   408 excludedNamePatternHolder
   402     excludedNamePatternHolder isNil ifTrue:[
   409     excludedNamePatternHolder isNil ifTrue:[
   403         excludedNamePatternHolder := '' asValue.
   410         excludedNamePatternHolder := '' asValue.
   414     ].
   421     ].
   415     ^ namePatternHolder.
   422     ^ namePatternHolder.
   416 
   423 
   417     "Created: / 13-01-2012 / 14:37:28 / cg"
   424     "Created: / 13-01-2012 / 14:37:28 / cg"
   418 ! !
   425 ! !
       
   426 
   419 
   427 
   420 !DirectoryDifferenceViewApplication methodsFor:'comparing'!
   428 !DirectoryDifferenceViewApplication methodsFor:'comparing'!
   421 
   429 
   422 doSearch
   430 doSearch
   423     |dir1 dir2 namePattern namePatterns excludedNamePattern excludedNamePatterns|
   431     |dir1 dir2 namePattern namePatterns excludedNamePattern excludedNamePatterns|
   526         name:'Directory Diff'.
   534         name:'Directory Diff'.
   527 
   535 
   528     "Created: / 12-01-2012 / 01:07:20 / cg"
   536     "Created: / 12-01-2012 / 01:07:20 / cg"
   529 ! !
   537 ! !
   530 
   538 
       
   539 
   531 !DirectoryDifferenceViewApplication methodsFor:'startup & release'!
   540 !DirectoryDifferenceViewApplication methodsFor:'startup & release'!
   532 
   541 
   533 postOpenWith:aBuilder
   542 postOpenWith:aBuilder
   534     super postOpenWith:aBuilder.
   543     super postOpenWith:aBuilder.
   535     self doSearch
   544     self doSearch
   536 
   545 
   537     "Created: / 12-01-2012 / 01:41:18 / cg"
   546     "Created: / 12-01-2012 / 01:41:18 / cg"
   538 ! !
   547 ! !
   539 
   548 
       
   549 
   540 !DirectoryDifferenceViewApplication class methodsFor:'documentation'!
   550 !DirectoryDifferenceViewApplication class methodsFor:'documentation'!
   541 
   551 
   542 version
   552 version
   543     ^ '$Header: /cvs/stx/stx/libtool/DirectoryDifferenceViewApplication.st,v 1.5 2012/06/06 09:46:59 cg Exp $'
   553     ^ '$Header: /cvs/stx/stx/libtool/DirectoryDifferenceViewApplication.st,v 1.5 2012-06-06 09:46:59 cg Exp $'
   544 !
   554 !
   545 
   555 
   546 version_CVS
   556 version_CVS
   547     ^ '§Header: /cvs/stx/stx/libtool/DirectoryDifferenceViewApplication.st,v 1.5 2012/06/06 09:46:59 cg Exp §'
   557     ^ '$Header: /cvs/stx/stx/libtool/DirectoryDifferenceViewApplication.st,v 1.5 2012-06-06 09:46:59 cg Exp $'
   548 !
   558 !
   549 
   559 
   550 version_SVN
   560 version_SVN
   551     ^ '$Id: DirectoryDifferenceViewApplication.st 8018 2012-07-18 17:00:57Z vranyj1 $'
   561     ^ '$Id: DirectoryDifferenceViewApplication.st 8018 2012-07-18 17:00:57Z vranyj1 $'
   552 ! !
   562 ! !
       
   563