PureBasic Forums - English

Posted: **Sat Jan 17, 2015 2:27 am**

Hello & Thanks ,
* Having probs compiling zRainbow.pb/zRainbow.pbf
Error msg: Line 11: (in zRainbow.pbf) : A procedure must begin with a "(".
Line 11 = "Declare xRainbow.pb(Event, Window)"
I suspect that i have something out of place .

Code: Select all

; ProgramName: xRainbow.pb
IncludeFile "xRainbow.pbf"
UsePNGImageDecoder() 
OpenWindow_0()
Procedure button_clicked(eventType)
  MessageRequester("Starting:", "And away we go !")
  If LoadImage(0, "RainbowBar.png")    
      ImageGadget(10,  120, 150, 50, 83, ImageID(0)) ; imagegadget standard
;    Result = ImageGadget(#Gadget, x, y, Width, Height, ImageID [, Flags])  
   EndIf
EndProcedure 
    Repeat  
    Until WaitWindowEvent() = #PB_Event_CloseWindow
    End

Code: Select all

Global Window_0

Global Image_0, Button_0, ListView_0, ListView_1, ListView_2, ListView_3, Text_0, Text_1, Text_2, Text_3

Declare xRainbow.pb(Event, Window)

Procedure OpenWindow_0(x = 0, y = 0, width = 800, height = 490)
  Window_0 = OpenWindow(#PB_Any, x, y, width, height, "Rainbow Sequence", #PB_Window_SystemMenu)
  Image_0 = ImageGadget(#PB_Any, 20, 20, 150, 50, 0)
  Button_0 = ButtonGadget(#PB_Any, 20, 100, 150, 24, "START")
  ListView_0 = ListViewGadget(#PB_Any, 260, 50, 100, 420)
  ListView_1 = ListViewGadget(#PB_Any, 390, 50, 100, 420)
  ListView_2 = ListViewGadget(#PB_Any, 520, 50, 100, 420)
  ListView_3 = ListViewGadget(#PB_Any, 650, 50, 120, 420)
  Text_0 = TextGadget(#PB_Any, 270, 10, 80, 30, "  Pixel POS")
  Text_1 = TextGadget(#PB_Any, 400, 10, 80, 30, " Pixel HEX")
  Text_2 = TextGadget(#PB_Any, 530, 10, 90, 30, " Html HEX")
  Text_3 = TextGadget(#PB_Any, 660, 10, 100, 30, "Html Name")
EndProcedure

Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_CloseWindow
      ProcedureReturn #False

    Case #PB_Event_Menu
      Select EventMenu()
      EndSelect

    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
    Default
      xRainbow.pb(event,Window_0)
  EndSelect
  ProcedureReturn #True
EndProcedure

Is the UsePNGImageDecoder() in the right place ?

Posted: **Sat Jan 17, 2015 2:45 am**

Declare xRainBow(Event, Window)

Posted: **Sat Jan 17, 2015 4:46 am**

Thanks,
I found two probs:

1)
Initially I had:

in xRainbow.pb
5 Procedure button_clicked(eventType)

in xRainbow.pbf
11 Declare xRainbow.pb(Event, Window)
40 xRainbow.pb(event,Window_0)

Changed it to:

in xRainbow.pb
5 Procedure button_clicked(eventType)

in xRainbow.pbf
11 Declare button_clicked(Event, Window)
40 button_clicked(event,Window_0)

I didn't really know how .pbf connects to .pb . Now I do .

2)
I needed to have xRainbow.pbf active when I do the compile ;
not xRainbow.pb active .

..vm

PureBasic Forums - English

Error: procedure must begin with a "(".

Error: procedure must begin with a "(".

Re: Error: procedure must begin with a "(".

Re: Error: procedure must begin with a "(".