--- a/UIHelpTool.st Tue Jun 17 12:34:33 1997 +0200
+++ b/UIHelpTool.st Tue Jun 17 12:39:23 1997 +0200
@@ -1,3 +1,17 @@
+"
+ COPYRIGHT (c) 1995 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:#UIHelpTool
instanceVariableNames:'dictionary list model'
classVariableNames:''
@@ -7,10 +21,29 @@
!UIHelpTool class methodsFor:'documentation'!
+copyright
+"
+ COPYRIGHT (c) 1995 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
"
used by the UIPainter to add help text to any component which will be shown
during runing an application with enabled activeHelp mode.
+
+ [author:]
+ Claus Atzkern
"
! !
--- a/UIObjectView.st Tue Jun 17 12:34:33 1997 +0200
+++ b/UIObjectView.st Tue Jun 17 12:39:23 1997 +0200
@@ -1,3 +1,17 @@
+"
+ COPYRIGHT (c) 1995 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.
+"
+
+
+
ObjectView subclass:#UIObjectView
instanceVariableNames:'saveSelection inputView enableChannel undoHistory copiedExtent
copiedLayout actionData createClass clipChildren
@@ -23,6 +37,22 @@
!UIObjectView class methodsFor:'documentation'!
+copyright
+"
+ COPYRIGHT (c) 1995 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
"
buildIn view used by the UIPainter; it provides all services for creating, deleting
@@ -31,6 +61,9 @@
[see also:]
UIBuilder
UIPainterView
+
+ [author:]
+ Claus Atzkern
"
! !
@@ -2355,6 +2388,9 @@
[see also:]
UIObjectView
UIPainterView
+
+ [author:]
+ Claus Atzkern
"
@@ -2557,6 +2593,9 @@
[see also:]
UndoHistory
+
+ [author:]
+ Claus Atzkern
"
! !
--- a/UIPainter.st Tue Jun 17 12:34:33 1997 +0200
+++ b/UIPainter.st Tue Jun 17 12:39:23 1997 +0200
@@ -1,3 +1,16 @@
+"
+ COPYRIGHT (c) 1995 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:#UIPainter
instanceVariableNames:'activeHelpTool layoutTool objectList selectionPanel tabSelection
lastSlice specView fileName specClass specSelector specSuperclass
@@ -9,6 +22,21 @@
!UIPainter class methodsFor:'documentation'!
+copyright
+"
+ COPYRIGHT (c) 1995 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
"
GUI-Builder:
@@ -22,6 +50,9 @@
[start with:]
UIPainter open
+ [author:]
+ Claus Atzkern
+
[see also:]
UIBuilder
ApplicationModel
--- a/UIPainterView.st Tue Jun 17 12:34:33 1997 +0200
+++ b/UIPainterView.st Tue Jun 17 12:39:23 1997 +0200
@@ -1,6 +1,6 @@
"
- COPYRIGHT (c) 1995 by Claus Gittinger
- All Rights Reserved
+ COPYRIGHT (c) 1995 by Claus Gittinger / 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
@@ -17,16 +17,16 @@
category:'Interface-UIPainter'
!
-MultiSelectionInList subclass:#ListHolder
- instanceVariableNames:'painter propertyList masterElement disabledChanged'
- classVariableNames:''
+Object subclass:#ViewProperty
+ instanceVariableNames:'view spec identifier'
+ classVariableNames:'Identifier'
poolDictionaries:''
privateIn:UIPainterView
!
-Object subclass:#ViewProperty
- instanceVariableNames:'view spec identifier'
- classVariableNames:'Identifier'
+MultiSelectionInList subclass:#ListHolder
+ instanceVariableNames:'painter propertyList masterElement disabledChanged'
+ classVariableNames:''
poolDictionaries:''
privateIn:UIPainterView
!
@@ -35,8 +35,8 @@
copyright
"
- COPYRIGHT (c) 1995 by Claus Gittinger
- All Rights Reserved
+ COPYRIGHT (c) 1995 by Claus Gittinger / 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
@@ -55,6 +55,10 @@
[see also:]
UIBuilder
UIObjectView
+
+ [author:]
+ Claus Gittinger
+ Claus Atzkern
"
! !
@@ -1446,6 +1450,105 @@
! !
+!UIPainterView::ViewProperty class methodsFor:'documentation'!
+
+version
+ ^ '$Header$'
+! !
+
+!UIPainterView::ViewProperty class methodsFor:'instance creation'!
+
+new
+ Identifier notNil ifTrue:[Identifier := Identifier + 1]
+ ifFalse:[Identifier := 1].
+
+ ^ self basicNew initialize
+! !
+
+!UIPainterView::ViewProperty methodsFor:'accessing'!
+
+identifier
+ "return the unique identifier assigned to property
+ "
+ ^ identifier
+!
+
+identifier:anIdentifier
+ "set the unique identifier assigned to property; called after an restore of
+ a deleted instance
+ "
+ identifier := anIdentifier
+!
+
+spec
+ "return the value of the instance variable 'spec' (automatically generated)"
+
+ ^ spec!
+
+spec:something
+ "set the value of the instance variable 'spec' (automatically generated)"
+
+ spec := something.!
+
+view
+ "return the value of the instance variable 'view' (automatically generated)"
+
+ ^ view!
+
+view:something
+ "set the value of the instance variable 'view' (automatically generated)"
+
+ view := something.! !
+
+!UIPainterView::ViewProperty methodsFor:'initialization'!
+
+initialize
+ super initialize.
+ identifier := Identifier
+! !
+
+!UIPainterView::ViewProperty methodsFor:'misc'!
+
+extractNumberStartingAt:anIndex
+ "return the number from the name starting at anIndex or 0.
+ "
+ |val|
+
+ val := 0.
+
+ self name from:anIndex do:[:c|
+ c isDigit ifTrue:[val := val * 10 + c digitValue]
+ ifFalse:[^ 0]
+ ].
+ ^ val
+
+! !
+
+!UIPainterView::ViewProperty methodsFor:'spec messages'!
+
+doesNotUnderstand:aMessage
+ spec notNil ifTrue:[
+ (spec respondsTo:(aMessage selector)) ifTrue:[^ aMessage sendTo:spec]
+ ].
+ ^ nil
+!
+
+layout
+ spec layout
+!
+
+layout:aLayout
+ spec layout:aLayout
+!
+
+name
+ ^ spec name
+!
+
+name:aName
+ spec name:aName
+! !
+
!UIPainterView::ListHolder class methodsFor:'instance creation'!
for:aPainter
@@ -1779,105 +1882,6 @@
super selectionIndex:aSel
! !
-!UIPainterView::ViewProperty class methodsFor:'documentation'!
-
-version
- ^ '$Header$'
-! !
-
-!UIPainterView::ViewProperty class methodsFor:'instance creation'!
-
-new
- Identifier notNil ifTrue:[Identifier := Identifier + 1]
- ifFalse:[Identifier := 1].
-
- ^ self basicNew initialize
-! !
-
-!UIPainterView::ViewProperty methodsFor:'accessing'!
-
-identifier
- "return the unique identifier assigned to property
- "
- ^ identifier
-!
-
-identifier:anIdentifier
- "set the unique identifier assigned to property; called after an restore of
- a deleted instance
- "
- identifier := anIdentifier
-!
-
-spec
- "return the value of the instance variable 'spec' (automatically generated)"
-
- ^ spec!
-
-spec:something
- "set the value of the instance variable 'spec' (automatically generated)"
-
- spec := something.!
-
-view
- "return the value of the instance variable 'view' (automatically generated)"
-
- ^ view!
-
-view:something
- "set the value of the instance variable 'view' (automatically generated)"
-
- view := something.! !
-
-!UIPainterView::ViewProperty methodsFor:'initialization'!
-
-initialize
- super initialize.
- identifier := Identifier
-! !
-
-!UIPainterView::ViewProperty methodsFor:'misc'!
-
-extractNumberStartingAt:anIndex
- "return the number from the name starting at anIndex or 0.
- "
- |val|
-
- val := 0.
-
- self name from:anIndex do:[:c|
- c isDigit ifTrue:[val := val * 10 + c digitValue]
- ifFalse:[^ 0]
- ].
- ^ val
-
-! !
-
-!UIPainterView::ViewProperty methodsFor:'spec messages'!
-
-doesNotUnderstand:aMessage
- spec notNil ifTrue:[
- (spec respondsTo:(aMessage selector)) ifTrue:[^ aMessage sendTo:spec]
- ].
- ^ nil
-!
-
-layout
- spec layout
-!
-
-layout:aLayout
- spec layout:aLayout
-!
-
-name
- ^ spec name
-!
-
-name:aName
- spec name:aName
-! !
-
!UIPainterView class methodsFor:'documentation'!
version
--- 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