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,158 +0,0 @@
|
|||
with Ada.Numerics.Discrete_Random;
|
||||
with Ada.Strings.Fixed;
|
||||
with Gtk.Main;
|
||||
with Gtk.Handlers;
|
||||
with Gtk.Button;
|
||||
with Gtk.Window;
|
||||
with Gtk.GEntry;
|
||||
with Gtk.Editable;
|
||||
with Gtk.Box;
|
||||
with Gtk.Widget;
|
||||
with Glib.Values;
|
||||
with Gtkada.Dialogs;
|
||||
|
||||
procedure Interaction is
|
||||
|
||||
The_Value : Natural := 0;
|
||||
|
||||
package Natural_Random is new Ada.Numerics.Discrete_Random (Natural);
|
||||
RNG : Natural_Random.Generator;
|
||||
|
||||
Main_Window : Gtk.Window.Gtk_Window;
|
||||
Content : Gtk.Box.Gtk_Vbox;
|
||||
Increment_Button : Gtk.Button.Gtk_Button;
|
||||
Random_Button : Gtk.Button.Gtk_Button;
|
||||
Entry_Field : Gtk.GEntry.Gtk_Entry;
|
||||
|
||||
package Entry_Callbacks is new Gtk.Handlers.Callback
|
||||
(Gtk.GEntry.Gtk_Entry_Record);
|
||||
|
||||
package Button_Callbacks is new Gtk.Handlers.Callback
|
||||
(Gtk.Button.Gtk_Button_Record);
|
||||
|
||||
package Window_Callbacks is new Gtk.Handlers.Return_Callback
|
||||
(Gtk.Window.Gtk_Window_Record, Boolean);
|
||||
|
||||
-- update displayed text
|
||||
procedure Update_Entry is
|
||||
begin
|
||||
Gtk.GEntry.Set_Text
|
||||
(The_Entry => Entry_Field,
|
||||
Text =>
|
||||
Ada.Strings.Fixed.Trim
|
||||
(Source => Natural'Image (The_Value),
|
||||
Side => Ada.Strings.Both));
|
||||
end Update_Entry;
|
||||
|
||||
-- read from text entry
|
||||
procedure Update_Value is
|
||||
begin
|
||||
The_Value := Natural'Value (Gtk.GEntry.Get_Text (Entry_Field));
|
||||
exception
|
||||
when Constraint_Error =>
|
||||
The_Value := 0;
|
||||
end Update_Value;
|
||||
|
||||
-- make sure that only numbers are entered
|
||||
procedure On_Insert_Text
|
||||
(Object : access Gtk.GEntry.Gtk_Entry_Record'Class;
|
||||
Params : Glib.Values.GValues)
|
||||
is
|
||||
Length : constant Glib.Gint :=
|
||||
Glib.Values.Get_Int (Glib.Values.Nth (Params, 2));
|
||||
Text : constant String :=
|
||||
Glib.Values.Get_String (Glib.Values.Nth (Params, 1), Length);
|
||||
begin
|
||||
declare
|
||||
Number : Natural;
|
||||
begin
|
||||
Number := Natural'Value (Text);
|
||||
exception
|
||||
when Constraint_Error =>
|
||||
-- refuse values that are not parsable
|
||||
Gtk.Handlers.Emit_Stop_By_Name
|
||||
(Object => Object,
|
||||
Name => Gtk.Editable.Signal_Insert_Text);
|
||||
end;
|
||||
end On_Insert_Text;
|
||||
|
||||
-- Callback for click event
|
||||
procedure On_Increment_Click
|
||||
(Object : access Gtk.Button.Gtk_Button_Record'Class)
|
||||
is
|
||||
begin
|
||||
Update_Value;
|
||||
The_Value := The_Value + 1;
|
||||
Update_Entry;
|
||||
end On_Increment_Click;
|
||||
|
||||
-- Callback for click event
|
||||
procedure On_Random_Click
|
||||
(Object : access Gtk.Button.Gtk_Button_Record'Class)
|
||||
is
|
||||
use type Gtkada.Dialogs.Message_Dialog_Buttons;
|
||||
begin
|
||||
if Gtkada.Dialogs.Message_Dialog
|
||||
(Msg => "Really reset to random value?",
|
||||
Dialog_Type => Gtkada.Dialogs.Confirmation,
|
||||
Buttons => Gtkada.Dialogs.Button_Yes or
|
||||
Gtkada.Dialogs.Button_No,
|
||||
Default_Button => Gtkada.Dialogs.Button_Yes) =
|
||||
Gtkada.Dialogs.Button_Yes
|
||||
then
|
||||
The_Value := Natural_Random.Random (RNG);
|
||||
Update_Entry;
|
||||
end if;
|
||||
end On_Random_Click;
|
||||
|
||||
-- Callback for delete event
|
||||
function On_Main_Window_Delete
|
||||
(Object : access Gtk.Window.Gtk_Window_Record'Class)
|
||||
return Boolean
|
||||
is
|
||||
begin
|
||||
Gtk.Main.Main_Quit;
|
||||
return True;
|
||||
end On_Main_Window_Delete;
|
||||
|
||||
begin
|
||||
-- initialize random number generator
|
||||
Natural_Random.Reset (RNG);
|
||||
|
||||
Gtk.Main.Init;
|
||||
|
||||
Gtk.GEntry.Gtk_New (Widget => Entry_Field);
|
||||
Update_Entry;
|
||||
Entry_Callbacks.Connect
|
||||
(Widget => Entry_Field,
|
||||
Name => Gtk.Editable.Signal_Insert_Text,
|
||||
Cb => On_Insert_Text'Access);
|
||||
|
||||
Gtk.Button.Gtk_New (Button => Increment_Button, Label => "Increment");
|
||||
Gtk.Button.Gtk_New (Button => Random_Button, Label => "Random");
|
||||
|
||||
Button_Callbacks.Connect
|
||||
(Widget => Increment_Button,
|
||||
Name => Gtk.Button.Signal_Clicked,
|
||||
Marsh => Button_Callbacks.To_Marshaller (On_Increment_Click'Access));
|
||||
Button_Callbacks.Connect
|
||||
(Widget => Random_Button,
|
||||
Name => Gtk.Button.Signal_Clicked,
|
||||
Marsh => Button_Callbacks.To_Marshaller (On_Random_Click'Access));
|
||||
|
||||
Gtk.Box.Gtk_New_Vbox (Box => Content);
|
||||
Gtk.Box.Add (Container => Content, Widget => Entry_Field);
|
||||
Gtk.Box.Add (Container => Content, Widget => Increment_Button);
|
||||
Gtk.Box.Add (Container => Content, Widget => Random_Button);
|
||||
|
||||
Gtk.Window.Gtk_New (Window => Main_Window);
|
||||
Gtk.Window.Add (Container => Main_Window, Widget => Content);
|
||||
|
||||
Window_Callbacks.Connect
|
||||
(Widget => Main_Window,
|
||||
Name => Gtk.Widget.Signal_Delete_Event,
|
||||
Cb => On_Main_Window_Delete'Access);
|
||||
Gtk.Window.Show_All (Widget => Main_Window);
|
||||
|
||||
Gtk.Main.Main;
|
||||
end Interaction;
|
||||
|
|
@ -1,42 +0,0 @@
|
|||
include GtkEngine.e -- see OpenEuphoria.org
|
||||
|
||||
constant -- interface
|
||||
win = create(GtkWindow,"title=GUI Component Interaction;size=200x100;border=10;$destroy=Quit"),
|
||||
pan = create(GtkBox,"orientation=vertical;spacing=10"),
|
||||
inp = create(GtkEntry,"name=Input;text=0;$activate=Validate"),
|
||||
box = create(GtkButtonBox),
|
||||
btn1 = create(GtkButton,"gtk-add#_Increment","Increment"),
|
||||
btn2 = create(GtkButton,"gtk-help#_Random","Random")
|
||||
|
||||
add(win,pan)
|
||||
add(pan,inp)
|
||||
add(box,{btn1,btn2})
|
||||
pack(pan,-box)
|
||||
|
||||
show_all(win)
|
||||
main()
|
||||
|
||||
-----------------------------
|
||||
global function Validate() -- warns about invalid entry, does not prevent it;
|
||||
-----------------------------
|
||||
if not t_digit(trim_head(get("Input.text"),"- ")) then
|
||||
return Warn(win,"Validate","This is not a valid number","Try again!")
|
||||
end if
|
||||
return 1
|
||||
end function
|
||||
|
||||
---------------------------
|
||||
global function Increment()
|
||||
---------------------------
|
||||
set("Input.value",get("Input.value")+1)
|
||||
return 1
|
||||
end function
|
||||
|
||||
------------------------
|
||||
global function Random()
|
||||
------------------------
|
||||
if Question(win,"Random","Click OK for a random number",,GTK_BUTTONS_OK_CANCEL) = MB_OK then
|
||||
set("Input.value",rand(1000))
|
||||
end if
|
||||
return 1
|
||||
end function
|
||||
|
|
@ -1,25 +0,0 @@
|
|||
[xml]$XML = @"
|
||||
<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
|
||||
Title="Rosetta Code" WindowStartupLocation = "CenterScreen" Height="100" Width="210" ResizeMode="NoResize">
|
||||
|
||||
<Grid Background="#FFC1C3CB">
|
||||
<Label Name="Label_Value" Content="Value" HorizontalAlignment="Left" Margin="10,10,0,0" VerticalAlignment="Top" Width="70"/>
|
||||
<TextBox Name="TextBox_Value" HorizontalAlignment="Left" Height="23" Margin="90,10,0,0" TextWrapping="Wrap" Text="0" VerticalAlignment="Top" Width="100"/>
|
||||
<Button Name="Button_Random" Content="Random" HorizontalAlignment="Left" Margin="10,41,0,0" VerticalAlignment="Top" Width="70" Height="23"/>
|
||||
<Button Name="Button_Increment" Content="Increment" HorizontalAlignment="Left" Margin="90,41,0,0" VerticalAlignment="Top" Width="100" Height="23"/>
|
||||
</Grid>
|
||||
</Window>
|
||||
"@
|
||||
|
||||
$XMLReader = New-Object System.Xml.XmlNodeReader $XML
|
||||
$XMLForm = [Windows.Markup.XamlReader]::Load($XMLReader)
|
||||
$buttonIncrement = $XMLForm.FindName('Button_Increment')
|
||||
$buttonRandom = $XMLForm.FindName('Button_Random')
|
||||
$textBoxValue = $XMLForm.FindName('TextBox_Value')
|
||||
|
||||
$buttonRandom.add_click({
|
||||
$textBoxValue.Text = Get-Random -Minimum 0 -Maximum 10000
|
||||
})
|
||||
$buttonIncrement.add_click({++[Int]$textBoxValue.Text})
|
||||
|
||||
$XMLForm.ShowDialog() | Out-Null
|
||||
Loading…
Add table
Add a link
Reference in a new issue