# HG changeset patch
# User ca
# Date 857493550 -3600
# Node ID 7493e2437af56c77be9856a9afa8b49670b6f88e
# Parent  3316c52ef2b74b98f7e29b1f8a0258cbc6950336
checkin from browser

diff -r 3316c52ef2b7 -r 7493e2437af5 UIPainter.st
--- a/UIPainter.st	Tue Mar 04 14:23:26 1997 +0100
+++ b/UIPainter.st	Tue Mar 04 17:39:10 1997 +0100
@@ -68,12 +68,10 @@
     ^
      
        #(#FullSpec
-          #'isOpaque:' true
           #'window:' 
            #(#WindowSpec
               #'name:' 'uIPainterView'
               #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-              #'isOpaque:' true
               #'label:' 'unnamed'
               #'bounds:' #(#Rectangle 0 0 300 300)
           )
@@ -84,11 +82,11 @@
                  #(#LabelSpec
                     #'name:' 'label1'
                     #'layout:' #(#LayoutFrame 10 0 50 0 110 0 70 0)
-                    #'isOpaque:' true
                     #'label:' 'class:'
                     #'foregroundColor:' #(#Color 0.0 0.0 0.0)
                     #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
                     #'initiallyInvisible:' false
+                    #'translateLabel:' false
                     #'level:' 0
                     #'adjust:' #right
                     #'hasCharacterOrientedLabel:' true
@@ -96,11 +94,11 @@
                  #(#LabelSpec
                     #'name:' 'label2'
                     #'layout:' #(#LayoutFrame 10 0 90 0 110 0 110 0)
-                    #'isOpaque:' true
                     #'label:' 'superclass:'
                     #'foregroundColor:' #(#Color 0.0 0.0 0.0)
                     #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
                     #'initiallyInvisible:' false
+                    #'translateLabel:' false
                     #'level:' 0
                     #'adjust:' #right
                     #'hasCharacterOrientedLabel:' true
@@ -108,11 +106,11 @@
                  #(#LabelSpec
                     #'name:' 'label3'
                     #'layout:' #(#LayoutFrame 10 0 130 0 110 0 150 0)
-                    #'isOpaque:' true
                     #'label:' 'selector:'
                     #'foregroundColor:' #(#Color 0.0 0.0 0.0)
                     #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
                     #'initiallyInvisible:' false
+                    #'translateLabel:' false
                     #'level:' 0
                     #'adjust:' #right
                     #'hasCharacterOrientedLabel:' true
@@ -120,11 +118,7 @@
                  #(#InputFieldSpec
                     #'name:' 'classNameField'
                     #'layout:' #(#LayoutFrame 120 0 50 0 289 0 69 0)
-                    #'isOpaque:' true
-                    #'initiallyDisabled:' false
-                    #'initiallyInvisible:' false
                     #'model:' #classNameChannel
-                    #'isReadOnly:' false
                     #'tabable:' true
                     #'immediateAccept:' false
                     #'acceptOnLeave:' true
@@ -136,11 +130,7 @@
                  #(#InputFieldSpec
                     #'name:' 'superclassNameField'
                     #'layout:' #(#LayoutFrame 120 0 90 0 289 0 109 0)
-                    #'isOpaque:' true
-                    #'initiallyDisabled:' false
-                    #'initiallyInvisible:' false
                     #'model:' #superclassNameChannel
-                    #'isReadOnly:' false
                     #'tabable:' true
                     #'immediateAccept:' false
                     #'acceptOnLeave:' true
@@ -152,11 +142,7 @@
                  #(#InputFieldSpec
                     #'name:' 'methodNameField'
                     #'layout:' #(#LayoutFrame 120 0 130 0 289 0 149 0)
-                    #'isOpaque:' true
-                    #'initiallyDisabled:' false
-                    #'initiallyInvisible:' false
                     #'model:' #methodNameChannel
-                    #'isReadOnly:' false
                     #'tabable:' true
                     #'immediateAccept:' false
                     #'acceptOnLeave:' true
@@ -168,43 +154,34 @@
                  #(#ActionButtonSpec
                     #'name:' 'button1'
                     #'layout:' #(#LayoutFrame 30 0 250 0 129 0 279 0)
-                    #'isOpaque:' true
                     #'label:' 'cancel'
                     #'foregroundColor:' #(#Color 0.0 0.0 0.0)
                     #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
-                    #'initiallyInvisible:' false
+                    #'translateLabel:' false
                     #'tabable:' true
-                    #'isDefault:' false
-                    #'defaultable:' false
                     #'model:' #cancel
-                    #'hasCharacterOrientedLabel:' true
-                    #'isDecorated:' false
-                    #'initiallyDisabled:' false
+                    #'isTriggerOnDown:' false
                 )
                  #(#ActionButtonSpec
                     #'name:' 'button2'
                     #'layout:' #(#LayoutFrame 160 0 250 0 259 0 279 0)
-                    #'isOpaque:' true
                     #'label:' 'ok'
                     #'foregroundColor:' #(#Color 0.0 0.0 0.0)
                     #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
-                    #'initiallyInvisible:' false
+                    #'translateLabel:' false
                     #'tabable:' true
                     #'isDefault:' true
-                    #'defaultable:' false
                     #'model:' #accept
-                    #'hasCharacterOrientedLabel:' true
-                    #'isDecorated:' false
-                    #'initiallyDisabled:' false
+                    #'isTriggerOnDown:' false
                 )
                  #(#LabelSpec
                     #'name:' 'boxLabel'
                     #'layout:' #(#LayoutOrigin 78 0 11 0)
-                    #'isOpaque:' true
                     #'label:' 'class & selector for code'
                     #'foregroundColor:' #(#Color 0.0 0.0 0.0)
                     #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
                     #'initiallyInvisible:' false
+                    #'translateLabel:' false
                     #'level:' 0
                     #'adjust:' #center
                     #'hasCharacterOrientedLabel:' true
@@ -897,7 +874,6 @@
 
     view := Display viewFromUser.
     view isNil ifTrue:[^ self].
-
     spec := UISpecification fromView:view topView.
 
     "/ ok, got it
@@ -934,9 +910,7 @@
     box pattern:'*.*'.
     box action:[:aFile| self saveAs:aFile ].
     box open
-! !
-
-!UIPainter ignoredMethodsFor:'user interaction - menu'!
+!
 
 doSource
    |code v|
@@ -948,9 +922,7 @@
     ^ self
 
     "Modified: 5.9.1995 / 21:02:05 / claus"
-! !
-
-!UIPainter methodsFor:'user interaction - menu'!
+!
 
 doToggleTest
     workView testMode:(workView testMode not)
@@ -1090,6 +1062,12 @@
     ^ menu
 ! !
 
+!UIPainter::ButtonPanel methodsFor:'queries'!
+
+specClass
+    ^ HorizontalPanelViewSpec
+! !
+
 !UIPainter class methodsFor:'documentation'!
 
 version