June 2018 Update

This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions

View file

@ -1,3 +1 @@
title=: '"Hamlet -- Act 3, Scene 1"'
text=: '"To be, or not to be: that is the question:"'
wd 'mb ',title,text
wdinfo 'Hamlet';'To be, or not to be: that is the question:'

View file

@ -1,7 +1,6 @@
MINWDW=: noun define
pc minwdw;
pas 162 85;pcenter;
rem form end;
)
minwdw_run=: monad define

View file

@ -1,16 +1,17 @@
use GTK::Simple;
use GTK::Simple::App;
my GTK::Simple::App $app .= new(title => 'Simple GTK Window');
$app.size_request(250, 100);
$app.size-request(250, 100);
$app.set_content(
$app.set-content(
GTK::Simple::VBox.new(
my $button = GTK::Simple::Button.new(label => 'Exit'),
)
);
$app.border_width = 40;
$app.border-width = 40;
$button.clicked.tap: { $app.exit }

View file

@ -0,0 +1 @@
>>view []

View file

@ -0,0 +1,8 @@
Option Explicit
Sub InsertForm()
Dim myForm As Object, strname As String
Set myForm = ThisWorkbook.VBProject.VBComponents.Add(3)
strname = myForm.Name
VBA.UserForms.Add(strname).Show
End Sub