Wiggle Window by Erick Tejkowsi 08-08-03 Printer Version

Build the Interface
Launch REALbasic and open the default Window1. To this window, add a PushButton and a Timer. Set the Mode property of the Timer to 0 (zero). You can arrange the window however you wish. Mine looks like this:

Add the Code
Open the Code Editor for Window1 and add two properties to the window:

• origx as integer
• wiggle as integer

Next, enter this code in the Action event of PushButton1.

wiggle = 0 origx=self.left timer1.period = 30 timer1.mode=2

Finally, add this code to the Action event of Timer1.

if wiggle>5 then me.mode = 0 self.left=origx else if (wiggle mod 2)=0 then self.left=origx-20 else self.left=origx+20 end if wiggle = wiggle+1 end if

By clicking the PushButton, you reset some variables that keep track of the position of the window as well as the number of wiggles. Then, the timer starts firing. As the timer fires, it increases the wiggle counter and alternates the position of the window between its two positions. Once the counter exceeds 5, the timer stops. Simple, eh?

Conclusion
That's all there is to it. As usual, you can download the code for this week's project here. See you next time!