--- a/RegressionTests__TestDialogs1.st Wed Jun 29 13:00:17 2016 +0000
+++ b/RegressionTests__TestDialogs1.st Wed Jun 29 15:55:29 2016 +0200
@@ -1,4 +1,4 @@
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- Claus Gittinger (cg@alan)
+ Claus Gittinger (cg@alan)
[see also:]
@@ -29,16 +29,16 @@
examples
"
Starting the application:
- [exBegin]
+ [exBegin]
TestApplication1 open
- [exEnd]
+ [exEnd]
more examples to be added:
- [exBegin]
- ... add code fragment for
+ [exBegin]
+ ... add code fragment for
... executable example here ...
- [exEnd]
+ [exEnd]
"
!
@@ -62,37 +62,37 @@
<resource: #canvas>
- ^
+ ^
#(#FullSpec
- #name: #dialogSpec1
- #window:
+ #name: #dialogSpec1
+ #window:
#(#WindowSpec
- #label: #TestApplication1
- #name: #TestApplication1
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 16 46 316 346)
- )
- #component:
+ #label: #TestApplication1
+ #name: #TestApplication1
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 16 46 316 346)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button1'
- #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
- #translateLabel: true
- #model: #accept
- )
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button2'
- #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
- #translateLabel: true
- #model: #cancel
- )
- )
-
- )
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button1'
+ #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
+ #translateLabel: true
+ #model: #accept
+ )
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button2'
+ #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
+ #translateLabel: true
+ #model: #cancel
+ )
+ )
+
+ )
)
!
@@ -110,42 +110,42 @@
<resource: #canvas>
- ^
+ ^
#(#FullSpec
- #name: #dialogSpec2
- #window:
+ #name: #dialogSpec2
+ #window:
#(#WindowSpec
- #label: #TestApplication1
- #name: #TestApplication1
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 16 46 316 346)
- )
- #component:
+ #label: #TestApplication1
+ #name: #TestApplication1
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 16 46 316 346)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button1'
- #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
- #translateLabel: true
- #model: #accept
- )
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button2'
- #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
- #translateLabel: true
- #model: #cancel
- )
- #(#InputFieldSpec
- #name: 'EntryField1'
- #layout: #(#LayoutFrame 50 0 127 0 255 0 149 0)
- #acceptOnPointerLeave: false
- )
- )
-
- )
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button1'
+ #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
+ #translateLabel: true
+ #model: #accept
+ )
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button2'
+ #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
+ #translateLabel: true
+ #model: #cancel
+ )
+ #(#InputFieldSpec
+ #name: 'EntryField1'
+ #layout: #(#LayoutFrame 50 0 127 0 255 0 149 0)
+ #acceptOnPointerLeave: false
+ )
+ )
+
+ )
)
!
@@ -163,38 +163,38 @@
<resource: #canvas>
- ^
+ ^
#(#FullSpec
- #name: #dialogSpec3
- #window:
+ #name: #dialogSpec3
+ #window:
#(#WindowSpec
- #label: #TestApplication1
- #name: #TestApplication1
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 16 46 316 346)
- )
- #component:
+ #label: #TestApplication1
+ #name: #TestApplication1
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 16 46 316 346)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button1'
- #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
- #translateLabel: true
- #model: #accept
- #isDefault: true
- )
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button2'
- #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
- #translateLabel: true
- #model: #cancel
- )
- )
-
- )
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button1'
+ #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
+ #translateLabel: true
+ #model: #accept
+ #isDefault: true
+ )
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button2'
+ #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
+ #translateLabel: true
+ #model: #cancel
+ )
+ )
+
+ )
)
!
@@ -212,43 +212,43 @@
<resource: #canvas>
- ^
+ ^
#(#FullSpec
- #name: #dialogSpec3
- #window:
+ #name: #dialogSpec3
+ #window:
#(#WindowSpec
- #label: #TestApplication1
- #name: #TestApplication1
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 16 46 316 346)
- )
- #component:
+ #label: #TestApplication1
+ #name: #TestApplication1
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 16 46 316 346)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button1'
- #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
- #translateLabel: true
- #model: #accept
- #isDefault: true
- )
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button2'
- #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
- #translateLabel: true
- #model: #cancel
- )
- #(#InputFieldSpec
- #name: 'EntryField1'
- #layout: #(#LayoutFrame 50 0 127 0 255 0 149 0)
- #acceptOnPointerLeave: false
- )
- )
-
- )
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button1'
+ #layout: #(#LayoutFrame 7 0 271 0 132 0 293 0)
+ #translateLabel: true
+ #model: #accept
+ #isDefault: true
+ )
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button2'
+ #layout: #(#LayoutFrame 167 0 271 0 292 0 293 0)
+ #translateLabel: true
+ #model: #cancel
+ )
+ #(#InputFieldSpec
+ #name: 'EntryField1'
+ #layout: #(#LayoutFrame 50 0 127 0 255 0 149 0)
+ #acceptOnPointerLeave: false
+ )
+ )
+
+ )
)
!
@@ -267,31 +267,31 @@
<resource: #canvas>
- ^
+ ^
#(#FullSpec
- #name: #windowSpec
- #window:
+ #name: #windowSpec
+ #window:
#(#WindowSpec
- #label: 'TestApplication1'
- #name: 'TestApplication1'
- #min: #(#Point 10 10)
- #max: #(#Point 1024 768)
- #bounds: #(#Rectangle 16 46 316 346)
- #menu: #mainMenu
- )
- #component:
+ #label: 'TestApplication1'
+ #name: 'TestApplication1'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1024 768)
+ #bounds: #(#Rectangle 16 46 316 346)
+ #menu: #mainMenu
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Label'
- #name: 'Label1'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #translateLabel: true
- #labelChannel: #infoMessageHolder
- )
- )
-
- )
+ #collection: #(
+ #(#LabelSpec
+ #label: 'Label'
+ #name: 'Label1'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ #translateLabel: true
+ #labelChannel: #infoMessageHolder
+ )
+ )
+
+ )
)
! !
@@ -310,56 +310,56 @@
<resource: #menu>
^ #(#Menu
- #(
- #(#MenuItem
- #label: 'File'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Exit'
- #translateLabel: true
- #value: #closeRequest
- )
- ) nil
- nil
- )
- )
- #(#MenuItem
- #label: 'Tests'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Dialog1'
- #translateLabel: true
- #value: #testDialog1
- )
- #(#MenuItem
- #label: 'Dialog2'
- #translateLabel: true
- #value: #testDialog2
- )
- #(#MenuItem
- #label: 'Dialog3'
- #translateLabel: true
- #value: #testDialog3
- )
- #(#MenuItem
- #label: 'Dialog4'
- #translateLabel: true
- #value: #testDialog4
- )
- ) nil
- nil
- )
- )
+ #(
+ #(#MenuItem
+ #label: 'File'
+ #translateLabel: true
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'Exit'
+ #translateLabel: true
+ #value: #closeRequest
+ )
+ ) nil
+ nil
+ )
+ )
+ #(#MenuItem
+ #label: 'Tests'
+ #translateLabel: true
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'Dialog1'
+ #translateLabel: true
+ #value: #testDialog1
+ )
+ #(#MenuItem
+ #label: 'Dialog2'
+ #translateLabel: true
+ #value: #testDialog2
+ )
+ #(#MenuItem
+ #label: 'Dialog3'
+ #translateLabel: true
+ #value: #testDialog3
+ )
+ #(#MenuItem
+ #label: 'Dialog4'
+ #translateLabel: true
+ #value: #testDialog4
+ )
+ ) nil
+ nil
+ )
+ )
- ) nil
- nil
+ ) nil
+ nil
)
! !
@@ -376,11 +376,11 @@
|holder|
(holder := builder bindingAt:#infoMessageHolder) isNil ifTrue:[
- holder := ValueHolder new.
- builder aspectAt:#infoMessageHolder put:holder.
+ holder := ValueHolder new.
+ builder aspectAt:#infoMessageHolder put:holder.
- holder value:'
-Please check that
+ holder value:'
+Please check that
all dialogs (open via the ''Tests''-menuItem)
close when their OK-Button is pressed.
'.
@@ -410,7 +410,7 @@
postBuildWith:aBuilder
"This is a hook method generated by the Browser.
It will be invoked during the initialization of your app/dialog,
- after all of the visual components have been built,
+ after all of the visual components have been built,
but BEFORE the top window is made visible.
Add any app-specific actions here (reading files, setting up values etc.)
See also #postOpenWith:, which is invoked after opening."