retirement_button是什么控件呀

urljit

在一个dcl里面看到了retirement_button控件，查找WINDOWS的帮助里面没有，谁知道是什么控件啊？和button有什么不同？

meflying

这应该是一个自定义控件,看看帮助文件中控件的定义和控件的引用部分介绍

urljit

可是vlisp的编辑窗口认识它，显示蓝色呀，多谢

meflying

在base.dcl里定义

alin

它与dialog一样也是一个prototype (原态？模型?)，当然显蓝色，认真看看帮助文件。

Ea

For some dialog boxes, you may want to change the text of one of the exit buttons. For example, if you create a dialog box capable of destroying data, it's safer to call the button Destroy instead of OK. To do this, use the retirement_button prototype as follows:

destroy_button : retirement_button {

               label = "&Destroy";

               key = "destroy";

}

Notice the use of the ampersand (&) in the label attribute. This assigns a mnemonic to the tile. In this case the letter D is underscored in the button label and becomes the mnemonic.

Note When customizing existing button subassemblies, you should obtain the proper DCL code from your base.dcl file rather than from the manual.

Once you have defined a custom exit button, you need to embed it in a subassembly that matches the appearance and functionality of the standard clusters. The following example shows the current definition of ok_cancel_help:

ok_cancel_help : column {

             : row {

                fixed_width = true;

                alignment = centered;

                ok_button;

                : spacer { width = 2; }

                cancel_button;

                : spacer { width = 2; }

                help_button;

              }

}

Create a new subassembly that replaces the ok_button with the new button as follows:

destroy_cancel_help : column {

              : row {

                 fixed_width = true;

                 alignment = centered;

                 destroy_button;

                 : spacer { width = 2; }

                 cancel_button;

                 : spacer { width = 2; }

                 help_button;

              }

}

In the standard subassembly, the OK button is the default, but this attribute wasn't added to destroy_button. Where the dialog box's action can be destructive (or very time-consuming), it is strongly recommended to make the Cancel button the default. In this case, it functions both as the default and as the Abort button:

destroy_cancel_help : column {

              : row {

                 fixed_width = true;

                 alignment = centered;

                 destroy_button;

                 : spacer { width = 2; }

                 : cancel_button { is_default = true; }

                 : spacer { width = 2; }

                 help_button;

              }

}

Because an attribute has been changed, the original Cancel button is used as a prototype, requiring a colon in front of cancel_button.

Warning! When the Cancel button and the Default button are the same (both is_default and is_cancel are true) and you neglect to assign an action that calls done_dialog to any other button, then no other button can exit the dialog box and it will always be canceled.

urljit

alin发表于2004-10-31 18:29:00它与dialog一样也是一个prototype (原态？模型?)，当然显蓝色，认真看看帮助文件。

可以告诉我帮助文件怎么说的么？我的帮助文件里面没有呀。

alin

可以告诉我帮助文件怎么说的么？我的帮助文件里面没有呀

6楼的就是啊。你把帮助文件里的代码窜起来测试一下就知道怎么回事，实际上是利用ok_cancel_help组件自定义了一个destroy_cancel_help组件。 destroy_cancel_help : column {
: row {
fixed_width = true;
alignment = centered;
destroy_button;
: spacer { width = 2; }
: cancel_button { is_default = true; }
: spacer { width = 2; }
help_button;
}
}
destroy_button : retirement_button {
label = "&Destroy";
key = "destroy";
}
TEST: dialog {
destroy_cancel_help;
}

urljit

1. //----- Standard prototype for making consistent "dialog retirement buttons".
2. //           Used below for the predefined retirement buttons, and for user-defined
3. //           dialogs that need retirement buttons with specialized verbs. retirement_button : button {
4.                fixed_width         = true;
5.                width                     = 8;
6.                alignment = centered;
7. }

复制代码