Linux Purecolor

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
cnormal
Messages : 9
Inscription : mar. 16/sept./2008 21:30

Linux Purecolor

Message par cnormal »

Purecolor Linux est parfaitement configuré mais comment le faire fonctionner avec PB 4.20 dans Ubuntu 8.04 car ça ne marche pas. Pourtant le format des variables est bien respecté !
Avatar de l’utilisateur
MetalOS
Messages : 1510
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :

Message par MetalOS »

Perso je n'est jamais utiliser cette lib sous linux mais si elle est bien installer, il ne devrait y avoir aucun problème pour l'utiliser. Quelle est ton problème exactement,donne un bout de code pour que les utilisateurs du forum puissent d'aider.
cnormal
Messages : 9
Inscription : mar. 16/sept./2008 21:30

Message par cnormal »

MetalOS a écrit :Perso je n'est jamais utiliser cette lib sous linux mais si elle est bien installer, il ne devrait y avoir aucun problème pour l'utiliser. Quelle est ton problème exactement,donne un bout de code pour que les utilisateurs du forum puissent d'aider.
Merci pour essayer de me dépanner. Tout est bien installé, voici la référence de la lib.

PureColor userlib for Linux
***************************
Author: walker
Package created: André Beer (www.PureArea.net)
Inlcuded files:
---------------
userlib: pure_color
resident file: pure_color.res

Et ci-dessous le code pour test.

{- Enumerations / DataSections
;{ Windows
Enumeration
#Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
#Button_0
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_Window_0()
If OpenWindow(#Window_0, 450, 200, 400, 400, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
If CreateGadgetList(WindowID(#Window_0))
ButtonGadget(#Button_0, 40, 40, 230, 130, "Gadget_0", #PB_Button_Toggle)
; PureColor
PureCOLOR_SetButtonColor(#Button_0, $FFFFFF, $FF, $0, $8000)
EndIf
EndIf
EndProcedure

OpenWindow_Window_0()

;{- Event loop
Repeat
Event = WaitWindowEvent()
Select Event
;
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
If EventGadget = #Button_0
EndIf
;
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Window_0
CloseWindow(#Window_0)
Break
EndIf
EndSelect
ForEver
;
;}
Répondre