Jump to content

Simple windowed application: Difference between revisions

Simple windowed application (view source)

Revision as of 05:58, 6 February 2019

100 bytes removed ,  5 years ago
m
→‎{{header|Elena}}
(→‎{{libheader|wxPython}}: Initializing Frame instead of App according to wxPython docs)
Line 699:
 
=={{header|Elena}}==
ELENA 34.20:
<lang elena>import forms.;
import extensions.;
 
public class MainWindow : SDIDialog
class Window
{
objectLabel form. lblClicks;
objectButton lblClicks.btmClickMe;
object btmClickMe.
//Store how much clicks the user doed
objectint clicksCount.;
constructor new()
[ <= new()
{ form := SDIDialog new.
lblClicks := Label new. Label();
btmClickMe := Button new. Button();
clicksCount := 0.;
self
.appendControl(lblClicks)
form controls;
append:lblClicks.appendControl(btmClickMe);
append:btmClickMe.
formself.Caption := "Rosseta Code";
self.setRegion(100, 100, 160, 80);
set caption:"Rosseta Code";
set x:100 y:100;
set width:160 height:80.
lblClicks.Caption := "Clicks: 0";
lblClicks.setRegion(10, 2, 160, set x:10 y:220);
 
set width:160 height:20;
btmClickMe.Caption := set caption:"Clicks:Click 0me".;
btmClickMe.setRegion(7, 20, 140, 30);
btmClickMe.onClick := (args){ self.onButtonClick(); };
]}▼
set x:7 y:20;
set width:140 height:30;
set caption:"Click me";
set onClick(:args)[ $self $onButtonClick ]
▲ ]
$private onButtonClick()
[{
clicksCount := clicksCount + 1.;
] ▼
lblClicks.Caption set:= caption("Clicks: " + clicksCount literal).toString();
▲ ]
}
dispatch => form.
}</lang>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/23017"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information