Bluefrog - Blog for Game Designer

global proc myProcedure()
{
int $state = `checkBox -query -value myCheckBox`;
if($state)
button -edit -enable 1 myButton;
else button -edit -enable 0 myButton;
}
global proc sud()
{
print `intField -query -value intf`;
print "\n";
}
window;
columnLayout -adjustableColumn true;
checkBox - label "Chick" -value 1 -changeCommand "myProcedure" myCheckBox;
radioButon -label "XY";
button -label "FUCKKK" -command "sud" myButton;
intField -minValue 0 -maxValue 20 -value 0 intf;
showWindow;

อย่าร้องๆๆๆๆ 555+