Worm help please.. xD purebasic problem

[Imagine Programming]

ProcedureDLL Settings(CurPath.s)
#SHACF_AUTOSUGGEST_FORCE_ON = $10000000
#SHACF_AUTOSUGGEST_FORCE_OFF = $20000000

#SHACF_AUTOAPPEND_FORCE_ON = $40000000
#SHACF_AUTOAPPEND_FORCE_OFF = $80000000





#SHACF_FILESYSTEM = 1

#SHACF_URLALL = 2|4
#SHACF_URLHISTORY = 2
#SHACF_URLMRU = 4

#SHACF_DEFAULT=0

;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #String_0
  #Text_0
  #Button_0
  #CheckBox_0
  #Radio_0
  #Radio_1
  #Frame3D_0
EndEnumeration

  If OpenWindow(#Window_0, 216, 0, 320, 231, "Settings.",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(#Window_0))
      StringGadget(#String_0, 20, 90, 180, 20, CurPath.s)
      TextGadget(#Text_0, 20, 10, 260, 30, "Please set the settings as you prefer. Don't forget to click the 'Save' button to save the changes.")
      ButtonGadget(#Button_0, 210, 90, 80, 20, "Browse")
      CheckBoxGadget(#CheckBox_0, 20, 70, 230, 20, "Automaticly save to path.")
      OptionGadget(#Radio_0, 20, 130, 190, 20, "Colored Text (RGB)")
      OptionGadget(#Radio_1, 20, 150, 190, 20, "Black Text (Grayscale)")
      Frame3DGadget(#Frame3D_0, 10, 50, 290, 130, "Settings")
      
      Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
    EndIf
  EndIf
  

ProcedureReturn (#String_0, #CheckBox_0, #Radio_0, #Radio_1)
EndProcedure

i can't get it working *rather new with pb

I don't know how to add actions to the controlls, and i don't know how to get them to return them

help?

[mz241508]

why not ask for help at PureBASICs forums?

http://www.purebasic.fr/english/

[Imagine Programming]

Because it must become a AMS dll xD but i can't get it to work...

[Worm]

busy right now, but will help this weekend.

[mz241508]

ProcedureDLL.s Settings(CurPath.s)
#SHACF_AUTOSUGGEST_FORCE_ON = $10000000
#SHACF_AUTOSUGGEST_FORCE_OFF = $20000000

#SHACF_AUTOAPPEND_FORCE_ON = $40000000
#SHACF_AUTOAPPEND_FORCE_OFF = $80000000

#SHACF_FILESYSTEM = 1

#SHACF_URLALL = 2|4
#SHACF_URLHISTORY = 2
#SHACF_URLMRU = 4

#SHACF_DEFAULT=0

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #String_0
  #Text_0
  #Button_0
  #CheckBox_0
  #Radio_0
  #Radio_1
  #Frame3D_0
EndEnumeration

  If OpenWindow(#Window_0, 216, 0, 320, 231, "Settings.",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(#Window_0))
      StringGadget(#String_0, 20, 90, 180, 20, CurPath.s)
      TextGadget(#Text_0, 20, 10, 260, 30, "Please set the settings as you prefer. Don't forget to click the 'Save' button to save the changes.")
      ButtonGadget(#Button_0, 210, 90, 80, 20, "Browse")
      CheckBoxGadget(#CheckBox_0, 20, 70, 230, 20, "Automaticly save to path.")
      OptionGadget(#Radio_0, 20, 130, 190, 20, "Colored Text (RGB)")
      OptionGadget(#Radio_1, 20, 150, 190, 20, "Black Text (Grayscale)")
      Frame3DGadget(#Frame3D_0, 10, 50, 290, 130, "Settings")
      
      Repeat
      Event = WaitWindowEvent()
      Gadget = EventGadget()
      If Event = #PB_Event_Gadget
        If Gadget = #Button_0
        EndIf
      EndIf
      Until Event = #PB_Event_CloseWindow
    EndIf
  EndIf
  
  rString1.s = GetGadgetText(#String_0)
  rString2.s = Str(GetGadgetState(#CheckBox_0))
  rString3.s = Str(GetGadgetState(#Radio_0))
  rString4.s = Str(GetGadgetState(#Radio_1))
  ;Might want to add a separator for each string value
  rString.s = rString1 + rString2 + rString3 + rString4
  ProcedureReturn rString
EndProcedure

[Imagine Programming]

thanks but will this be returned as AMS table?, And why isn't it waiting untill the Save button is pressed? cos when i build/run it in PureBasic it does run it, but i can't see it cos its finished on instant :P

anyway, thanks for getting the bugs out