Simple windowed application: Difference between revisions

<d>module winapp ;

}</d>

<delphi>

</delphi>

{{libheader|Theseus}}

=={{header|IDL}}==

pro counter, ev

widget_control, ev.top, get_uvalue=tst

tst[1] = tst[1]+1

widget_control, tst[0], set_value="Number of clicks: "+string(tst[1],format='(i0)')

widget_control, ev.top, set_uvalue=tst

end

id = widget_base(title = 'Window Title',column=1)

ld = widget_label(id, value = 'There have been no clicks yet.')

widget_control, /realize, id, set_uvalue=[ld,0]

dummy = widget_button(id,value=' Click Me ',event_pro='counter')

xmanager, "Simple", Id

end

=={{header|Java}}==

{{libheader|AWT}}

{{libheader|Swing}}

<java>import java.awt.BorderLayout;

import java.awt.event.ActionEvent;

import java.awt.event.ActionListener;

import javax.swing.JButton;

import javax.swing.JFrame;

import javax.swing.JLabel;

public class Clicks extends JFrame implements ActionListener{

private int clicks = 0;

private JLabel label;

private JButton clicker;

private String text;

public Clicks(){

text = "There have been " + ((clicks == 0) ? "no clicks yet" : (clicks + " clicks"));

label = new JLabel(text);

clicker = new JButton("click me");

clicker.addActionListener(this);//listen to the button

setLayout(new BorderLayout());//handles placement of components

add(label,BorderLayout.CENTER);//add the label to the biggest section

add(clicker,BorderLayout.SOUTH);//put the button underneath it

setSize(300,200);//stretch out the window

setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);//stop the program on "X"

setVisible(true);//show it

}

public static void main(String[] args){

new Clicks();//call the constructor where all the magic happens

}

public void actionPerformed(ActionEvent arg0) {

if(arg0.getSource() == clicker){//if they clicked the button

clicks++;

text = "There have been " + clicks + " clicks";

label.setText(text);//change the text

}

}

}</java>

<perl> use Tk;

MainLoop();</perl>

<perl> use Gtk '-init';

Gtk->main;</perl>

<python>from Tkinter import Tk, Label, Button

w.mainloop()</python>

<python>#!/usr/bin/env python

ClickCounter().mainloop()</python>