# HG changeset patch # User Claus Gittinger # Date 866543963 -7200 # Node ID b332d7117c40d43041d1f3a3c4895c980c8d9c0f # Parent 575239b7ad0b41d2a5bc76a7a8817e2a63fcb839 added copyrights diff -r 575239b7ad0b -r b332d7117c40 UIHelpTool.st --- 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 " ! ! diff -r 575239b7ad0b -r b332d7117c40 UIObjectView.st --- 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 " ! ! diff -r 575239b7ad0b -r b332d7117c40 UIPainter.st --- 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 diff -r 575239b7ad0b -r b332d7117c40 UIPainterView.st --- 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 diff -r 575239b7ad0b -r b332d7117c40 UIPropertyView.st --- 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