Welcome to the Southern African Autolisp Website.

Afra-lISP

You are Visitor Number since 21st June 1999.

is_enabled

width

Enabled/Disabled.

This attribute specifies whether a tile is initially grayed out. (Unavailable.)
Possible values are: true or false. (default: true).

DCL Code Sample

lisp49g : dialog {				//dialog name
          label = "is_enabled";			//give it a label

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

	: radio_button {			//define radio button
	  label = "&Large";			//give it a label
	  key = "rb1";				//give it a name
	  value = "1";				//make it default
	}					//end radio button

	: radio_button {			//define radio button
	  label = "&Small";			//give it a label
	  key = "rb2";				//give it a name
	}					//end radio button

	}					//end boxed radio row

	: boxed_radio_row {			//define boxed radio row

	: radio_button {			//define radio button
	  label = "&Big";			//give it a label
	  key = "rb3";				//give it a name
	  value = "1";				//make it default
	}					//end radio button

	: radio_button {			//define radio button
	  label = "&Very Big";			//give it a label
	  key = "rb4";				//give it a name
	}					//end radio button

	}					//end boxed radio row

	: boxed_radio_row {			//define boxed radio row

	: radio_button {			//define radio button
	  label = "&Small";			//give it a label
	  key = "rb5";				//give it a name
	  is_enabled = false;			//switch off
	}					//end radio button

	: radio_button {			//define radio button
	  label = "&Very Small";		//give it a label
	  key = "rb6";				//give it a name
	  value = "1";				//make it default
	  is_enabled = false;			//switch off
	}					//end radio button

	}					//end boxed radio row

	spacer;					//define spacer

        ok_cancel ;				//predefined OK/Cancel button

        }					//end dialog

AutoLisp Coding:

(defun C:lisp49g ()
;define function	

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

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

      );not

    (exit)
    ;exit if no dialog

  );if

  (action_tile "rb2"
     "(mode_tile \"rb3\" 1)
      (mode_tile \"rb4\" 1)
      (mode_tile \"rb5\" 0)
      (mode_tile \"rb6\"0)"
  )

  (action_tile "rb1"
      "(mode_tile \"rb3\" 0)
      (mode_tile \"rb4\" 0)
      (mode_tile \"rb5\" 1)
      (mode_tile \"rb6\" 1)"
  )


  (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	

 (princ)

);defun

(princ)

All Tutorials and Code are provided "as-is" for purposes of instruction and
utility and may be used by anyone for any purpose entirely at their own risk.
Please respect the intellectual rights of others.
All material provided here is unsupported and without warranty of any kind.
No responsibility will be taken for any direct or indirect consequences
resulting from or associated with the use of these Tutorials or Code.
Copyright © 1999 by Kenny Ramage
All rights reserved.
Information in this document is subject to change without notice.
Site created and maintained by Kenny Ramage.