* source/rtl/getlist.prg

! Fix bug when release last getlist Reported by Alexander Kresin
2002-04-26 17:05:56 +00:00
parent 0ba79ab575
commit 88e1284142
1 changed files with 4 additions and 1 deletions
--- a/harbour/source/rtl/getlist.prg
+++ b/harbour/source/rtl/getlist.prg
@@ -61,7 +61,10 @@ PROCEDURE __GetListSetActive( oGetList )
   ENDIF

   s_oGetListActive := oGetList
-   s_oGetListActive:lHasFocus := .T.
+
+   IF s_oGetListActive != NIL
+      s_oGetListActive:lHasFocus := .T.
+   ENDIF

   RETURN