-module(erledit).
-export([start/0]).
-include("D:/Program Files/erl5.6.3/lib/wx-0.97.0623/include/wx.hrl").
start() ->
Wx = wx:new(),
Frame = wxFrame:new(Wx, 1, "erl edit", []),
Text = wxStyledTextCtrl:new(Frame),
wxStyledTextCtrl:setLexerLanguage(Text, "erlang"),
io:format("Current Lexer is ~w~n", [wxStyledTextCtrl:getLexer(Text)]),
wxStyledTextCtrl:styleSetForeground(Text, 0, {255, 0, 0}),
wxStyledTextCtrl:styleSetForeground(Text, 1, {0, 255, 0}),
wxStyledTextCtrl:styleSetForeground(Text, 2, {0, 0, 255}),
wxStyledTextCtrl:styleSetForeground(Text, 3, {128, 100, 0}),
wxStyledTextCtrl:styleSetForeground(Text, 4, {30, 200, 90}),
wxStyledTextCtrl:styleSetForeground(Text, 5, {0, 255, 100}),
wxStyledTextCtrl:styleSetForeground(Text, 6, {0, 255, 190}),
wxStyledTextCtrl:styleSetForeground(Text, 7, {50, 100, 0}),
wxFrame:show(Frame),
wxFrame:connect(Frame, close_window, [{skip, true}]),
loop().
loop() ->
receive
#wx{event=#wxClose{}} ->
io:format("closed~n");
_Event ->
loop()
end. 用到 Erlang 最新 Release Erlang R12B-3 和 wxErlang(wxWidgets 的 Erlang wrapper)。配色是我隨意寫的,只做演示之用,不要在意:)
簡單的語法高亮 Erlang 編輯器
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
Using redis to implement a shopping basket
howlowl
2020-06-19 16:50:30
MongoDB installation
howlowl
2020-06-19 14:58:52
MongoDB and NodeJS (some parts deprecated)
howlowl
2020-06-19 14:58:52
MongoDB command line !!
howlowl
2020-06-19 14:58:52
Canvas Grids 的簡單實現
下面的代碼在HTML Canvas中繪製了座標軸及座標格線Grids。 <!DOCTYPE html> <html> <head> <title>Canvas Grid</title> <met
Sarkuya
2020-06-19 11:08:43
Learning full-stack Javascript MongoDB, react and node
howlowl
2020-05-31 07:30:35
Install fast dfs and nginx on my testing Manjaro Linux
Cloud_View
2020-03-13 19:42:40
激活雪豹上的LAMP
Sarkuya
2020-02-23 01:01:56
在HTML中實現比DocBook更好用的自動節編號
Sarkuya
2020-02-23 01:01:56
在CSDN博客上使用SyntaxHighlighter
Sarkuya
2020-02-23 01:01:56
Dreamweaver
icodec
2020-02-22 06:31:10
PHP之學習cookie詳解
gobattle
2020-02-21 05:30:43
php session心得
gobattle
2020-02-21 05:30:42
關於"找不到與frontpage服務器通信的組件"問題的解決方案
谈天扯地
2020-02-20 22:25:56