Code: Select all
Global base
base = {}
;; base:StripBoldandUnderlineFormatting(gadgets$)
; Removes underline characters from a string, used when displaying locales via a SystemRequest call for example
Function base:StripBoldandUnderlineFormatting(gadgets$)
gadgets$ = ToString(gadgets$)
gadgets$ = ReplaceStr(gadgets$,"[u]","")
gadgets$ = ReplaceStr(gadgets$,"[/u]","")
gadgets$ = ReplaceStr(gadgets$,"[b]","")
gadgets$ = ReplaceStr(gadgets$,"[/b]","")
Return (gadgets$)
EndFunction
Function base:SystemRequest(title,body,gadgets,icon)
Local res = SystemRequest(base:StripBoldandUnderlineFormatting(title),base:StripBoldandUnderlineFormatting(body),base:StripBoldandUnderlineFormatting(gadgets),icon)
Return (res)
EndFunction