← Back to branch summary

~ubuntu-branches/ubuntu/precise/xcircuit/precise

« back to all changes in this revision

Viewing changes to examples/win32/test_event.vbs

  • Committer: Bazaar Package Importer
  • Author(s): Michael Ablassmeier
  • Date: 2006-05-22 10:08:25 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20060522100825-mk2nt6epw2dvvfaa
Tags: 3.6.24-1
http://bugs.debian.org/266080
http://bugs.debian.org/262321
* QA Upload 
* New Upstream Version (Closes: #266080, #262321)
* Update debian/copyright
* debian/{menu, install}:
  + install pixmaps to /usr/share/pixmaps/xcircuit/
* Conforms with new Standards version 3.7.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/win32/test_event.vbs
1
 
init_dotnet()
2
 
using System.Windows.Forms
3
 
 
4
 
Sub onClose(sender, args)
5
 
        If MsgBox("Closing " & sender.ToString() & " " & args.ToString(), 33, "Information") = 1 Then
6
 
                args.Cancel = False
7
 
        Else
8
 
                args.Cancel = True
9
 
        End If
10
 
End Sub
11
 
 
12
 
Dim top, initSz
13
 
 
14
 
Set top = Form()
15
 
top.Text = "XCircuit .NET event demo"
16
 
top.Closing = GetRef("onClose")
17
 
 
18
 
Set initSz = System.Drawing.Size(500,500)
19
 
top.ClientSize = initSz
20
 
 
21
 
top.Show()