--- 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