Make Contract Calls Great Again #35
@@ -97,6 +97,8 @@ new(Parent) ->
|
|||||||
[{face, "Monospace"}]),
|
[{face, "Monospace"}]),
|
||||||
SetMonospace = fun(Style) -> wxStyledTextCtrl:styleSetFont(STC, Style, Mono) end,
|
SetMonospace = fun(Style) -> wxStyledTextCtrl:styleSetFont(STC, Style, Mono) end,
|
||||||
ok = lists:foreach(SetMonospace, styles()),
|
ok = lists:foreach(SetMonospace, styles()),
|
||||||
|
ok = wxStyledTextCtrl:setMarginType(STC, 0, ?wxSTC_MARGIN_NUMBER),
|
||||||
|
ok = wxStyledTextCtrl:setMarginWidth(STC, 0, 40),
|
||||||
ok = wxStyledTextCtrl:styleSetFont(STC, ?wxSTC_STYLE_DEFAULT, Mono),
|
ok = wxStyledTextCtrl:styleSetFont(STC, ?wxSTC_STYLE_DEFAULT, Mono),
|
||||||
ok = set_colors(STC),
|
ok = set_colors(STC),
|
||||||
STC.
|
STC.
|
||||||
|
|||||||
Reference in New Issue
Block a user