File: spinner.e

package info (click to toggle)
entity 0.7.2-6
  • links: PTS
  • area: main
  • in suites: woody
  • size: 5,352 kB
  • ctags: 5,272
  • sloc: ansic: 61,707; sh: 7,921; makefile: 732; perl: 399
file content (25 lines) | stat: -rwxr-xr-x 490 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#!/usr/bin/env entity

<object>
 <window border = "15" 
   position = "center"
   ondelete = "entity:exit"
   title = "Some Cool App"
   name="windowone">

   <valign>
     <spinner name = "myspinner" value="3" min="1" max="10" 
     	places="2" wrap="true" onenter="spintest"/>
   </valign>               

   <perl>
     sub spintest{
       my ( $node ) = @_;
       print "$node\n";
       $text = $node->attrib("value");
       print "$text\n";
     }
   </perl>

 </window>
</object>