The R Project SVN R

Rev

Rev 36930 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 36930 Rev 36938
Line 128... Line 128...
128
	object obj;
128
	object obj;
129
 
129
 
130
	ensure_window();
130
	ensure_window();
131
	r = rcanon(r);
131
	r = rcanon(r);
132
 
132
 
133
	if(is_NT) {
133
	if(is_NT && (localeCP != GetACP())) {
134
	    wchar_t wkind[100], wc[1000];
134
	    wchar_t wkind[100], wc[1000];
135
	    mbstowcs(wkind, kind, 100);
135
	    mbstowcs(wkind, kind, 100);
136
	    mbstowcs(wc, text, 1000);
136
	    mbstowcs(wc, text, 1000);
137
	    hwnd = CreateWindowW(wkind, wc,
137
	    hwnd = CreateWindowW(wkind, wc,
138
				 (WS_CHILD | WS_VISIBLE) | style,
138
				 (WS_CHILD | WS_VISIBLE) | style,