boxed_radio_row.

Syntax:

	: boxed_radio_row {
	  alignment children_alignment children_fixed_height
	  children_fixed_width fixed_height fixed_width
	  height label width
	}

Note: This Tile Cluster is for display purpose only.
No AutoLips coding has been included for the Active Children Tiles.

---

DCL Coding:

lisp48y : dialog {				//dialog name
          label = "boxed_radio_row";		//give it a label

	: boxed_radio_row {			//define boxed radio row
	  label = "boxed radio row";		//give it a label

	: radio_button {			//define a radio button
	  key = "rad1";				//give it a name
	  label = "Blonde";			//give it a label
	  value = "1";				//switch it on
	}					//end radio button

	: radio_button {			//define a radio button
	  key = "rad2";				//give it a name
	  label = "Brunette";			//give it a label
	}					//end radio button

	: radio_button {			//define a radio button
	  key = "rad3";				//give it a name
	  label = "Red Head";			//give it a label
	}					//end radio button

	}					//end boxed radio row



        ok_cancel ;				//predefined OK/Cancel button

        }					//end dialog

---

AutoLisp Coding:

(defun C:lisp48y ()
;define function	

  (setq dcl_id (load_dialog "lisp48y.dcl"))
  ;load dialog

  (if (not (new_dialog "lisp48y" dcl_id)
  ;test for dialog

      );not

    (exit)
    ;exit if no dialog

  );if

  (action_tile
      "accept"	
      ;if O.K. pressed
					
      "(done_dialog) (setq userclick T)"
      ;close dialog, set flag
	
   );action tile

    (action_tile
    "cancel"
    ;if cancel button pressed

    "(done_dialog) (setq userclick nil)"	
    ;close dialog, lower flag

    );action_tile

  (start_dialog)	
  ;start dialog
				
  (unload_dialog dcl_id)
  ;unload	

  (if userclick
  ;if OK selected

     (alert "You selected OK")
     ;inform the user

     (alert "You selected Cancel")
     ;inform the user

  );if			

 (princ)

);defun

(princ)