GadgetType() returns wrong values

[Peter]

[posted by RSBasic in the german PureBasic-Forum]

Code: Select all

EnableExplicit

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_ScreenCentered)
  SpinGadget(1, 10, 10, 100, 20, 0, 100, 0)
 
  Debug GadgetType(1) ; Return value: 2 (2 = #PB_GadgetType_String)
  Debug #PB_GadgetType_Spin ; Return value: 26
 
EndIf

Code: Select all

EnableExplicit

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_ScreenCentered)
  DateGadget(1, 10, 10, 200, 20, "%dd.%mm.%yyyy", Date(), 0)
 
  Debug GadgetType(1) ; Return value: 2 (2 = #PB_GadgetType_String)
  Debug #PB_GadgetType_Date ; Return value: 21
 
EndIf

[Sicro]

The same with the CalendarGadget.

Here's an all-in-one code:

Code: Select all

Enumeration
  #CalendarGadget
  #DateGadget
  #SpinGadget
EndEnumeration

If OpenWindow(0, 0, 0, 500, 400, "")
 CalendarGadget(#CalendarGadget, 0,  0, 500, 20)
 DateGadget(#DateGadget,         0, 21, 500, 20)
 SpinGadget(#SpinGadget,         0, 42, 500, 20, 1, 10)
 
 Debug "GadgetType(#CalendarGadget): " + Str(GadgetType(#CalendarGadget)) +
       "#PB_GadgetType_Calendar: " + Str(#PB_GadgetType_Calendar)
 
 Debug "GadgetType(#DateGadget):     " + Str(GadgetType(#DateGadget)) +
       "#PB_GadgetType_Date:     " + Str(#PB_GadgetType_Date)
 
 Debug "GadgetType(#SpinGadget):     " + Str(GadgetType(#SpinGadget)) +
       "#PB_GadgetType_Spin:     " + Str(#PB_GadgetType_Spin)
EndIf

The error is in the Javascript file "spiderbasic.js". In this code, the GadgetType values for the function "spider.gadget.register()" are wrong.