--- a/UIPropertyView.st Tue Jun 17 12:34:33 1997 +0200
+++ b/UIPropertyView.st Tue Jun 17 12:39:23 1997 +0200
@@ -1,3 +1,17 @@
+"
+ COPYRIGHT (c) 1997 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.
+"
+
+
+
ApplicationModel subclass:#UIPropertyView
instanceVariableNames:'window specClass aspects modified modifiedHolder'
classVariableNames:''
@@ -5,6 +19,13 @@
category:'Interface-UIPainter'
!
+UIPropertyView subclass:#Specification
+ instanceVariableNames:'specEdited specChannel'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:UIPropertyView
+!
+
UIPropertyView subclass:#Dimension
instanceVariableNames:'noteBook forView selection layoutTypes'
classVariableNames:''
@@ -12,15 +33,24 @@
privateIn:UIPropertyView
!
-UIPropertyView subclass:#Specification
- instanceVariableNames:'specEdited specChannel'
- classVariableNames:''
- poolDictionaries:''
- privateIn:UIPropertyView
+!UIPropertyView class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1997 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.
+"
+
+
!
-!UIPropertyView class methodsFor:'documentation'!
-
documentation
"
provides tools to the UIPainter accessing and manipulation properties
@@ -28,6 +58,9 @@
[see also:]
UIBuilder
+
+ [author:]
+ Claus Atzkern
"
! !
@@ -198,6 +231,56 @@
! !
+!UIPropertyView::Specification methodsFor:'accessing'!
+
+specEdited
+ "gets current edit specification
+ "
+ ^ specEdited
+
+
+!
+
+specEdited:aSpec
+ "sets current edit specification
+ "
+ |aspects|
+
+ self modified:false.
+
+ aSpec isNil ifTrue:[
+ specChannel := nil.
+ specEdited := nil.
+ ] ifFalse:[
+ specEdited class == aSpec class ifTrue:[
+ specEdited := aSpec.
+ specChannel value:specEdited.
+ ^ self modified:false.
+ ].
+ specEdited := aSpec.
+ aspects := IdentityDictionary new.
+ specChannel := specEdited asValue.
+ specEdited class addBindingsTo:aspects for:specEdited channel:specChannel
+ ].
+ self aspects:aspects.
+ self buildFromSpec:nil.
+
+
+! !
+
+!UIPropertyView::Specification methodsFor:'action'!
+
+reload
+ "reload specification
+ "
+ specChannel notNil ifTrue:[
+ specChannel value:specEdited.
+ self modified:false.
+ ]
+
+
+! !
+
!UIPropertyView::Dimension class methodsFor:'interface specs'!
specificationAlignmentOrigin
@@ -1462,56 +1545,6 @@
! !
-!UIPropertyView::Specification methodsFor:'accessing'!
-
-specEdited
- "gets current edit specification
- "
- ^ specEdited
-
-
-!
-
-specEdited:aSpec
- "sets current edit specification
- "
- |aspects|
-
- self modified:false.
-
- aSpec isNil ifTrue:[
- specChannel := nil.
- specEdited := nil.
- ] ifFalse:[
- specEdited class == aSpec class ifTrue:[
- specEdited := aSpec.
- specChannel value:specEdited.
- ^ self modified:false.
- ].
- specEdited := aSpec.
- aspects := IdentityDictionary new.
- specChannel := specEdited asValue.
- specEdited class addBindingsTo:aspects for:specEdited channel:specChannel
- ].
- self aspects:aspects.
- self buildFromSpec:nil.
-
-
-! !
-
-!UIPropertyView::Specification methodsFor:'action'!
-
-reload
- "reload specification
- "
- specChannel notNil ifTrue:[
- specChannel value:specEdited.
- self modified:false.
- ]
-
-
-! !
-
!UIPropertyView class methodsFor:'documentation'!
version