"{ Encoding: utf8 }"

"
 COPYRIGHT (c) 2018 by eXept Software AG
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

ApplicationModel subclass:#WrongMethodCalledTest
	instanceVariableNames:'vh1 vh2 updateProcess'
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression'
!

View subclass:#GraphicTestView
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	privateIn:WrongMethodCalledTest
!

!WrongMethodCalledTest class methodsFor:'documentation'!

copyright
"
 COPYRIGHT (c) 2018 by eXept Software AG
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
!

documentation
"
    Run this multiple times with JIT turned off.

    In ST/X rel < 5.1.2, Sooner or later, the paint method
    will be invoked (illegally) via the fillRectangle selector
    and vice versa.
"
! !

!WrongMethodCalledTest class methodsFor:'interface specs'!

windowSpec
    "This resource specification was automatically generated
     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,
     the UIPainter may not be able to read the specification."

    "
     UIPainter new openOnClass:NewApplication1 andSelector:#windowSpec
     NewApplication1 new openInterface:#windowSpec
     NewApplication1 open
    "

    <resource: #canvas>

    ^
     #(FullSpec
	name: windowSpec
	window:
       (WindowSpec
	  label: 'NewApplication1'
	  name: 'NewApplication1'
	  min: (Point 10 10)
	  max: (Point 1024 768)
	  bounds: (Rectangle 12 22 312 322)
	  menu: mainMenu
	)
	component:
       (SpecCollection
	  collection: (
	   (NonScrollableArbitraryComponentSpec
	      name: 'NonScrollableArbitraryComponent1'
	      layout: (LayoutFrame 6 0 4 0 285 0 93 0)
	      model: vh2
	      component: GraphicTestView
	    )
	   (InputFieldSpec
	      name: 'EntryField1'
	      layout: (LayoutFrame 14 0 181 0 219 0 203 0)
	      model: vh1
	      type: number
	      acceptOnReturn: true
	      acceptOnTab: true
	      acceptOnLostFocus: true
	      acceptOnPointerLeave: false
	    )
	   (InputFieldSpec
	      name: 'EntryField2'
	      layout: (LayoutFrame 14 0 144 0 219 0 166 0)
	      model: vh1
	      type: number
	      acceptOnReturn: true
	      acceptOnTab: true
	      acceptOnLostFocus: true
	      acceptOnPointerLeave: false
	    )
	   (InputFieldSpec
	      name: 'EntryField3'
	      layout: (LayoutFrame 14 0 107 0 219 0 129 0)
	      model: vh1
	      type: number
	      acceptOnReturn: true
	      acceptOnTab: true
	      acceptOnLostFocus: true
	      acceptOnPointerLeave: false
	    )
	   (InputFieldSpec
	      name: 'EntryField4'
	      layout: (LayoutFrame 14 0 218 0 219 0 240 0)
	      model: vh1
	      type: number
	      acceptOnReturn: true
	      acceptOnTab: true
	      acceptOnLostFocus: true
	      acceptOnPointerLeave: false
	    )
	   (InputFieldSpec
	      name: 'EntryField5'
	      layout: (LayoutFrame 14 0 255 0 219 0 277 0)
	      model: vh1
	      type: number
	      acceptOnReturn: true
	      acceptOnTab: true
	      acceptOnLostFocus: true
	      acceptOnPointerLeave: false
	    )
	   )

	)
      )
! !

!WrongMethodCalledTest class methodsFor:'menu specs'!

mainMenu
    "This resource specification was automatically generated
     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,
     the MenuEditor may not be able to read the specification."

    "
     MenuEditor new openOnClass:RegressionTests::WrongMethodCalledTest andSelector:#mainMenu
     (Menu new fromLiteralArrayEncoding:(RegressionTests::WrongMethodCalledTest mainMenu)) startUp
    "

    <resource: #menu>

    ^
     #(Menu
	(
	 (MenuItem
	    label: 'File'
	    translateLabel: true
	    submenu:
	   (Menu
	      (
	       (MenuItem
		  label: 'Exit'
		  itemValue: closeRequest
		  translateLabel: true
		)
	       )
	      nil
	      nil
	    )
	  )
	 )
	nil
	nil
      )
! !

!WrongMethodCalledTest class methodsFor:'others'!

version_CVS
    ^ '$Header$'
! !

!WrongMethodCalledTest methodsFor:'aspects'!

vh1
    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."
    "*** (which may not be the one you wanted)"
    "*** Please change as required and accept it in the browser."
    "*** (and replace this comment by something more useful ;-)"

    vh1 isNil ifTrue:[
	vh1 := 1 asValue
    ].
    ^ vh1.
!

vh2
    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."
    "*** (which may not be the one you wanted)"
    "*** Please change as required and accept it in the browser."
    "*** (and replace this comment by something more useful ;-)"

    vh2 isNil ifTrue:[
	vh2 := 1 asValue
    ].
    ^ vh2.
! !

!WrongMethodCalledTest methodsFor:'initialization & release'!

closeRequest
    updateProcess terminate.
    super closeRequest.
!

postBuildWith:aBuilder
    |val|

    super postBuildWith:aBuilder.

    updateProcess := [
	[self window realized] whileTrue:[
	    val := self vh1 value.
	    val := (val + 1) \\ 100.
	    self vh1 value:val.

	    val := self vh2 value.
	    val := (val + 1) \\ 100.
	    self vh2 value:val.
	].
    ] forkAt:4.
! !

!WrongMethodCalledTest::GraphicTestView methodsFor:'change & update'!

redraw
    self paint:Color red.
    self fillRectangle:(Rectangle origin:0@0 corner:30@40).
!

update:something with:aParameter from:where
    self redraw
! !

!WrongMethodCalledTest class methodsFor:'documentation'!

version
    ^ '$Header$'
! !