From 2a252a9d4ee3ee8deaeb88f17b45d5eb02997375 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <gambas@users.sourceforge.net>
Date: Mon, 29 Nov 2010 10:50:46 +0000
Subject: [PATCH] [DEVELOPMENT ENVIRONMENT] * BUG: Replace IsBoolean(x) by
 TypeOf(x) = gb.Boolean.

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

diff --git a/app/src/gambas3/.src/FOption.class b/app/src/gambas3/.src/FOption.class
index 96fbac8fa..5f4fe3be2 100644
--- a/app/src/gambas3/.src/FOption.class
+++ b/app/src/gambas3/.src/FOption.class
@@ -29,7 +29,7 @@ Private Sub ReadConfig()
       Case "FontChooser"
         hCtrl.SelectedFont = vVal
       Case "ComboBox"
-        If IsBoolean(vVal) Then 
+        If TypeOf(vVal) = gb.Boolean Then 
           hCtrl.Index = If(vVal, 1, 0)
         Else
           hCtrl.Index = vVal