21e325b27a
* NEW: Put the old examples in '/trunk/app/examples'. git-svn-id: svn://localhost/gambas/trunk@6724 867c0c6c-44f3-4631-809d-bfa615b0a4ec
17 lines
306 B
Text
17 lines
306 B
Text
' Gambas module file
|
|
|
|
Public Title As String
|
|
|
|
Public Sub Main()
|
|
|
|
Dim hClass As Class
|
|
|
|
If Application.Args.Count >= 2 Then
|
|
Title = Application.Args[2]
|
|
hClass = Class.Load(Application.Args[1])
|
|
Object.Call(hClass, "Main")
|
|
Else
|
|
Print "Usage: NeHeTutorial Example<N> <Title>"
|
|
Endif
|
|
|
|
End
|