; Module/File: TG_SetMarkups.pb
; Function: Set Markups for a TextGadget- Linux
; Author: Omi
; Date: May 22, 2015
; Version: 0.2 (08-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_markup(*label.GtkWidget, markup.p-utf8)
EndImport
; Object constants
#MainWin= 0
#Text1 = 0
#Text2 = 1
#Text3 = 2
#Text4 = 3
#Text5 = 4
#Text6 = 5
#Text7 = 6
#Text8 = 7
#Text9 = 8
#Text10 = 9
#Text11 = 10
Global.i gEvent, gQuit
Global.s gS
If OpenWindow(#MainWin, 300, 200, 300, 340, "TextGadget - text markups", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
gS= "Label with a fat word."
TextGadget(#Text1, 5, 5, 240, 25, gS, #PB_Text_Border)
gtk_label_set_markup(GadgetID(#Text1), gS)
gtk_label_set_use_markup_(GadgetID(#Text1), #True)
gS= "Label with a " + "blue word."
TextGadget(#Text2, 5, 35, 240, 25, gS, #PB_Text_Border)
gtk_label_set_markup(GadgetID(#Text2), gS)
gtk_label_set_use_markup_(GadgetID(#Text2), #True)
gS= "Label with a " + "big word."
TextGadget(#Text3, 5, 65, 240, 25, gS, #PB_Text_Border)
gtk_label_set_markup(GadgetID(#Text3), gS)
gtk_label_set_use_markup_(GadgetID(#Text3), #True)
gS= "Label with a underlined word."
TextGadget(#Text4, 5, 95, 240, 25, gS, #PB_Text_Border)
gtk_label_set_markup(GadgetID(#Text4), gS)
gtk_label_set_use_markup_(GadgetID(#Text4), #True)
gS= "Label with a striked out word."
TextGadget(#Text5, 5, 125, 240, 25, gS, #PB_Text_Border)
gtk_label_set_markup(GadgetID(#Text5), gS)
gtk_label_set_use_markup_(GadgetID(#Text5), #True)
gS= "Label with a monospaced word."
TextGadget(#Text6, 5, 155, 240, 25, gS, #PB_Text_Border)
gtk_label_set_markup(GadgetID(#Text6), gS)
gtk_label_set_use_markup_(GadgetID(#Text6), #True)
gS= "Label with Superscript like x-2."
TextGadget(#Text7, 5, 185, 240, 25, gS, #PB_Text_Border)
gtk_label_set_markup(GadgetID(#Text7), gS)
gtk_label_set_use_markup_(GadgetID(#Text7), #True)
gS= "Label with Subscript like x4."
TextGadget(#Text8, 5, 215, 240, 25, gS, #PB_Text_Border)
gtk_label_set_markup(GadgetID(#Text8), gS)
gtk_label_set_use_markup_(GadgetID(#Text8), #True)
gS= "Label with a small word."
TextGadget(#Text9, 5, 245, 240, 25, gS, #PB_Text_Border)
gtk_label_set_markup(GadgetID(#Text9), gS)
gtk_label_set_use_markup_(GadgetID(#Text9), #True)
gS= "Label with a small word."
TextGadget(#Text9, 5, 245, 240, 25, gS, #PB_Text_Border)
gtk_label_set_markup(GadgetID(#Text9), gS)
gtk_label_set_use_markup_(GadgetID(#Text9), #True)
gS= "Label with a italic word."
TextGadget(#Text10, 5, 275, 240, 25, gS, #PB_Text_Border)
gtk_label_set_markup(GadgetID(#Text10), gS)
gtk_label_set_use_markup_(GadgetID(#Text10), #True)
gS= "Label with a " + " marked word."
TextGadget(#Text11, 5, 305, 240, 25, gS, #PB_Text_Border)
gtk_label_set_markup(GadgetID(#Text11), gS)
gtk_label_set_use_markup_(GadgetID(#Text11), #True)
Repeat
gEvent= WaitWindowEvent()
Select gEvent
Case #PB_Event_CloseWindow
gQuit= #True
EndSelect
Until gQuit
EndIf
; IDE Options = PureBasic 5.44 LTS (Linux - x86)
; CursorPosition = 7
; FirstLine = 4
; EnableUnicode
; EnableXP