module gtk_widgets_ext
import gtk_core

#Displays a calendar and allows the user to select a date
#@https://developer.gnome.org/gtk3/3.2/GtkCalendar.html
extern GtkCalendar `{GtkCalendar *`}
	super GtkWidget
	
	new is extern `{
		 return (GtkCalendar *)gtk_calendar_new();
	`}

	fun month=( month : Int, year : Int ) is extern `{
		gtk_calendar_select_month( recv, month, year );
	`}

	fun day=( day : Int ) is extern `{
		gtk_calendar_select_day( recv, day );
	`}

	fun mark_day( day : Int ) is extern `{
		gtk_calendar_mark_day( recv, day );
	`}

	fun unmark_day( day : Int ) is extern `{
		gtk_calendar_unmark_day( recv, day );		
	`}

	fun is_marked( day : Int ): Bool is extern `{
		return gtk_calendar_get_day_is_marked( recv, day );	
	`}

   fun clear_marks is extern `{
		gtk_calendar_clear_marks( recv );	
	`}

	fun display_options : GtkCalendarDisplayOptions is extern `{
		return gtk_calendar_get_display_options( recv );
	`}


	fun display_options=( options : GtkCalendarDisplayOptions) is extern `{
		gtk_calendar_set_display_options( recv, options );
	`}

	#date en nit...
	fun date: String is abstract  
end

#enum GtkCalendarDisplayOptions
#@https://developer.gnome.org/gtk3/3.2/GtkCalendar.html#GtkCalendarDisplayOptions
extern GtkCalendarDisplayOptions `{GtkCalendarDisplayOptions`}
	new show_heading `{ return GTK_CALENDAR_SHOW_HEADING; `} 
	new show_day_names `{ return GTK_CALENDAR_SHOW_DAY_NAMES; `}
	new no_month_change `{ return GTK_CALENDAR_NO_MONTH_CHANGE; `}
	new show_week_numbers `{ return GTK_CALENDAR_SHOW_WEEK_NUMBERS; `}
	new show_details `{ return GTK_CALENDAR_SHOW_DETAILS; `}
end

#A separator widget
#@https://developer.gnome.org/gtk3/stable/GtkSeparator.html
extern GtkSeparator `{GtkSeparator *`}
	super GtkWidget

	new ( orientation : GtkOrientation ) is extern `{
		 return (GtkSeparator *)gtk_separator_new( orientation );
	`}

end

#A widget which indicates progress visually
#@https://developer.gnome.org/gtk3/3.2/GtkProgressBar.html
extern GtkProgressBar `{GtkProgressBar *`}
	super GtkWidget

	new is extern `{
		 return (GtkProgressBar *)gtk_progress_bar_new();
	`}

	fun pulse is extern `{
		gtk_progress_bar_pulse( recv );	
	`}

	fun pulse_step : Float is extern `{
		return gtk_progress_bar_get_pulse_step( recv );	
	`}

	fun pulse_step=( step : Float ) is extern `{
		gtk_progress_bar_set_pulse_step( recv, step);	
	`}

	fun fraction : Float is extern `{
		return gtk_progress_bar_get_fraction( recv );	
	`}

	fun fraction=( fraction : Float) is extern `{
		gtk_progress_bar_set_fraction( recv, fraction );	
	`}

	fun inverted : Bool is extern `{
		return gtk_progress_bar_get_inverted( recv );	
	`}

	fun inverted=( is_inverted : Bool) is extern `{
		gtk_progress_bar_set_inverted( recv, is_inverted );	
	`}

	fun show_text : Bool is extern `{
		return gtk_progress_bar_get_show_text( recv );	
	`}

	fun show_text=( show : Bool) is extern `{
		gtk_progress_bar_set_show_text( recv, show );	
	`}

	fun text : String is extern import String::to_cstring`{
		return new_String_from_cstring( (char *)gtk_progress_bar_get_text( recv ) );	
	`}

	fun text=( value : String) is extern import String::to_cstring`{
		gtk_progress_bar_set_text( recv, String_to_cstring( value ) );	
	`}

	fun ellipsize is abstract

end

extern GtkColorSelectionDialog
	super GtkWidget
	new ( title : String, parent : GtkWindow ) is extern  import String::to_cstring `{
		 return gtk_color_chooser_dialog_new( String_to_cstring( title ), parent );
	`}

	#fun color_selection :  is extern `{
	#	return gtk_color_selection_dialog_get_color_selection( GTK_COLOR_SELECTION_DIALOG( recv ) );
	#`}

	#fun color : Float is extern `{
	#	return gtk_color_selection_dialog_get_color_selection( GTK_COLOR_SELECTION_DIALOG( recv ) );
	#`}
end

#Retrieve an integer or floating-point number from the user
#@https://developer.gnome.org/gtk3/3.2/GtkSpinButton.html
extern GtkSpinButton `{GtkSpinButton *`}
	super GtkEntry

	new ( adjustment : GtkAdjustment, climb_rate : Float, digits : Int )is extern `{
		return (GtkSpinButton *)gtk_spin_button_new( adjustment, climb_rate, digits );	
	`}

	new with_range( min : Float, max : Float, step : Float )is extern `{
		return (GtkSpinButton *)gtk_spin_button_new_with_range( min, max, step );	
	`}

	fun configure ( adjustment : GtkAdjustment, climb_rate : Float, digits : Int ) is extern `{
		gtk_spin_button_configure( recv, adjustment, climb_rate, digits );
	`}

	fun adjustment : GtkAdjustment is extern `{
		return gtk_spin_button_get_adjustment( recv ); 	
	`}

	fun adjustment=( value : GtkAdjustment ) is extern `{
		gtk_spin_button_set_adjustment( recv, value ); 	
	`}

	fun digits : Int is extern `{
		return gtk_spin_button_get_digits( recv ); 	
	`}

	fun digits=( nb_digits : Int ) is extern `{
		gtk_spin_button_set_digits( recv, nb_digits ); 	
	`}

	fun value : Float is extern `{
		return gtk_spin_button_get_value( recv ); 	
	`}

	fun val=( val : Float ) is extern `{
		gtk_spin_button_set_value( recv, val ); 	
	`}

	fun spin( direction : GtkSpinType, increment : Float ) is extern`{
		gtk_spin_button_spin( recv, direction, increment );	
	`}
end

#enum GtkSpinType
#The values of the GtkSpinType enumeration are used to specify the change to make in gtk_spin_button_spin(). 
#@https://developer.gnome.org/gtk3/stable/GtkSpinButton.html#GtkSpinType
extern GtkSpinType `{GtkSpinType`}
	#Increment by the adjustments step increment.
	new step_forward `{ return GTK_SPIN_STEP_FORWARD; `} 

	#Decrement by the adjustments step increment.
	new step_backward `{ return GTK_SPIN_STEP_BACKWARD; `}

	#Increment by the adjustments page increment.
	new page_forward `{ return GTK_SPIN_PAGE_FORWARD; `}

	#Decrement by the adjustments page increment.
	new page_backward `{ return GTK_SPIN_PAGE_BACKWARD; `}

	#Go to the adjustments lower bound.
	new lower_bound `{ return GTK_SPIN_HOME; `}

	#Go to the adjustments upper bound.
	new upper_bound `{ return GTK_SPIN_END; `}

	#Change by a specified amount.
	new user_defined `{ return GTK_SPIN_USER_DEFINED; `}
end

#An entry which shows a search icon
#@https://developer.gnome.org/gtk3/stable/GtkSearchEntry.html
extern GtkSearchEntry `{GtkSearchEntry *`}
	super GtkEntry

	new is extern `{
		return (GtkSearchEntry *)gtk_search_entry_new( );	
	`}
end

#A widget to unlock or lock privileged operations
#@https://developer.gnome.org/gtk3/stable/GtkLockButton.html
extern GtkLockButton 
	super GtkButton
end

#A button to launch a color selection dialog
#@https://developer.gnome.org/gtk3/stable/GtkColorButton.html
extern GtkColorButton `{GtkColorButton *`}
	super GtkButton

	new is extern `{
		return (GtkColorButton *)gtk_color_button_new(  );
	`}

	fun color=( col : GdkColor ) is extern `{
		
		/* deprecated
		GdkColor *c = malloc(sizeof(GdkColor));
		c->pixel = 50;
		c->red = 50;
		c->green = 50;
		c->blue = 50;

		gtk_color_button_set_color( (GtkColorButton*)recv, c );*/
	`}
end