OPT PREPROCESS

MODULE 'feelin','libraries/feelin'

PROC main()
   DEF c,w,id,back

->   back := '2:Image:Icônes/ShadeCollection2/Patterns/Patterns/Purple Stones'
   back := FI_Fill->'2:Image:Icônes/ShadeCollection2/Patterns/Patterns/GridLock'

   IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
	  c := ClientObject, FA_Client_Signal,$1000,
		 Child, w := WindowObject,
			FA_Window_Title, 'Feelin\a', FA_Window_ScreenTitle, 'Feelin\a : Some buttons',
			FA_Back, back,

			Child, VGroup,
			   Child, VGroup, GroupFrame, FA_Frame_Title, 'Poids différents...',
				  Child, HGroup,
					 Child, SimpleButton('_Lotan'),
					 Child, SimpleButton('_is'),
					 Child, SimpleButton('my L_ord'),
				  End,

				  Child, BarTitle('Youpi'),

				  Child, HGroup, FA_Group_RelSizing,TRUE,
					 Child, SimpleButton('Lotan'),
					 Child, SimpleButton('is'),
					 Child, SimpleButton('my Lord'),
				  End,

				  Child, HBar,

				  Child, HGroup,
					 Child, SimpleButton('Loooooooooootan'),
					 Child, SimpleButton('is'),
					 Child, SimpleButton('my Lord'),
				  End,
			   End,

			   Child, BarTitle('Inputs'),
			   Child, BarTitle('Very long line name, that is very long indeed'),

			   Child, HGroup, GroupFrame, FA_Frame_Title,'Inputs, very long long so long line',
				  Child, button('I_mmediate',FV_InputMode_Immediate),
				  Child, button('_Toggle',FV_InputMode_Toggle),
				  Child, button('Release',FV_InputMode_Release),
			   End,
			End,
		 End,
	  End

	  IF c
		 F_DoA(c,FM_Notify,[FA_Client_Signal, $1000,    FV_Notify_Self,  2,FM_Client_ReturnID,FV_Client_Quit])
		 F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
		 F_Set(w,FA_Window_Open,TRUE)

		 WHILE F_DoA(c,FM_Client_WaitEvent,NIL) <> FV_Client_Quit DO NOP

		 F_DisposeObj(c)
	  ENDIF

	  CloseLibrary(feelinbase)
   ELSE
	  WriteF('Unable to open feelin.library\n')
   ENDIF
ENDPROC

PROC button(name,input)
   RETURN TextObject,
		 FA_Text,name,
		 ButtonFrame,
		 ButtonBack,
		 FA_FixedHeight,TRUE,
		 FA_Text_PreParse,'`c',
		 FA_InputMode,input, End
ENDPROC