File: checkbox.e

package info (click to toggle)
entity 1.0.1-8
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 5,604 kB
  • ctags: 5,394
  • sloc: ansic: 64,242; sh: 7,377; makefile: 776; perl: 319
file content (34 lines) | stat: -rw-r--r-- 685 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
26
27
28
29
30
31
32
33
34
 
#!/usr/bin/env entity

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

   <valign>
     <checkbox name = "mycheckbox" value="TRUE" ontoggle="checkboxtest">
	<label text="item 1"/>
     </checkbox>
   </valign>               

   <perl>
     sub checkboxtest{
       my ($node) = @_;
       print "$node -> selected() = ", $node->attrib ("selected"), "\n";

       $isclicked = $node->attrib_is_true("selected");
       if($isclicked)
       {
         print "checkbox is set.\n";
       }
       else
       {
         print "checkbox is NOT set.\n";
       }
     }
   </perl>

 </window>
</object>