void CodeEdit::SetDefaultLexer()
{
SetLexer(wxSTC_LEX_NULL);
SetKeyWords(1, "");
// Set the caret width to match MSVC.
SetCaretWidth(2);
// Set the marker bitmaps.
MarkerDefineBitmap(Marker_Breakpoint, wxMEMORY_BITMAP(Breakpoint_png) );
MarkerDefineBitmap(Marker_CurrentLine, wxMEMORY_BITMAP(Currentline_png) );
MarkerDefineBitmap(Marker_BreakLine, wxMEMORY_BITMAP(Breakline_png) );
// Setup the dwell time before a tooltip is displayed.
SetMouseDwellTime(300);
SetMarginSensitive(1, true);
SetMarginType(1, wxSTC_MARGIN_SYMBOL);
// Set the autocomplete icons.
wxColour maskColor(0xFF, 0x9B, 0x77);
wxBitmap functionIcon(functionicon, wxBITMAP_TYPE_XPM);
functionIcon.SetMask(new wxMask(functionicon, maskColor));
RegisterImage(AutoCompleteManager::Type_Function, functionIcon);
wxBitmap classIcon(classicon, wxBITMAP_TYPE_XPM);
classIcon.SetMask(new wxMask(classicon, maskColor));
RegisterImage(AutoCompleteManager::Type_Class, classIcon);
}
PythonCodeCtrl::PythonCodeCtrl(wxWindow *parent, PythonInterpCtrl *py)
: cbStyledTextCtrl(parent, wxID_ANY)
{
m_pyctrl = py;
EditorManager *em = Manager::Get()->GetEditorManager();
// Connect(wxEVT_KEY_DOWN, wxKeyEventHandler(PythonCodeCtrl::OnUserInput));
ConfigManager* mgr = Manager::Get()->GetConfigManager(_T("editor"));
//MOST OF THIS STUFF IS TAKEN FROM CB EDITOR
wxFont font(10, wxMODERN, wxNORMAL, wxNORMAL);
wxString fontstring = mgr->Read(_T("/font"), wxEmptyString);
if (!fontstring.IsEmpty())
{
wxNativeFontInfo nfi;
nfi.FromString(fontstring);
font.SetNativeFontInfo(nfi);
}
SetMouseDwellTime(1000);
SetScrollWidthTracking(true);
SetScrollWidth(5); //Hides horizontal scrollbar if text doesn't exceed the window width
int caretStyle = mgr->ReadInt(_T("/caret/style"), wxSCI_CARETSTYLE_LINE);
SetCaretStyle(caretStyle);
if (caretStyle == wxSCI_CARETSTYLE_LINE)
SetCaretWidth(mgr->ReadInt(_T("/caret/width"), 1));
else
SetCaretWidth(1);
ColourManager *colours = Manager::Get()->GetColourManager();
SetCaretForeground(colours->GetColour(wxT("editor_caret")));
SetCaretPeriod(mgr->ReadInt(_T("/caret/period"), 500));
SetCaretLineVisible(mgr->ReadBool(_T("/highlight_caret_line"), false));
SetCaretLineBackground(
Manager::Get()->GetConfigManager(_T("editor"))->ReadColour(_T("/highlight_caret_line_colour"), wxColour(0xFF, 0xFF, 0x00)));
SetFoldMarginColour(true, colours->GetColour(wxT("editor_margin_chrome")));
SetFoldMarginHiColour(true, colours->GetColour(wxT("editor_margin_chrome_highlight")));
// setup for "CamelCase selection"
if (mgr->ReadBool(_T("/camel_case"), false))
{
// consider CamelCase for both: cursor movement with CTRL and selection with CTRL+SHIFT:
CmdKeyAssign(wxSCI_KEY_LEFT, wxSCI_SCMOD_CTRL, wxSCI_CMD_WORDPARTLEFT);
CmdKeyAssign(wxSCI_KEY_RIGHT, wxSCI_SCMOD_CTRL, wxSCI_CMD_WORDPARTRIGHT);
CmdKeyAssign(wxSCI_KEY_LEFT, wxSCI_SCMOD_CTRL|wxSCI_SCMOD_SHIFT, wxSCI_CMD_WORDPARTLEFTEXTEND);
CmdKeyAssign(wxSCI_KEY_RIGHT, wxSCI_SCMOD_CTRL|wxSCI_SCMOD_SHIFT, wxSCI_CMD_WORDPARTRIGHTEXTEND);
}
else // else set default "none CamelCase" key behavior (also default scintilla behaviour, see scintilla docs)
{
CmdKeyAssign(wxSCI_KEY_LEFT, wxSCI_SCMOD_CTRL, wxSCI_CMD_WORDLEFT);
CmdKeyAssign(wxSCI_KEY_RIGHT, wxSCI_SCMOD_CTRL, wxSCI_CMD_WORDRIGHT);
CmdKeyAssign(wxSCI_KEY_LEFT, wxSCI_SCMOD_CTRL|wxSCI_SCMOD_SHIFT, wxSCI_CMD_WORDLEFTEXTEND);
CmdKeyAssign(wxSCI_KEY_RIGHT, wxSCI_SCMOD_CTRL|wxSCI_SCMOD_SHIFT, wxSCI_CMD_WORDRIGHTEXTEND);
}
SetUseTabs(mgr->ReadBool(_T("/use_tab"), false));
SetIndentationGuides(mgr->ReadBool(_T("/show_indent_guides"), false)?wxSCI_IV_LOOKBOTH:wxSCI_IV_NONE);
SetTabIndents(mgr->ReadBool(_T("/tab_indents"), true));
SetBackSpaceUnIndents(mgr->ReadBool(_T("/backspace_unindents"), true));
SetWrapMode(mgr->ReadBool(_T("/word_wrap"), false));
if (mgr->ReadBool(_T("/word_wrap_style_home_end"), true))
{
// in word wrap mode, home/end keys goto the wrap point if not already there,
// otherwise to the start/end of the entire line.
// alt+home/end go to start/end of the entire line.
// in unwrapped mode, there is no difference between home/end and alt+home/end
CmdKeyAssign(wxSCI_KEY_END, wxSCI_SCMOD_NORM, wxSCI_CMD_LINEENDWRAP);
CmdKeyAssign(wxSCI_KEY_END, wxSCI_SCMOD_ALT, wxSCI_CMD_LINEEND);
CmdKeyAssign(wxSCI_KEY_END, wxSCI_SCMOD_SHIFT, wxSCI_CMD_LINEENDWRAPEXTEND);
CmdKeyAssign(wxSCI_KEY_END, wxSCI_SCMOD_SHIFT|wxSCI_SCMOD_ALT, wxSCI_CMD_LINEENDEXTEND);
// if user wants "Home" key to set cursor to the very beginning of line
if (mgr->ReadBool(_T("/simplified_home"), false))
{
CmdKeyAssign(wxSCI_KEY_HOME,wxSCI_SCMOD_NORM,wxSCI_CMD_HOMEWRAP);
CmdKeyAssign(wxSCI_KEY_HOME,wxSCI_SCMOD_ALT,wxSCI_CMD_HOME);
CmdKeyAssign(wxSCI_KEY_HOME,wxSCI_SCMOD_SHIFT,wxSCI_CMD_HOMEWRAPEXTEND);
CmdKeyAssign(wxSCI_KEY_HOME,wxSCI_SCMOD_SHIFT|wxSCI_SCMOD_ALT,wxSCI_CMD_HOMEEXTEND);
}
else // else set default "Home" key behavior
{
CmdKeyAssign(wxSCI_KEY_HOME,wxSCI_SCMOD_NORM,wxSCI_CMD_VCHOMEWRAP);
CmdKeyAssign(wxSCI_KEY_HOME,wxSCI_SCMOD_ALT,wxSCI_CMD_VCHOME);
CmdKeyAssign(wxSCI_KEY_HOME,wxSCI_SCMOD_SHIFT,wxSCI_CMD_VCHOMEWRAPEXTEND);
CmdKeyAssign(wxSCI_KEY_HOME,wxSCI_SCMOD_SHIFT|wxSCI_SCMOD_ALT,wxSCI_CMD_VCHOMEEXTEND);
}
}
else
{ // in word wrap mode, home/end keys goto start/end of the entire line. alt+home/end goes to wrap points
CmdKeyAssign(wxSCI_KEY_END, wxSCI_SCMOD_ALT, wxSCI_CMD_LINEENDWRAP);
CmdKeyAssign(wxSCI_KEY_END, wxSCI_SCMOD_SHIFT|wxSCI_SCMOD_ALT, wxSCI_CMD_LINEENDWRAPEXTEND);
// if user wants "Home" key to set cursor to the very beginning of line
if (mgr->ReadBool(_T("/simplified_home"), false))
{
CmdKeyAssign(wxSCI_KEY_HOME,wxSCI_SCMOD_ALT,wxSCI_CMD_HOMEWRAP);
CmdKeyAssign(wxSCI_KEY_HOME,wxSCI_SCMOD_SHIFT|wxSCI_SCMOD_ALT,wxSCI_CMD_HOMEWRAPEXTEND);
}
else // else set default "Home" key behavior
{
CmdKeyAssign(wxSCI_KEY_HOME,wxSCI_SCMOD_ALT,wxSCI_CMD_VCHOMEWRAP);
CmdKeyAssign(wxSCI_KEY_HOME,wxSCI_SCMOD_SHIFT|wxSCI_SCMOD_ALT,wxSCI_CMD_VCHOMEWRAPEXTEND);
}
}
SetViewEOL(mgr->ReadBool(_T("/show_eol"), false));
SetViewWhiteSpace(mgr->ReadInt(_T("/view_whitespace"), 0));
// gutter
SetEdgeMode(mgr->ReadInt(_T("/gutter/mode"), 0));
SetEdgeColour(Manager::Get()->GetColourManager()->GetColour(wxT("editor_gutter")));
SetEdgeColumn(mgr->ReadInt(_T("/gutter/column"), 80));
StyleSetFont(wxSCI_STYLE_DEFAULT, font);
StyleClearAll();
SetTabWidth(mgr->ReadInt(_T("/tab_size"), 4));
SetIndent(mgr->ReadInt(_T("/tab_size"), 4)); //NEEDED FOR AUTO INDENTATION (NOT IN CB EDITOR)
em->GetColourSet()->Apply(_("Python"),this);
}
void cbStyledTextCtrl::HighlightRightBrace()
{
if (m_bracePosition == wxSCI_INVALID_POSITION)
return;
int pos = GetCurrentPos();
if (pos == wxSCI_INVALID_POSITION)
return;
const static wxColour caretForeground = GetCaretForeground();
const static int caretWidth = GetCaretWidth();
const int curLine = GetCurrentLine();
const int len = GetLength();
if (m_tabSmartJump && (curLine == LineFromPosition(m_bracePosition)))
{
SetIndicatorCurrent(s_indicHighlight);
const int indPos = GetLineIndentPosition(curLine);
IndicatorClearRange(indPos, GetLineEndPosition(curLine)-indPos);
do
{
if (pos >= len)
break;
wxString cur((wxChar)GetCharAt(pos));
if (cur == _T("\n"))
break;
int style = GetStyleAt(pos);
if (IsComment(style))
continue;
if (IsString(style) || IsCharacter(style))
{
const int nextOne = (pos == len) ? GetStyleAt(pos) : GetStyleAt(pos + 1);
if (IsCharacter(nextOne) || IsString(nextOne))
continue;
}
if (s_rightBrace.Contains(cur))
{
SetCaretForeground(wxColour(255, 0, 0));
SetCaretWidth(caretWidth + 1);
IndicatorSetForeground(s_indicHighlight, wxColour(80, 236, 120));
IndicatorSetStyle(s_indicHighlight, wxSCI_INDIC_HIGHLIGHT);
#ifndef wxHAVE_RAW_BITMAP
IndicatorSetUnder(s_indicHighlight, true);
#endif
SetIndicatorCurrent(s_indicHighlight);
IndicatorFillRange(pos, 1);
m_bracePosition = pos + 1;
return;
}
}
while (++pos);
}
m_bracePosition = wxSCI_INVALID_POSITION;
m_lastPosition = wxSCI_INVALID_POSITION;
m_tabSmartJump = false;
SetIndicatorCurrent(s_indicHighlight);
IndicatorClearRange(0, len);
SetCaretForeground(caretForeground);
SetCaretWidth(caretWidth);
}
void ScriptEditCtrl::Impl::PreSubclassWindow()
{
self_->m_hWnd = m_hWnd; // expose HWND
SetupDirectAccess();
// If we are running as Unicode, then use the UTF8 codepage
#ifdef _UNICODE
SetCodePage(SC_CP_UTF8);
#endif
SetLexer(SCLEX_LUA);
StyleSetFont(STYLE_DEFAULT, "Lucida Console");
StyleSetSize(STYLE_DEFAULT, 10);
SetKeyWords(0, LuaKeywords);
SetKeyWords(1, LuaFunctions);
if (enable_input_attribs_)
SetKeyWords(2, LuaUser);
SetKeyWords(3, ConcatAttributes().c_str());
COLORREF comment= RGB(0,128,128);
COLORREF string= RGB(128,128,0);
StyleSetFore(SCE_LUA_COMMENT, comment);
StyleSetFore(SCE_LUA_COMMENTLINE, comment);
StyleSetFore(SCE_LUA_COMMENTDOC, comment);
StyleSetFore(SCE_LUA_NUMBER, RGB(0,0,255));
StyleSetFore(SCE_LUA_WORD, RGB(34,78,160)); // keywords
StyleSetFore(SCE_LUA_STRING, string);
StyleSetFore(SCE_LUA_CHARACTER, string);
StyleSetFore(SCE_LUA_LITERALSTRING, string);
StyleSetFore(SCE_LUA_WORD2, RGB(53,113,202)); // functions
StyleSetFore(SCE_LUA_WORD3, RGB(124,37,203)); // test & number
StyleSetBack(SCE_LUA_WORD3, CalcColor(::GetSysColor(COLOR_WINDOW), RGB(0,0,255), 0.95f));
StyleSetFore(SCE_LUA_WORD4, RGB(164,97,49)); // todo: attributes
StyleSetFont(SCE_LUA_WORD, "Lucida Console");
StyleSetSize(SCE_LUA_WORD, 10);
StyleSetBold(SCE_LUA_WORD, true);
//#define SCE_LUA_PREPROCESSOR 9
//#define SCE_LUA_OPERATOR 10
//#define SCE_LUA_IDENTIFIER 11
//#define SCE_LUA_STRINGEOL 12
//#define SCE_LUA_WORD2 13
//#define SCE_LUA_WORD3 14
//#define SCE_LUA_WORD4 15
//#define SCE_LUA_WORD5 16
//#define SCE_LUA_WORD6 17
//#define SCE_LUA_WORD7 18
//#define SCE_LUA_WORD8 19
Colorize(0, -1);
//MarkerDefine(MARKER_POINTER, SC_MARK_ARROW);
//MarkerSetBack(MARKER_POINTER, RGB(255,255,0));
//MarkerDefine(MARKER_BREAKPOINT, SC_MARK_ROUNDRECT);
//MarkerSetBack(MARKER_BREAKPOINT, RGB(0,0,255));
//MarkerDefine(MARKER_ERROR, SC_MARK_ARROW);
//MarkerSetBack(MARKER_ERROR, RGB(255,0,0));
int width= 0;
SetMarginWidthN(1, width);
SetScrollWidthTracking(true);
SetScrollWidth(1);
SetWrapMode(SC_WRAP_WORD);
SetWrapVisualFlags(SC_WRAPVISUALFLAG_END);
SetSelBack(true, CalcShade(::GetSysColor(COLOR_HIGHLIGHT), 50.0f));
SetTabWidth(4);
SetIndent(4);
DWORD pixels= 1;
::SystemParametersInfo(SPI_GETCARETWIDTH, 0, &pixels, 0);
SetCaretWidth(pixels);
// hwnd is attached, but message processing is not working yet, we are not yet subclassed,
// so postpone this WM_NCCALCSIZE call:
PostMessage(WM_APP+1234);
}
OutputCtrl::OutputCtrl( wxWindow* parent, wxWindowID id, const wxString& name,
const wxPoint& pos, const wxSize& size, long style )
: wxStyledTextCtrl(),
m_Selected( -1 )
{
wxStyledTextCtrl::Create( parent, id, wxDefaultPosition, wxDefaultSize, wxVSCROLL | wxSTATIC_BORDER );
UsePopUp(false);
// initialize styles
StyleClearAll();
// Set the lexer language
SetLexer( wxSTC_LEX_TEX );
// Clear the zoom keys and mouse mapping.
CmdKeyClear( wxSTC_KEY_ADD, wxSTC_SCMOD_CTRL );
CmdKeyClear( wxSTC_KEY_SUBTRACT, wxSTC_SCMOD_CTRL );
CmdKeyClear( wxSTC_KEY_DIVIDE, wxSTC_SCMOD_CTRL );
StyleClearAll();
// TODO: Make the font style a configuration option or use some OS default!
wxFont* font = wxTheFontList->FindOrCreateFont( 8, wxDEFAULT, wxNORMAL, wxNORMAL, false, "Courier New" );
for ( int i = 0; i < wxSTC_STYLE_LASTPREDEFINED; i++ )
StyleSetFont( i, *font );
StyleSetBackground( 1, wxColour( 255, 0, 0 ) );
StyleSetForeground( 1, wxColour( 255, 255, 255 ) );
StyleSetBackground( 2, wxColour( 255, 255, 255 ) );
StyleSetForeground( 2, wxColour( 255, 0, 0 ) );
/*
StyleSetBackground( wxSTC_STYLE_DEFAULT, tsGetPrefs().GetBgColor() );
SetCaretForeground( tsGetPrefs().GetDefaultColor() );
StyleSetForeground( wxSTC_TCS_DEFAULT, tsGetPrefs().GetDefaultColor() );
StyleSetBackground( wxSTC_TCS_DEFAULT, tsGetPrefs().GetBgColor() );
SetSelBackground( 1, tsGetPrefs().GetSelBgColor() );
SetSelForeground( 1, tsGetPrefs().GetSelColor() );
*/
IndicatorSetForeground( 0, wxColour( 255, 0, 0 ) );
//SetTabWidth( tsGetPrefs().GetTabWidth() );
// setup the caret.
SetCaretWidth( 2 );
SetVisiblePolicy( wxSTC_VISIBLE_STRICT | wxSTC_VISIBLE_SLOP, 1 );
SetXCaretPolicy( wxSTC_CARET_EVEN | wxSTC_VISIBLE_STRICT | wxSTC_CARET_SLOP, 1 );
SetYCaretPolicy( wxSTC_CARET_EVEN | wxSTC_VISIBLE_STRICT | wxSTC_CARET_SLOP, 1 );
// Set the margin.
SetMarginLeft( 0 );
SetMarginType( 0, wxSTC_MARGIN_SYMBOL );
SetMarginWidth( 0, 12 );
SetMarginWidth( 1, 0 );
SetMarginWidth( 2, 0 );
SetMarginSensitive( 0, false );
//StyleSetBackground( wxSTC_STYLE_LINENUMBER, tsGetPrefs().GetBgColor() );
SetWrapMode( wxSTC_WRAP_NONE );
SetLayoutCache( wxSTC_CACHE_PAGE );
SetReadOnly( true );
UpdatePrefs();
// Create the regular expression here once.
// TODO: This possibly needs fixing for non Win32 platforms.
m_ErrorExpr.Compile( "([^*?:<>|]*)[ \t]Line:[ \t]([0-9]*)[ \t]-[ \t](.*)",
wxRE_ADVANCED | wxRE_ICASE );
wxASSERT( m_ErrorExpr.IsValid() );
m_WarnExpr.Compile( "([^*?:<>|]*)[ \t][(]([0-9]*)[)]:[ \t](.*)",
wxRE_ADVANCED | wxRE_ICASE );
wxASSERT( m_WarnExpr.IsValid() );
}
