The R Project SVN R

Rev

Rev 4394 | Rev 4985 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4394 Rev 4606
Line 136... Line 136...
136 
	obj->action = fn;
 136 
	obj->action = fn;
137 
	obj->state = (Visible | Enabled);
 137 
	obj->state = (Visible | Enabled);
138 
	obj->flags = ChildWindow;
 138 
	obj->flags = ChildWindow;
139 
	obj->text = new_string(text);
 139 
	obj->text = new_string(text);
140 
	set_new_winproc(obj); /* set custom winproc */
 140 
	set_new_winproc(obj); /* set custom winproc */
141 
 
 - 
 
- 
 
 141 
	settextfont(obj, SystemFont);
142 
	return obj;
 142 
	return obj;
143 
}
 143 
}
144 
 
 144 
 
145 
/*
 145 
/*
146 
 *  The old native version of newlabel.
 146 
 *  The old native version of newlabel.
Line 907... Line 907...
907 
	field obj = newchildwin("edit", NULL,
 907 
	field obj = newchildwin("edit", NULL,
908 
			WS_BORDER | ES_LEFT | ES_AUTOHSCROLL
 908 
			WS_BORDER | ES_LEFT | ES_AUTOHSCROLL
909 
			| ES_PASSWORD, r, NULL);
 909 
			| ES_PASSWORD, r, NULL);
910 
	if (obj) {
 910 
	if (obj) {
911 
		obj->kind = FieldObject;
 911 
		obj->kind = FieldObject;
- 
 
 912 
		settextfont(obj, SystemFont);
912 
		settext(obj, text);
 913 
		settext(obj, text);
913 
	}
 914 
	}
914 
	return obj;
 915 
	return obj;
915 
}
 916 
}
916 
 
 917