The R Project SVN R

Rev

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

Rev 33001 Rev 33093
Line 1342... Line 1342...
1342 
    char buf[30], clab[25];
 1342 
    char buf[30], clab[25];
1343 
    int i;
 1343 
    int i;
1344 
 
 1344 
 
1345 
    strcpy(buf, gettext(varname));
 1345 
    strcpy(buf, gettext(varname));
1346 
    if(!strlen(buf)) {
 1346 
    if(!strlen(buf)) {
1347 
	askok("column names cannot be blank");
 1347 
	askok(G_("column names cannot be blank"));
1348 
	return;
 1348 
	return;
1349 
    }
 1349 
    }
1350 
    if (popupcol > xmaxused) {
 1350 
    if (popupcol > xmaxused) {
1351 
	/* extend work, names and lens */
 1351 
	/* extend work, names and lens */
1352 
	REPROTECT(work = lengthgets(work, popupcol), wpi);
 1352 
	REPROTECT(work = lengthgets(work, popupcol), wpi);
Line 1386... Line 1386...
1386 
    char *blah;
 1386 
    char *blah;
1387 
    rect r = screen_coords(de);
 1387 
    rect r = screen_coords(de);
1388 
 
 1388 
 
1389 
    popupcol = colmin + col - 1;
 1389 
    popupcol = colmin + col - 1;
1390 
    blah = get_col_name(popupcol);
 1390 
    blah = get_col_name(popupcol);
1391 
    wconf = newwindow("Variable editor",
 1391 
    wconf = newwindow(G_("Variable editor"),
1392 
		      rect(x_pos + r.x-150, y_pos + r.y-50, 300, 100),
 1392 
		      rect(x_pos + r.x-150, y_pos + r.y-50, 300, 100),
1393 
		      Titlebar | Closebox | Modal);
 1393 
		      Titlebar | Closebox | Modal);
1394 
    setclose(wconf, popupclose);
 1394 
    setclose(wconf, popupclose);
1395 
    setbackground(wconf, bbg);
 1395 
    setbackground(wconf, bbg);
1396 
    lwhat = newlabel("variable name", rect(10, 22, 90, 20), AlignLeft);
 1396 
    lwhat = newlabel(G_("variable name"), rect(10, 22, 90, 20), AlignLeft);
1397 
    varname = newfield(blah, rect(100, 20, 120, 20));
 1397 
    varname = newfield(blah, rect(100, 20, 120, 20));
1398 
    lrb = newlabel("type", rect(50, 62, 50, 20), AlignLeft);
 1398 
    lrb = newlabel(G_("type"), rect(50, 62, 50, 20), AlignLeft);
1399 
    rb_num = newradiobutton("numeric", rect(100, 60 , 80, 20), NULL);
 1399 
    rb_num = newradiobutton("numeric", rect(100, 60 , 80, 20), NULL);
1400 
    rb_char = newradiobutton("character", rect(180, 60 , 80, 20), NULL);
 1400 
    rb_char = newradiobutton("character", rect(180, 60 , 80, 20), NULL);
1401 
    isnumeric = (get_col_type(popupcol) == NUMERIC);
 1401 
    isnumeric = (get_col_type(popupcol) == NUMERIC);
1402 
    if (isnumeric) check(rb_num); else check(rb_char);
 1402 
    if (isnumeric) check(rb_num); else check(rb_char);
1403 
    setkeydown(wconf, nm_hit_key);
 1403 
    setkeydown(wconf, nm_hit_key);