; Module/File:     TG_SetEllipsize.pb
; Function:        TextGadget, ellipsize and cut too long textes - div. Modi - Linux
; Author:          Omi
; Date:            Juli 17, 2014
; Version:         0.2 (06-2017)
; Target Compiler: PureBasic 5.22/5.31/5.40/5.5/5.6
; Target OS:       Linux: (X/K/L)ubuntu, Mint, 32/64, Ascii/Uni
;--------------------------------------------------------------

EnableExplicit

ImportC ""
	gtk_label_set_ellipsize(*label.GtkLabel, Mode)
EndImport

Enumeration PangoEllipsizeMode
	#PANGO_ELLIPSIZE_NONE
	#PANGO_ELLIPSIZE_START
	#PANGO_ELLIPSIZE_MIDDLE
	#PANGO_ELLIPSIZE_END
EndEnumeration

; Object constants
#MainWin = 0

#Text1   = 0
#Text2   = 1
#Text3   = 2
#Text4   = 3


Global.i gEvent, gQuit


If OpenWindow(#MainWin, 300, 200, 250, 200, "TextGadget - ellipsize", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
	TextGadget(#Text1, 5, 5, 200, 20, "This is a too long, and cut-off text for the size", #PB_Text_Border); wrapped on gtk3
	TextGadget(#Text2, 5, 45, 200, 25, "This is a too long and left-dotted text", #PB_Text_Border)
	TextGadget(#Text3, 5, 85, 200, 25, "This is a too long and center-dotted text", #PB_Text_Border)
	TextGadget(#Text4, 5, 125, 200, 25, "This is a too long and right-dotted text", #PB_Text_Border)
	
	gtk_label_set_ellipsize(GadgetID(#Text1), #PANGO_ELLIPSIZE_NONE)
	gtk_label_set_ellipsize(GadgetID(#Text2), #PANGO_ELLIPSIZE_START)
	gtk_label_set_ellipsize(GadgetID(#Text3), #PANGO_ELLIPSIZE_MIDDLE)
	gtk_label_set_ellipsize(GadgetID(#Text4), #PANGO_ELLIPSIZE_END)
	
	Repeat
		gEvent= WaitWindowEvent()
		
		Select gEvent
			Case #PB_Event_CloseWindow
				gQuit= #True
		EndSelect
		
	Until gQuit
EndIf
; IDE Options = PureBasic 5.44 LTS (Linux - x86)
; CursorPosition = 29
; FirstLine = 21
; EnableUnicode
; EnableXP
; CurrentDirectory = /home/charly-xubuntu/Programming/PureBasic/purebasic/