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,47 +0,0 @@
|
|||
with Gdk.Event; use Gdk.Event;
|
||||
with Gtk.Label; use Gtk.Label;
|
||||
with Gtk.Window; use Gtk.Window;
|
||||
with Gtk.Widget; use Gtk.Widget;
|
||||
|
||||
with Gtk.Handlers;
|
||||
with Gtk.Main;
|
||||
|
||||
procedure Windowed_Goodbye_World is
|
||||
Window : Gtk_Window;
|
||||
Label : Gtk_Label;
|
||||
|
||||
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;
|
||||
|
||||
begin
|
||||
Gtk.Main.Init;
|
||||
Gtk.Window.Gtk_New (Window);
|
||||
Gtk_New (Label, "Goodbye, World!");
|
||||
Add (Window, Label);
|
||||
Return_Handlers.Connect
|
||||
( Window,
|
||||
"delete_event",
|
||||
Return_Handlers.To_Marshaller (Delete_Event'Access)
|
||||
);
|
||||
Handlers.Connect
|
||||
( Window,
|
||||
"destroy",
|
||||
Handlers.To_Marshaller (Destroy'Access)
|
||||
);
|
||||
Show_All (Label);
|
||||
Show (Window);
|
||||
|
||||
Gtk.Main.Main;
|
||||
end Windowed_Goodbye_World;
|
||||
|
|
@ -1,15 +0,0 @@
|
|||
#include <GUIConstantsEx.au3>
|
||||
|
||||
$hGUI = GUICreate("Hello World") ; Create the main GUI
|
||||
GUICtrlCreateLabel("Goodbye, World!", -1, -1) ; Create a label dispalying "Goodbye, World!"
|
||||
|
||||
GUISetState() ; Make the GUI visible
|
||||
|
||||
While 1 ; Infinite GUI loop
|
||||
$nMsg = GUIGetMsg() ; Get any messages from the GUI
|
||||
Switch $nMsg ; Switch for a certain event
|
||||
Case $GUI_EVENT_CLOSE ; When an user closes the windows
|
||||
Exit ; Exit
|
||||
|
||||
EndSwitch
|
||||
WEnd
|
||||
|
|
@ -1 +0,0 @@
|
|||
MsgBox(0, "Goodbye", "Goodbye, World!")
|
||||
|
|
@ -1 +0,0 @@
|
|||
ToolTip("Goodbye, World!")
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
CLASS-ID ProgramClass.
|
||||
METHOD-ID Main STATIC.
|
||||
PROCEDURE DIVISION.
|
||||
INVOKE TYPE Application::EnableVisualStyles() *> Optional
|
||||
INVOKE TYPE MessageBox::Show("Goodbye, World!")
|
||||
END METHOD.
|
||||
END CLASS.
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
CLASS-ID GoodbyeWorldWPF.Window IS PARTIAL
|
||||
INHERITS TYPE System.Windows.Window.
|
||||
METHOD-ID NEW.
|
||||
PROCEDURE DIVISION.
|
||||
INVOKE self::InitializeComponent()
|
||||
END METHOD.
|
||||
END CLASS.
|
||||
|
|
@ -1,6 +0,0 @@
|
|||
<Window x:Class="COBOL_WPF.Window1"
|
||||
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
|
||||
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
|
||||
Title="Hello world/Graphical">
|
||||
<TextBox>Goodbye, World!</TextBox>
|
||||
</Window>
|
||||
|
|
@ -1,62 +0,0 @@
|
|||
*>
|
||||
*> cobweb-gui-hello, using gtk-label
|
||||
*> Tectonics:
|
||||
*> cobc -w -xj cobweb-gui-hello.cob cobweb-gtk.cob \
|
||||
*> `pkg-config --libs gtk+-3.0`
|
||||
*>
|
||||
identification division.
|
||||
program-id. cobweb-gui-hello.
|
||||
|
||||
environment division.
|
||||
configuration section.
|
||||
repository.
|
||||
function new-window
|
||||
function new-box
|
||||
function new-label
|
||||
function gtk-go
|
||||
function all intrinsic.
|
||||
|
||||
data division.
|
||||
working-storage section.
|
||||
|
||||
01 TOPLEVEL usage binary-long value 0.
|
||||
01 HORIZONTAL usage binary-long value 0.
|
||||
01 VERTICAL usage binary-long value 1.
|
||||
|
||||
01 width-hint usage binary-long value 160.
|
||||
01 height-hint usage binary-long value 16.
|
||||
|
||||
01 spacing usage binary-long value 8.
|
||||
01 homogeneous usage binary-long value 0.
|
||||
|
||||
01 extraneous usage binary-long.
|
||||
|
||||
01 gtk-window-data.
|
||||
05 gtk-window usage pointer.
|
||||
01 gtk-container-data.
|
||||
05 gtk-container usage pointer.
|
||||
|
||||
01 gtk-box-data.
|
||||
05 gtk-box usage pointer.
|
||||
01 gtk-label-data.
|
||||
05 gtk-label usage pointer.
|
||||
|
||||
procedure division.
|
||||
cobweb-hello-main.
|
||||
|
||||
*> Main window and top level container
|
||||
move new-window("Hello", TOPLEVEL, width-hint, height-hint)
|
||||
to gtk-window-data
|
||||
move new-box(gtk-window, VERTICAL, spacing, homogeneous)
|
||||
to gtk-container-data
|
||||
|
||||
*> Box, across, with simple label
|
||||
move new-box(gtk-container, HORIZONTAL, spacing, homogeneous)
|
||||
to gtk-box-data
|
||||
move new-label(gtk-box, "Goodbye, World!") to gtk-label-data
|
||||
|
||||
*> GTK+ event loop now takes over
|
||||
move gtk-go(gtk-window) to extraneous
|
||||
|
||||
goback.
|
||||
end program cobweb-gui-hello.
|
||||
|
|
@ -1,19 +0,0 @@
|
|||
program-id. ghello.
|
||||
data division.
|
||||
working-storage section.
|
||||
01 var pic x(1).
|
||||
01 lynz pic 9(3).
|
||||
01 colz pic 9(3).
|
||||
01 msg pic x(15) value "Goodbye, world!".
|
||||
procedure division.
|
||||
accept lynz from lines end-accept
|
||||
divide lynz by 2 giving lynz.
|
||||
accept colz from columns end-accept
|
||||
divide colz by 2 giving colz.
|
||||
subtract 7 from colz giving colz.
|
||||
display msg
|
||||
at line number lynz
|
||||
column number colz
|
||||
end-display
|
||||
accept var end-accept
|
||||
stop run.
|
||||
|
|
@ -24,6 +24,6 @@ public class MainWindow : SDIDialog
|
|||
|
||||
closeButton.Caption := "Close";
|
||||
closeButton.setRegion(20, 40, 150, 30);
|
||||
closeButton.onClick := (args){ forward program.stop() };
|
||||
closeButton.onClick := (args){ forward Program.stop() };
|
||||
}
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,27 +1,6 @@
|
|||
import xforms;
|
||||
|
||||
const layout = "
|
||||
<Form X=""250"" Y=""200"" Height=""110"" Width=""200"" Caption=""ELENA"">
|
||||
<Label X=""40"" Y=""10"" Width=""150"" Height=""30"" Caption=""Goodbye, World!"">
|
||||
<Form :Name="MainWindow" :Height="110" :Width="200" Caption="ELENA 6.0">
|
||||
<Label :Name="labCaption" :X="40" :Y="10" :Width="150" :Height="30" Caption="ELENA">
|
||||
</Label>
|
||||
<Button X=""20"" Y=""40"" Width=""150"" Height=""30"" Caption=""Close"" onClick=""onExit"">
|
||||
<Button :Name="btnExit" :X="20" :Y="40" :Width="150" :Height="30" Caption="Close" :onClick="&onExit">
|
||||
</Button>
|
||||
</Form>";
|
||||
|
||||
public class MainWindow
|
||||
{
|
||||
Form;
|
||||
|
||||
constructor new()
|
||||
{
|
||||
Form := xforms.execute(layout, self);
|
||||
}
|
||||
|
||||
onExit(arg)
|
||||
{
|
||||
forward program.stop()
|
||||
}
|
||||
|
||||
dispatch() => Form;
|
||||
|
||||
}
|
||||
</Form>
|
||||
|
|
|
|||
|
|
@ -1 +0,0 @@
|
|||
(message-box "Goodbye, World!")
|
||||
|
|
@ -1,4 +0,0 @@
|
|||
include msgbox.e
|
||||
|
||||
integer response
|
||||
response = message_box("Goodbye, World!","Bye",MB_OK)
|
||||
|
|
@ -1 +0,0 @@
|
|||
New-Label "Goodbye, World!" -FontSize 24 -Show
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
$form = New-Object System.Windows.Forms.Form
|
||||
$label = New-Object System.Windows.Forms.Label
|
||||
|
||||
$label.Text = "Goodbye, World!"
|
||||
$form.AutoSize = $true
|
||||
$form.AutoSizeMode = [System.Windows.Forms.AutoSizeMode]::GrowAndShrink
|
||||
$form.Controls.Add($label)
|
||||
|
||||
$Form.ShowDialog() | Out-Null
|
||||
|
|
@ -1 +0,0 @@
|
|||
[System.Windows.Forms.MessageBox]::Show("Goodbye, World!")
|
||||
|
|
@ -1 +0,0 @@
|
|||
alert "Goodbye, World!"
|
||||
|
|
@ -1 +0,0 @@
|
|||
MsgBox("Goodbye, World!")
|
||||
Loading…
Add table
Add a link
Reference in a new issue