[DEVELOPMENT ENVIRONMENT]

* BUG: Replace IsBoolean(x) by TypeOf(x) = gb.Boolean.


git-svn-id: svn://localhost/gambas/trunk@3334 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2010-11-29 10:50:46 +00:00
parent 76208aea23
commit 2a252a9d4e

View file

@ -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