From b327269b6f67d421ad218645e62f4320139bcfc6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <gambas@users.sourceforge.net>
Date: Sun, 18 Dec 2011 03:33:46 +0000
Subject: [PATCH] [DEVELOPMENT ENVIRONMENT] * BUG: Do not crash if the examples
 directory does not exist.

git-svn-id: svn://localhost/gambas/trunk@4285 867c0c6c-44f3-4631-809d-bfa615b0a4ec
---
 app/src/gambas3/.src/Project.module | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app/src/gambas3/.src/Project.module b/app/src/gambas3/.src/Project.module
index e949ed194..06a020950 100644
--- a/app/src/gambas3/.src/Project.module
+++ b/app/src/gambas3/.src/Project.module
@@ -4298,7 +4298,7 @@ Public Function GetExamples(Optional sParent As String) As String[]
       'ENDIF
     Next
 
-  Else
+  Else If IsDir(EXAMPLES_DIR) Then
 
     For Each sFile In Dir(EXAMPLES_DIR, "*", gb.Directory)
       If Left(sFile) = "." Then Continue