OpenEuphoria

Re: WEE: Enhancement Request

• Posted by PeteE Aug 18, 2015
• 1953 views

Well, so much for the "easy fix".

Euphoric, could you test this for me before I release it? In ui_win.e replace the ui_select_tab function with this:

global procedure ui_select_tab(integer tab) 
    atom junk, rect 
    integer w, h 
 
    -- change tab, and highlight it to make it stand out 
    junk = c_func(SendMessage, {htabs, TCM_HIGHLIGHTITEM,  
	c_func(SendMessage, {htabs, TCM_GETCURSEL, 0, 0}), 0}) 
    junk = c_func(SendMessage, {htabs, TCM_SETCURSEL, tab-1, 0}) 
    junk = c_func(SendMessage, {htabs, TCM_HIGHLIGHTITEM, tab-1, 1}) 
 
    if hedit then 
        -- hide the previous hedit 
        c_proc(ShowWindow, {hedit, SW_HIDE}) 
    end if 
 
    hedit = ui_hedits[tab] 
 
    -- update the richedit control to the window size 
    rect = allocate(16) 
    c_proc(GetClientRect, {hMainWnd, rect}) 
    c_proc(MoveWindow, {hedit, 0, tab_h, peek4u(rect+8), peek4u(rect+12)-tab_h, 1}) 
    free(rect) 
    c_proc(ShowWindow, {hedit, SW_SHOW}) 
    junk = c_func(SetFocus, {hedit}) 
end procedure