hg/stx-libtool2: comparison ProjectBrowser.st

equal deleted inserted replaced

-:a95243b3ab4a
+:18fa01008a4f
 ^Icon
 constantNamed:#'ProjectBrowser projectsIcon'
 ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@"H"H"@ @@@"H"H"@"@@@@@@@@@"H@@BH"H"HBH @@H"H"H H"@@@"H"H"@"H@@BH"H"HBH @@H"H"H H @@@"H"H"@ @@@BH"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 255 128 128]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@G? ?>G?8??''?>_?9??''?>_?9??G?8_?A?8@@@@@@b') ; yourself); yourself]! !
 !ProjectBrowser class methodsFor:'interface specs'!
+classValidationDialogSpec
+"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:ProjectBrowser andSelector:#classValidationDialogSpec
+ProjectBrowser new openInterface:#classValidationDialogSpec
+"
+<resource: #canvas>
+^
+#(#FullSpec
+#name: #classValidationDialogSpec
+#window:
+#(#WindowSpec
+#label: 'ProjectBrowser'
+#name: 'ProjectBrowser'
+#min: #(#Point 10 10)
+#max: #(#Point 1024 768)
+#bounds: #(#Rectangle 24 554 457 1003)
+#menu: #mainMenu
+#icon: #bigProjectBrowserIcon
+)
+#component:
+#(#SpecCollection
+#collection: #(
+#(#VariableVerticalPanelSpec
+#name: 'VariableVerticalPanel1'
+#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0)
+#handles:
+#(#OrderedCollection
+#Any 0.5
+1.0
+)
+#component:
+#(#SpecCollection
+#collection: #(
+#(#ViewSpec
+#name: 'Box1'
+#component:
+#(#SpecCollection
+#collection: #(
+#(#LabelSpec
+#label: 'Classes only in Image'
+#name: 'Label1'
+#layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
+#translateLabel: true
+#adjust: #left
+)
+#(#SequenceViewSpec
+#name: 'List2'
+#layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
+#hasHorizontalScrollBar: true
+#hasVerticalScrollBar: true
+#useIndex: false
+#sequenceList: #classesInImageOnly
+)
+)
+)
+)
+#(#ViewSpec
+#name: 'Box2'
+#component:
+#(#SpecCollection
+#collection: #(
+#(#LabelSpec
+#label: 'Classes only in Project'
+#name: 'Label2'
+#layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
+#translateLabel: true
+#adjust: #left
+)
+#(#SequenceViewSpec
+#name: 'List1'
+#layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
+#hasHorizontalScrollBar: true
+#hasVerticalScrollBar: true
+#useIndex: false
+#sequenceList: #classesInProjectOnly
+)
+)
+)
+)
+)
+)
+)
+#(#HorizontalPanelViewSpec
+#name: 'HorizontalPanel1'
+#layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
+#horizontalLayout: #center
+#verticalLayout: #center
+#horizontalSpace: 3
+#verticalSpace: 3
+#component:
+#(#SpecCollection
+#collection: #(
+#(#ActionButtonSpec
+#label: 'OK'
+#name: 'Button1'
+#translateLabel: true
+#model: #closeRequest
+#extent: #(#Point 125 22)
+)
+)
+)
+)
+)
+)
+)
+!
 emptyRightCanvasSpec
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
+#label: 'Validate...'
+#translateLabel: true
+#value: #validateAgainstClassesInImage
+#enabled: #hasClassesSelectedHolder
+)
+#(#MenuItem
+#label: '-'
+)
+#(#MenuItem
 #label: 'Browse...'
 #translateLabel: true
 #value: #browseClasses
 #enabled: #hasClassesSelectedHolder
 )
 ] ifTrue:[
 aClass isLoaded ifFalse:[
 Transcript showCR:('ProjectBrowser: cannot checkIn unloaded class: ' , aClass name).
 ] ifTrue:[
 aClass owningClass isNil ifTrue:[ "/ skip private classes
+Transcript showCR:('ProjectBrowser: checking in class: ' , aClass name).
 self checkInClass:aClass.
 ]
 ]
 ]
 ].
 ]
 ].
 anyMethodMissing ifTrue:[
 Transcript showCR:'ProjectBrowser: cannot save method patches & extensions due to missing method(s)'.
 ] ifFalse:[
+Transcript showCR:('ProjectBrowser: checking in patches & extensions').
 self checkInMethods:methods
 ].
 ].
 "/ check in the project file itself
 l := self patchesList.
 l removeAll.
 l addAll:methodInfo.
+!
+validateAgainstClassesInImage
+"validate classes in project against classes found in the image"
+|project classesInProjectOnly classesInImageOnly bindings|
+project := self currentProject.
+classesInImageOnly := IdentitySet new.
+classesInProjectOnly := IdentitySet new.
+Smalltalk allClassesDo:[:aClass |
+aClass isMeta ifFalse:[
+(aClass isNamespace not or:[aClass == Smalltalk]) ifTrue:[
+aClass package = project package ifTrue:[
+(project classInfoFor:aClass) isNil ifTrue:[
+classesInImageOnly add:aClass name.
+]
+]
+]
+]
+].
+project classInfo do:[:clsInfo |
+|clsName cls|
+clsName := clsInfo className.
+cls := Smalltalk at:clsName asSymbol.
+(cls isBehavior not) ifTrue:[
+classesInProjectOnly add:clsName
+].
+].
+(classesInImageOnly isEmpty and:[classesInProjectOnly isEmpty]) ifTrue:[
+self information:'Set of classes in project and image are equesl.'.
+^ self.
+].
+classesInImageOnly := classesInImageOnly asOrderedCollection sort.
+classesInProjectOnly := classesInProjectOnly asOrderedCollection sort.
+bindings := IdentityDictionary new.
+bindings at:#classesInImageOnly put:classesInImageOnly.
+bindings at:#classesInProjectOnly put:classesInProjectOnly.
+SimpleDialog
+openDialogInterfaceSpec:(self class classValidationDialogSpec)
+withBindings:bindings
 ! !
 !ProjectBrowser methodsFor:'user actions - canvas'!
 accept

changeset 1240	18fa01008a4f
parent 1239	a95243b3ab4a
child 1241	3bbc7d113387