// Create the window.

//

window -title "Test Window" ExampleWindow7;

 columnLayout ColumnLayout;

 frameLayout -labelVisible false -marginWidth 5 -marginHeight 5;

 columnLayout;

 text -label "Overall Intensity";

 rowLayout -numberOfColumns 3;

 string $radioButton1, $radioButton2, $radioButton3;

 radioCollection;

 $radioButton1 = `radioButton -label "Low"`;

 $radioButton2 = `radioButton -label "Medium"`;

 $radioButton3 = `radioButton -label "High"`;

 setParent ..;

 text -label "Light Switches";

 rowColumnLayout -numberOfColumns 2 

 -columnWidth 1 130 -columnWidth 2 130;

 string $checkBox1, $checkBox2, $checkBox3, $checkBox4;

 $checkBox1 = `checkBox -label "Front Spot"`;

 $checkBox2 = `checkBox -label "Center Spot"`;

 $checkBox3 = `checkBox -label "Near Flood"`;

 $checkBox4 = `checkBox -label "Sunlight"`;

 setParent ExampleWindow7|ColumnLayout;

 textField -text "Ready" -editable false -width 278 StatusLine;

 // Set initial state.

 //

 radioButton -edit -select $radioButton1;

 checkBox -edit -value on $checkBox1;

 checkBox -edit -value off $checkBox2;

 checkBox -edit -value off $checkBox3;

 checkBox -edit -value on $checkBox4;

 // Add functionality.

 //

 radioButton -edit -onCommand "showStatus \"Low Intensity\"" $radioButton1;

 radioButton -edit -onCommand "showStatus \"Med Intensity\"" $radioButton2;

 radioButton -edit -onCommand "showStatus \"High Intensity\"" $radioButton3;

 checkBox -edit

 -changeCommand "showStatus \"Front Spot: #1\""

 $checkBox1;

 checkBox -edit

 -changeCommand "showStatus \"Center Spot: #1\""

 $checkBox2;

 checkBox -edit

 -onCommand "showStatus \"Near Flood On\"" 

 -offCommand "showStatus \"Near Flood Off\"" 

 $checkBox3;

 checkBox -edit 

 -onCommand "showStatus \"Sunlight On\""

 -offCommand "showStatus \"Sunlight Off\"" 

 $checkBox4;

showWindow ExampleWindow7;

// Procedure to update the status line.

//

global proc showStatus (string $newStatus) {

 textField -edit -text $newStatus ExampleWindow7|ColumnLayout|StatusLine;

}