Mercurial Mercurial > hg > stx-libview2 / 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.
checkin from browser
authorca
Tue, 11 Feb 1997 20:02:28 +0100
changeset 410 2d21748e0d9c
parent 409 391a714f95e4
child 411 8b8b0128d129
checkin from browser
WinBuilder.st file | annotate | diff | comparison | revisions
WindowBuilder.st file | annotate | diff | comparison | revisions 
--- a/WinBuilder.st	Tue Feb 11 12:05:05 1997 +0100
+++ b/WinBuilder.st	Tue Feb 11 20:02:28 1997 +0100
@@ -11,7 +11,8 @@
 "
 
 Object subclass:#WindowBuilder
-	instanceVariableNames:'window application bindings focusSequence namedComponents'
+	instanceVariableNames:'window application bindings focusSequence namedComponents
+		componentCreationHook'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Support-UI'
@@ -104,6 +105,11 @@
     bindings at:name put:aComponent
 !
 
+componentCreationHook:something
+    "set the value of the instance variable 'componentCreationHook' (automatically generated)"
+
+    componentCreationHook := something.!
+
 focusSequence 
     ^ focusSequence
 !
@@ -187,6 +193,9 @@
 !
 
 createdComponent:aView forSpec:spec
+    componentCreationHook notNil ifTrue:[
+        componentCreationHook value:aView value:spec value:self
+    ]
 
     "Modified: 5.9.1995 / 21:42:54 / claus"
 !
@@ -300,5 +309,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.16 1997-02-11 11:03:30 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.17 1997-02-11 19:02:28 ca Exp $'
 ! !
--- a/WindowBuilder.st	Tue Feb 11 12:05:05 1997 +0100
+++ b/WindowBuilder.st	Tue Feb 11 20:02:28 1997 +0100
@@ -11,7 +11,8 @@
 "
 
 Object subclass:#WindowBuilder
-	instanceVariableNames:'window application bindings focusSequence namedComponents'
+	instanceVariableNames:'window application bindings focusSequence namedComponents
+		componentCreationHook'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Support-UI'
@@ -104,6 +105,11 @@
     bindings at:name put:aComponent
 !
 
+componentCreationHook:something
+    "set the value of the instance variable 'componentCreationHook' (automatically generated)"
+
+    componentCreationHook := something.!
+
 focusSequence 
     ^ focusSequence
 !
@@ -187,6 +193,9 @@
 !
 
 createdComponent:aView forSpec:spec
+    componentCreationHook notNil ifTrue:[
+        componentCreationHook value:aView value:spec value:self
+    ]
 
     "Modified: 5.9.1995 / 21:42:54 / claus"
 !
@@ -300,5 +309,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.16 1997-02-11 11:03:30 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.17 1997-02-11 19:02:28 ca Exp $'
 ! !
hg/stx-libview2