~ubuntu-branches/ubuntu/quantal/ruby1.9.1/quantal

« back to all changes in this revision

Viewing changes to ext/tk/sample/demos-en/square

• browse files at revision 20
• compare with another revision
• download diff
• download tarball
• view history from revision 20

Show diffs side-by-side

added

removed

ext/tk/sample/demos-en/square

1

1

#!/usr/bin/env ruby

2

2

 

3

3

# square --

4

 

# This script generates a demo application containing only 

5

 

# a "square" widget.  It's only usable if Tk has been compiled 

6

 

# with tkSquare.c and with the -DSQUARE_DEMO compiler switch. 

7

 

# This demo arranges the following bindings for the widget: 

 

4

# This script generates a demo application containing only

 

5

# a "square" widget.  It's only usable if Tk has been compiled

 

6

# with tkSquare.c and with the -DSQUARE_DEMO compiler switch.

 

7

# This demo arranges the following bindings for the widget:

8

8

#

9

9

# Button-1 press/drag:          moves square to mouse

10

10

# "a":                          toggle size animation on/off

19

19

      tk_call 'square', path

20

20

    rescue

21

21

      STDERR.print "\nSorry. Your Tk interpreter does not contain " +

22

 

        'a "square" demonstration widget.' + 

 

22

        'a "square" demonstration widget.' +

23

23

        "\n ( See documents included the Tcl/Tk source archive. )\n\n"

24

24

      exit

25

25

    end

53

53

end

54

54

 

55

55

# The procedures below provide a simple form of animation where

56

 

# the box changes size in a pulsing pattern: larger, smaller, larger, 

 

56

# the box changes size in a pulsing pattern: larger, smaller, larger,

57

57

# and so on.

58

58

 

59

59

$inc = 0

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1