aboutsummaryrefslogtreecommitdiffstats
path: root/doc/codesnippets/doc/src/snippets/code/doc_src_examples_activeqt_comapp.qdoc
diff options
context:
space:
mode:
Diffstat (limited to 'doc/codesnippets/doc/src/snippets/code/doc_src_examples_activeqt_comapp.qdoc')
-rw-r--r--doc/codesnippets/doc/src/snippets/code/doc_src_examples_activeqt_comapp.qdoc39
1 files changed, 0 insertions, 39 deletions
diff --git a/doc/codesnippets/doc/src/snippets/code/doc_src_examples_activeqt_comapp.qdoc b/doc/codesnippets/doc/src/snippets/code/doc_src_examples_activeqt_comapp.qdoc
deleted file mode 100644
index 0414e5016..000000000
--- a/doc/codesnippets/doc/src/snippets/code/doc_src_examples_activeqt_comapp.qdoc
+++ /dev/null
@@ -1,39 +0,0 @@
-//! [0]
-Private Application As comappLib.Application
-Private MyApp As Boolean
-
-Private Sub UpdateList()
- DocumentList.Clear
- DocumentsCount.Caption = Application.documents.Count
- For Index = 0 To Application.documents.Count - 1
- DocumentList.AddItem (Application.documents.Item(Index).Title)
- Next
-End Sub
-
-Private Sub Form_Load()
- On Error GoTo CreateNew
- Set Application = GetObject(, "comapp.Application")
- MyApp = False
- GoTo Initialized
-CreateNew:
- On Error GoTo InitializeFailed
- Set Application = New Application
- Application.Visible = True
- MyApp = True
-Initialized:
- Caption = Application.id
- UpdateList
-InitializeFailed:
-End Sub
-
-Private Sub Form_Unload(Cancel As Integer)
- If MyApp Then
- Application.quit
- End If
-End Sub
-
-Private Sub NewDocument_Click()
- Application.documents.addDocument
- UpdateList
-End Sub
-//! [0]