CoolButton Lib

[frederic]

Hello, here is my first attempt to make an userlib



http://fredme.free.fr/cbutton/coolbutton.zip

this lib create a button with a gtk stock image

a little example :

Code: Select all

NewList StockImage.s()

If OpenWindow(0, 0, 0, 230, 90, "Coolbutton", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

          AddElement(StockImage())
          StockImage() = #GTK_STOCK_OK
          AddElement(StockImage())
          StockImage() = #GTK_STOCK_ADD
          AddElement(StockImage())
          StockImage() = #GTK_STOCK_APPLY
          AddElement(StockImage())
          StockImage() = #GTK_STOCK_BOLD
          AddElement(StockImage())
          StockImage() = #GTK_STOCK_CANCEL
          AddElement(StockImage())
          StockImage() = #GTK_STOCK_CDROM
          ResetList(StockImage())
          NextElement(StockImage())
          
          If CreateGadgetList(WindowID(0))

                    CoolButtonGadget(1, 10, 10, 200,50, StockImage(), StockImage())

          EndIf


          Repeat
                    Event = WaitWindowEvent()
     
                    Select Event
     
                    Case #PB_Event_Gadget
                              Select EventGadget()
                                        Case 1
                                                  NextElement(StockImage())
                                                  CoolButton_SetGadgetText(1, StockImage())
                                                  CoolButton_SetGadgetImage(1, StockImage())
                                                  If ListIndex(StockImage()) = CountList(StockImage()) -1 
                                                            ResetList(StockImage())
                                                  EndIf
                              EndSelect
       
                    EndSelect
          Until Event = #PB_Event_CloseWindow
EndIf