From ca2975464a03d31bbc62d539d11b5338cf84251c Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Thu, 26 Jan 2012 10:44:08 +0000
Subject: [PATCH] Adds registration of the default TWSLazDeviceAPIs class when
 the WS lacks an implementation

git-svn-id: trunk@34947 -
---
 lcl/widgetset/wslazdeviceapis.pas | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lcl/widgetset/wslazdeviceapis.pas b/lcl/widgetset/wslazdeviceapis.pas
index c1c909cb2f..f0e16005bb 100644
--- a/lcl/widgetset/wslazdeviceapis.pas
+++ b/lcl/widgetset/wslazdeviceapis.pas
@@ -74,9 +74,8 @@ const
   Done: Boolean = False;
 begin
   if Done then exit;
-  WSRegisterLazDeviceAPIs;
-//  if not WSRegisterArrow then
-//    RegisterWSComponent(TArrow, TWSArrow);
+  if not WSRegisterLazDeviceAPIs() then
+    RegisterWSLazDeviceAPIs(TWSLazDeviceAPIs);
   Done := True;
 end;