%angel

checkwindow = window {
   title = "Check Button Example";
   content = [choose,check1,check2,check3] };

check1 = checkbutton {
   text = "Hearts" };

check2 = checkbutton {
   text = "Blue Labels" };

check3 = checkbutton {
   text = "Sexy Eden" };

choose = label { text="Selects:" };

%eden

proc check1_trigger : check1_value {
   if (check1_value)
      check1_cursor = "heart";
   else
      check1_cursor = "arrow";
}

proc check2_trigger : check2_value {
   if (check2_value)
      choose_foreground = "blue";
   else
      choose_foreground = "black";
}

proc check3_trigger : check3_value {
   if (check3_value)
      tcl(".labelframe configure -background red
           .prompt configure -background green
	   .text configure -background black -foreground yellow");
   else
      tcl(".labelframe configure -background $bg
           .prompt configure -background $bg
	   .text configure -background LightYellow -foreground DarkBlue");
}
