hg/stx-libtool: comparison Tools_

equal deleted inserted replaced

-:3efd83b86c07
+:76f9a872362b
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
 OTHER DEALINGS IN THE SOFTWARE.
 "
 ! !
 !ChangeSetBrowser2 class methodsFor:'instance creation'!
 on: aStringOrChangeSet
 "Opens a browser on given changeset. If the argument is
 string, then loads the changeset from given file - for
 ^browser
 "Created: / 17-05-2012 / 23:36:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeSetBrowser2 class methodsFor:'accessing'!
 showRemoved
 ^ShowRemoved == true
 showRemoved: aBoolean
 ShowRemoved := aBoolean
 ! !
 !ChangeSetBrowser2 class methodsFor:'help specs'!
 flyByHelpSpec
 "This resource specification was automatically generated
 )
 "Modified: / 01-08-2012 / 18:40:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeSetBrowser2 class methodsFor:'image specs'!
 applyFromLastSnapshotIcon
 ^ self applyFromLastSnapshotIcon2
 	constantNamed:#'NewChangesBrowser class findPreviousSnapshotIcon'
 	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @EUUUW@A@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@A@F***(@M@F***(@H@F***(@@@F***(@@@F***(@I@L@@@@@@@@@@@@@A
 @P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??B@@@B@C@B@G B@O0@@_8@@G @@G @@G @') ; yourself); yourself]
 ! !
 !ChangeSetBrowser2 class methodsFor:'interface opening'!
 confirmChanges: aChangeSet
 "Created: / 25-01-2012 / 17:16:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 27-07-2012 / 21:24:19 / cg"
 !
 openOn: aChangeSet
 ^(self on: aChangeSet)
-	open;
+open;
-	yourself.
+yourself
 "
-	self openOn: ChangeSet current
+self openOn: ChangeSet current
 "
-"Modified: / 30-01-2012 / 15:59:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified (comment): / 24-01-2012 / 20:01:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 26-07-2012 / 13:19:18 / cg"
 !
 openOn: aChangeSet label: aString
 ^self openOn: aChangeSet label: aString setupWith: [:browser]
 ^(self on: aChangeSet label: aString setupWith: aBlock) open; yourself
 "Created: / 26-10-2010 / 23:07:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 26-07-2012 / 13:19:30 / cg"
 ! !
 !ChangeSetBrowser2 class methodsFor:'interface specs'!
 hierarchicalNavigatorSpec
 "This resource specification was automatically generated
 )
 "Modified: / 03-12-2011 / 10:36:40 / cg"
 "Modified: / 16-03-2012 / 13:09:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeSetBrowser2 class methodsFor:'menu specs'!
 changeMenu
 "This resource specification was automatically generated
 	nil
 	nil
 )
 ! !
 !ChangeSetBrowser2 class methodsFor:'plugIn spec'!
 aspectSelectors
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 ^ #(
 	#changesetHolder
 ).
 ! !
 !ChangeSetBrowser2 methodsFor:'accessing'!
 allowAccept: aBoolean
 self titleHolder value: aString
 "Created: / 26-10-2010 / 23:01:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeSetBrowser2 methodsFor:'accessing - defaults'!
 defaultTitle
 ^ 'No changeset'
 "Modified: / 08-04-2011 / 10:10:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeSetBrowser2 methodsFor:'accessing - menus'!
 list1MenuHolder
 ^ [
 ]
 "Created: / 04-08-2011 / 18:13:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified (format): / 05-09-2011 / 16:07:34 / cg"
 ! !
 !ChangeSetBrowser2 methodsFor:'actions'!
 accept: source
 sourceView := aView.
 "Modified: / 19-07-2011 / 19:08:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeSetBrowser2 methodsFor:'aspects'!
 allowAcceptHolder
 "return/create the 'selectionHolder' value holder (automatically generated)"
 ].
 ^ updateChangeFileHolder
 "Created: / 07-09-2011 / 15:54:03 / cg"
 "Created: / 11-02-2012 / 22:40:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
+!
+!
 !ChangeSetBrowser2 methodsFor:'aspects-queries'!
 hasSelectionHolder
 ^isWorkingNotHolder
 "Created: / 17-05-2012 / 20:45:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeSetBrowser2 methodsFor:'change & update'!
 changesetChanged
 self titleHolder value: (self changeset name ifNil:[self defaultTitle]).
 super update: aspect with: param from: sender
 "Created: / 24-10-2009 / 19:29:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeSetBrowser2 methodsFor:'initialization'!
 list1View: aSubApplicationView
 aSubApplicationView application applyAction:[:change | self changeMenuApplyChange:change].
 list1 := aSubApplicationView application
 list2 := aSubApplicationView application
 "Created: / 04-08-2011 / 17:57:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 10-09-2012 / 14:22:50 / cg"
 ! !
 !ChangeSetBrowser2 methodsFor:'menu actions'!
 doApply
 "Applies currently selected change"
 "Created: / 05-12-2009 / 13:43:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 27-07-2012 / 21:21:24 / cg"
 !
-doOpenCurrent
-self doOpenFile: ObjectMemory nameForChanges.
-self showFilter: true.
-"Created: / 05-12-2009 / 13:44:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
 doOpenCurrentChangeFile
 self withWaitCursorDo:[
 	self class openOn: (ChangeSet fromFile: ObjectMemory nameForChanges)
 ].
 targetPackage := "lastPackage := "package.
 "/ self targetPackageHolder value:('Target-Package: ',targetPackage).
 "Created: / 07-09-2011 / 12:47:15 / cg"
 ! !
 !ChangeSetBrowser2 methodsFor:'menu actions - changes'!
 changeMenuApply: changeList
 | changesToApply |
 ^ changes collect:[:eachListEntry | eachListEntry change].
 "Created: / 23-07-2012 / 13:13:11 / cg"
 ! !
 !ChangeSetBrowser2 methodsFor:'menu actions - changes - helpers'!
 changeMenuApplyChange: aChange
 "/    aChange isClassDefinitionChange ifTrue:
 "Created: / 04-08-2011 / 17:29:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 21-01-2013 / 17:12:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeSetBrowser2 methodsFor:'private'!
 changesDo:aBlock
 self changeset do:aBlock.
 applyBlock := [:e|aBlock value: e change].
 "/    selectionHolder value isEmptyOrNil ifTrue:[
 "/        (self navigatorChangesetHolder value ? #()) do: aBlock
 "/    ] ifFalse:[
-	selection2Holder value isEmptyOrNil not
+selection2Holder value isEmptyOrNil not
-	    ifTrue:[selection2Holder value do: [:e|e notNil ifTrue:[applyBlock value:e]]]
+ifTrue:[selection2Holder value do: [:e|e notNil ifTrue:[applyBlock value:e]]]
-	    ifFalse:[selection1Holder value do: [:e|e notNil ifTrue:[applyBlock value:e]]].
+ifFalse:[selection1Holder value do: [:e|e notNil ifTrue:[applyBlock value:e]]].
 "/    ].
 self redrawChangeListViews
 "Created: / 29-10-2010 / 13:47:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 20-03-2012 / 17:16:40 / cg"
 ^ targetPackage ? PackageId noProjectID
 "Created: / 07-09-2011 / 20:12:04 / cg"
 ! !
 !ChangeSetBrowser2 methodsFor:'queries'!
 canApplyChanges
 ^true
 ^true
 "Created: / 04-08-2011 / 18:25:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeSetBrowser2 methodsFor:'testing'!
 isHierarchical
 ^self navigatorSpecHolder == #hierarchicalNavigatorSpec
 ^self navigatorSpecHolder == #twoColumnNavigatorSpec
 "Modified: / 14-10-2010 / 15:51:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Created: / 30-03-2012 / 11:59:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeSetBrowser2::ChangeEditor class methodsFor:'documentation'!
 documentation
 "
 ... add code fragment for
 ... executable example here ...
 								[exEnd]
 "
 ! !
 !ChangeSetBrowser2::ChangeEditor class methodsFor:'interface specs'!
 windowSpec
 "This resource specification was automatically generated
 )
 "Modified: / 16-03-2012 / 13:08:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeSetBrowser2::ChangeEditor methodsFor:'accessing'!
 sourceChangeHolder
 ^ sourceChangeHolder
 !
 !
 sourceImageHolder:something
 sourceImageHolder := something.
 ! !
 !ChangeSetBrowser2::ChangeEditor methodsFor:'aspects'!
 changeHolder
 "return/create the 'changeHolder' value holder (automatically generated)"
 "set the 'showdiffHolder' value holder (automatically generated)"
 showdiffHolder := something.
 ! !
 !ChangeSetBrowser2::ChangeEditor methodsFor:'change & update'!
 changeChanged
 "changeHolder has changed, update sources etc..."
 super update:something with:aParameter from:changedObject
 "Modified: / 29-11-2011 / 11:15:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeSetBrowser2 class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.43 2012/12/14 09:09:51 stefan Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.43 2012-12-14 09:09:51 stefan Exp $'
 !
 version_CVS
-^ '�Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.43 2012/12/14 09:09:51 stefan Exp �'
+^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.43 2012-12-14 09:09:51 stefan Exp $'
 !
 version_HG
 ^ '$Changeset: <not expanded> $'
 !
 version_SVN
-^ '�Id: Tools__ChangeSetBrowser2.st 8083 2013-01-14 11:48:37Z vranyj1 �'
+^ '�Id: Tools__ChangeSetBrowser.st 7486 2009-10-26 22:06:24Z vranyj1 �'
 ! !

branch	jv
changeset 12405	76f9a872362b
parent 12328	2d47a394e0cf
parent 12088	5ae808a3d675
child 12406	1fbd331e4489