| !++
! COPYRIGHT (c) 1988 BY
! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.
! ALL RIGHTS RESERVED.
!
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
! ONLY IN ACCORDANCE OF THE TERMS OF SUCH LICENSE AND WITH THE
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
! TRANSFERRED.
!
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
! CORPORATION.
!
! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
!--
module helloworld
version = 'v1.0'
names = case_sensitive
procedure
helloworld_button_activate();
object
helloworld_main : dialog_box {
controls {
label helloworld_label;
push_button helloworld_button;
!
! reverse the order of the following two lines to make text insertion cursor reappear
!
simple_text d_login_u_text;
simple_text d_login_p_text;
};
};
!
! This text widget has foreground colour different to background colour
!
object
d_login_u_text : simple_text {
arguments {
x = 5;
y = 100;
cols = 20;
foreground_color = color('black');
background_color = color('white');
max_length = 20;
};
};
!
! This text widget has foreground colour = background colour
!
object
d_login_p_text : simple_text {
arguments {
x = 5;
y = 140;
cols = 20;
foreground_color = color('white');
background_color = color('white');
max_length = 20;
};
};
object
helloworld_button : push_button {
arguments {
x = 15;
y = 40;
label_label = compound_string('Hello', separate=true)&
compound_string('World!');
};
callbacks {
activate = procedure helloworld_button_activate();
};
};
object
helloworld_label : label {
arguments {
label_label =
compound_string('Press button once', separate=true)&
compound_string('to change label', separate=true)&
compound_string('twice to exit.');
};
};
end module;
|