Data update
This commit is contained in:
Ingy döt Net
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,67 +0,0 @@
|
|||
with Gdk.Event; use Gdk.Event;
|
||||
with Gtk.Button; use Gtk.Button;
|
||||
with Gtk.Label; use Gtk.Label;
|
||||
with Gtk.Window; use Gtk.Window;
|
||||
with Gtk.Widget; use Gtk.Widget;
|
||||
with Gtk.Table; use Gtk.Table;
|
||||
|
||||
with Gtk.Handlers;
|
||||
with Gtk.Main;
|
||||
|
||||
procedure Simple_Windowed_Application is
|
||||
Window : Gtk_Window;
|
||||
Grid : Gtk_Table;
|
||||
Button : Gtk_Button;
|
||||
Label : Gtk_Label;
|
||||
Count : Natural := 0;
|
||||
|
||||
package Handlers is new Gtk.Handlers.Callback (Gtk_Widget_Record);
|
||||
package Return_Handlers is
|
||||
new Gtk.Handlers.Return_Callback (Gtk_Widget_Record, Boolean);
|
||||
|
||||
function Delete_Event (Widget : access Gtk_Widget_Record'Class)
|
||||
return Boolean is
|
||||
begin
|
||||
return False;
|
||||
end Delete_Event;
|
||||
|
||||
procedure Destroy (Widget : access Gtk_Widget_Record'Class) is
|
||||
begin
|
||||
Gtk.Main.Main_Quit;
|
||||
end Destroy;
|
||||
|
||||
procedure Clicked (Widget : access Gtk_Widget_Record'Class) is
|
||||
begin
|
||||
Count := Count + 1;
|
||||
Set_Text (Label, "The button clicks:" & Natural'Image (Count));
|
||||
end Clicked;
|
||||
|
||||
begin
|
||||
Gtk.Main.Init;
|
||||
Gtk.Window.Gtk_New (Window);
|
||||
Gtk_New (Grid, 1, 2, False);
|
||||
Add (Window, Grid);
|
||||
Gtk_New (Label, "There have been no clicks yet");
|
||||
Attach (Grid, Label, 0, 1, 0, 1);
|
||||
Gtk_New (Button, "Click me");
|
||||
Attach (Grid, Button, 0, 1, 1, 2);
|
||||
Return_Handlers.Connect
|
||||
( Window,
|
||||
"delete_event",
|
||||
Return_Handlers.To_Marshaller (Delete_Event'Access)
|
||||
);
|
||||
Handlers.Connect
|
||||
( Window,
|
||||
"destroy",
|
||||
Handlers.To_Marshaller (Destroy'Access)
|
||||
);
|
||||
Handlers.Connect
|
||||
( Button,
|
||||
"clicked",
|
||||
Handlers.To_Marshaller (Clicked'Access)
|
||||
);
|
||||
Show_All (Grid);
|
||||
Show (Window);
|
||||
|
||||
Gtk.Main.Main;
|
||||
end Simple_Windowed_Application;
|
||||
|
|
@ -1,24 +0,0 @@
|
|||
#include <ButtonConstants.au3>
|
||||
#include <GUIConstantsEx.au3>
|
||||
#include <StaticConstants.au3>
|
||||
#include <WindowsConstants.au3>
|
||||
#Region ### START Koda GUI section ###
|
||||
Local $GUI = GUICreate("Clicks", 280, 50, (@DesktopWidth - 280) / 2, (@DesktopHeight - 50) / 2)
|
||||
Local $lblClicks = GUICtrlCreateLabel("There have been no clicks yet", 0, 0, 278, 20, $SS_CENTER)
|
||||
Local $btnClicks = GUICtrlCreateButton("CLICK ME", 104, 25, 75, 25)
|
||||
GUISetState(@SW_SHOW)
|
||||
#EndRegion ### END Koda GUI section ###
|
||||
|
||||
Local $counter = 0
|
||||
|
||||
While 1
|
||||
$nMsg = GUIGetMsg()
|
||||
Switch $nMsg
|
||||
Case $GUI_EVENT_CLOSE
|
||||
Exit
|
||||
|
||||
Case $btnClicks
|
||||
$counter += 1
|
||||
GUICtrlSetData($lblClicks, "Times clicked: " & $counter)
|
||||
EndSwitch
|
||||
WEnd
|
||||
|
|
@ -1,19 +0,0 @@
|
|||
include EuWinGUI.ew
|
||||
|
||||
Window("EuWinGUI - Simple windowed application",100,100,360,100)
|
||||
constant Button1 = Control(Button,"Click me",250,20,80,25)
|
||||
constant Label1 = Control(Label,"There have been no clicks yet",10,25,200,18)
|
||||
|
||||
integer clicks
|
||||
clicks = 0
|
||||
|
||||
-- Event loop
|
||||
while 1 do
|
||||
WaitEvent()
|
||||
if EventOwner = Button1 and Event = Click then
|
||||
clicks += 1
|
||||
SetText(Label1,sprintf("You clicked me %d times",clicks))
|
||||
end if
|
||||
end while
|
||||
|
||||
CloseApp(0)
|
||||
|
|
@ -1,29 +0,0 @@
|
|||
<html>
|
||||
<head>
|
||||
<title>Simple Window Application</title>
|
||||
</head>
|
||||
|
||||
<body>
|
||||
<br>        
|
||||
|
||||
<script type="text/javascript">
|
||||
var box = document.createElement('input')
|
||||
box.style.position = 'absolute'; // position it
|
||||
box.style.left = '10px';
|
||||
box.style.top = '60px';
|
||||
document.body.appendChild(box).style.border="3px solid white";
|
||||
document.body.appendChild(box).value = "There have been no clicks yet";
|
||||
document.body.appendChild(box).style['width'] = '220px';
|
||||
var clicks = 0;
|
||||
function count_clicks() {
|
||||
document.body.appendChild(box).remove()
|
||||
clicks += 1;
|
||||
document.getElementById("clicks").innerHTML = clicks;
|
||||
};
|
||||
</script>
|
||||
|
||||
<button type="button" onclick="count_clicks()"> Click me</button>
|
||||
<pre><p> Clicks: <a id="clicks">0</a> </p></pre>
|
||||
</body>
|
||||
|
||||
</html>
|
||||
|
|
@ -1,20 +0,0 @@
|
|||
$Label1 = [System.Windows.Forms.Label]@{
|
||||
Text = 'There have been no clicks yet'
|
||||
Size = '200, 20' }
|
||||
$Button1 = [System.Windows.Forms.Button]@{
|
||||
Text = 'Click me'
|
||||
Location = '0, 20' }
|
||||
|
||||
$Button1.Add_Click(
|
||||
{
|
||||
$Script:Clicks++
|
||||
If ( $Clicks -eq 1 ) { $Label1.Text = "There has been 1 click" }
|
||||
Else { $Label1.Text = "There have been $Clicks clicks" }
|
||||
} )
|
||||
|
||||
$Form1 = New-Object System.Windows.Forms.Form
|
||||
$Form1.Controls.AddRange( @( $Label1, $Button1 ) )
|
||||
|
||||
$Clicks = 0
|
||||
|
||||
$Result = $Form1.ShowDialog()
|
||||
|
|
@ -1,23 +0,0 @@
|
|||
Add-Type -AssemblyName System.Windows.Forms
|
||||
|
||||
$Label1 = New-Object System.Windows.Forms.Label
|
||||
$Label1.Text = 'There have been no clicks yet'
|
||||
$Label1.Size = '200, 20'
|
||||
|
||||
$Button1 = New-Object System.Windows.Forms.Button
|
||||
$Button1.Text = 'Click me'
|
||||
$Button1.Location = '0, 20'
|
||||
|
||||
$Button1.Add_Click(
|
||||
{
|
||||
$Script:Clicks++
|
||||
If ( $Clicks -eq 1 ) { $Label1.Text = "There has been 1 click" }
|
||||
Else { $Label1.Text = "There have been $Clicks clicks" }
|
||||
} )
|
||||
|
||||
$Form1 = New-Object System.Windows.Forms.Form
|
||||
$Form1.Controls.AddRange( @( $Label1, $Button1 ) )
|
||||
|
||||
$Clicks = 0
|
||||
|
||||
$Result = $Form1.ShowDialog()
|
||||
|
|
@ -1,38 +0,0 @@
|
|||
[xml]$Xaml = @"
|
||||
<Window
|
||||
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
|
||||
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
|
||||
x:Name = "Window1"
|
||||
Width = "200"
|
||||
Height = "120"
|
||||
ShowInTaskbar = "True">
|
||||
<StackPanel>
|
||||
<Label
|
||||
x:Name = "Label1"
|
||||
Height = "40"
|
||||
Width = "200"
|
||||
Content = "There have been no clicks"/>
|
||||
<Button
|
||||
x:Name = "Button1"
|
||||
Height = "25"
|
||||
Width = "60"
|
||||
Content = "Click me"/>
|
||||
</StackPanel>
|
||||
</Window>
|
||||
"@
|
||||
|
||||
$Window1 = [Windows.Markup.XamlReader]::Load( [System.Xml.XmlNodeReader]$Xaml )
|
||||
|
||||
$Label1 = $Window1.FindName( "Label1" )
|
||||
$Button1 = $Window1.FindName( "Button1" )
|
||||
|
||||
$Button1.Add_Click(
|
||||
{
|
||||
$Script:Clicks++
|
||||
If ( $Clicks -eq 1 ) { $Label1.Content = "There has been 1 click" }
|
||||
Else { $Label1.Content = "There have been $Clicks clicks" }
|
||||
} )
|
||||
|
||||
$Clicks = 0
|
||||
|
||||
$Result = $Window1.ShowDialog()
|
||||
|
|
@ -1,27 +0,0 @@
|
|||
REBOL [
|
||||
Title: "Simple Windowed Application"
|
||||
URL: http://rosettacode.org/wiki/Simple_Windowed_Application
|
||||
]
|
||||
|
||||
clicks: 0
|
||||
|
||||
; Simple GUI's in REBOL can be defined with 'layout', a
|
||||
; special-purpose language (dialect, in REBOL-speak) for specifying
|
||||
; interfaces. In the example below, I describe a gradient background
|
||||
; with a text label and a button. The block in the button section
|
||||
; details what should happen when it's clicked on -- increment the
|
||||
; number of clicks and update the label text.
|
||||
|
||||
; The 'view' function paints the layout on the screen and listens for
|
||||
; events.
|
||||
|
||||
view layout [
|
||||
backdrop effect [gradient 0x1 black coal]
|
||||
|
||||
label: vtext "There have been no clicks yet."
|
||||
|
||||
button maroon "click me" [
|
||||
clicks: clicks + 1
|
||||
set-face label reform ["clicks:" clicks]
|
||||
]
|
||||
]
|
||||
Loading…
Add table
Add a link
Reference in a new issue