Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added copyrights
authorClaus Gittinger <cg@exept.de>
Tue, 17 Jun 1997 12:39:23 +0200
changeset 156 b332d7117c40
parent 155 575239b7ad0b
child 157 ce974dce3dd4
added copyrights
UIHelpTool.st file | annotate | diff | comparison | revisions
UIObjectView.st file | annotate | diff | comparison | revisions
UIPainter.st file | annotate | diff | comparison | revisions
UIPainterView.st file | annotate | diff | comparison | revisions
UIPropertyView.st file | annotate | diff | comparison | revisions 
--- 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
hg/stx-libtool2