Mercurial Mercurial > hg > stx-libtool / 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.
Initial revision
authorclaus
Mon, 10 Oct 1994 04:15:21 +0100
changeset 44 5f101bc4a0ca
parent 43 80751eadbd80
child 45 950b84ba89e6
Initial revision
ClrInspV.st file | annotate | diff | comparison | revisions
ColorInspectorView.st file | annotate | diff | comparison | revisions 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ClrInspV.st	Mon Oct 10 04:15:21 1994 +0100
@@ -0,0 +1,41 @@
+'From Smalltalk/X, Version:2.10.3 on 24-sep-1994 at 20:04:48'!
+
+InspectorView subclass:#ColorInspectorView
+	 instanceVariableNames:'colorView'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Interface-Inspector'
+!
+
+!ColorInspectorView methodsFor:'accessing'!
+
+inspect:anObject
+    super inspect:anObject.
+    realized ifFalse:[^ self].
+    colorView viewBackground:anObject.
+    colorView clear
+! !
+
+!ColorInspectorView methodsFor:'initialization'!
+
+initialize
+    |newPanel sub|
+
+    super initialize.
+
+    newPanel := VariableVerticalPanel in:self.
+    newPanel origin:0.0 @ 0.0 corner:1.0 @ 1.0.
+
+    sub := subViews first.
+    self removeSubView:sub.
+    sub origin:0.0@0.0 corner:1.0@0.8.
+    newPanel addSubView:sub.
+
+    colorView := View in:newPanel.
+    colorView origin:(0.0 @ 0.8) corner:(1.0 @ 1.0).
+
+    "
+     ColorInspectorView inspect:(Color yellow)
+     ColorInspectorView inspect:(Color name:'brown') lightened)
+    "
+! !
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ColorInspectorView.st	Mon Oct 10 04:15:21 1994 +0100
@@ -0,0 +1,41 @@
+'From Smalltalk/X, Version:2.10.3 on 24-sep-1994 at 20:04:48'!
+
+InspectorView subclass:#ColorInspectorView
+	 instanceVariableNames:'colorView'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Interface-Inspector'
+!
+
+!ColorInspectorView methodsFor:'accessing'!
+
+inspect:anObject
+    super inspect:anObject.
+    realized ifFalse:[^ self].
+    colorView viewBackground:anObject.
+    colorView clear
+! !
+
+!ColorInspectorView methodsFor:'initialization'!
+
+initialize
+    |newPanel sub|
+
+    super initialize.
+
+    newPanel := VariableVerticalPanel in:self.
+    newPanel origin:0.0 @ 0.0 corner:1.0 @ 1.0.
+
+    sub := subViews first.
+    self removeSubView:sub.
+    sub origin:0.0@0.0 corner:1.0@0.8.
+    newPanel addSubView:sub.
+
+    colorView := View in:newPanel.
+    colorView origin:(0.0 @ 0.8) corner:(1.0 @ 1.0).
+
+    "
+     ColorInspectorView inspect:(Color yellow)
+     ColorInspectorView inspect:(Color name:'brown') lightened)
+    "
+! !
hg/stx-libtool