The R Project SVN R

Rev

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

Rev 45017 Rev 49479
Line 32... Line 32...
32 
    switch (getvalue(m)) {
 32 
    switch (getvalue(m)) {
33 
    case 1:
 33 
    case 1:
34 
	SendMessage(hwndClient,WM_MDICASCADE,0,0);
 34 
	SendMessage(hwndClient,WM_MDICASCADE,0,0);
35 
	break;
 35 
	break;
36 
    case 2:
 36 
    case 2:
37 
	SendMessage(hwndClient,WM_MDITILE,0,0);
 37 
	SendMessage(hwndClient,WM_MDITILE,MDITILE_HORIZONTAL,0);
38 
	break;
 38 
	break;
39 
    case 3:
 39 
    case 3:
- 
 
 40 
	SendMessage(hwndClient,WM_MDITILE,MDITILE_VERTICAL,0);
- 
 
 41 
	break;
- 
 
 42 
    case 4:
40 
	SendMessage(hwndClient,WM_MDIICONARRANGE,0,0);
 43 
	SendMessage(hwndClient,WM_MDIICONARRANGE,0,0);
41 
	break;
 44 
	break;
42 
    }
 45 
    }
43 
}
 46 
}
44 
 
 47 
 
Line 46... Line 49...
46 
{
 49 
{
47 
    menu m ;
 50 
    menu m ;
48 
    if (!ismdi()) return NULL;
 51 
    if (!ismdi()) return NULL;
49 
    m = newmenu(G_("Windows"));
 52 
    m = newmenu(G_("Windows"));
50 
    setvalue(newmenuitem(G_("Cascade"),0,mdimenu),1);
 53 
    setvalue(newmenuitem(G_("Cascade"),0,mdimenu),1);
- 
 
 54 
    setvalue(newmenuitem(G_("Tile &Horizontally"),0,mdimenu),2);
51 
    setvalue(newmenuitem(G_("Tile"),0,mdimenu),2);
 55 
    setvalue(newmenuitem(G_("Tile &Vertically"),0,mdimenu),3);
52 
    setvalue(newmenuitem(G_("Arrange Icons"),0,mdimenu),3);
 56 
    setvalue(newmenuitem(G_("Arrange Icons"),0,mdimenu),4);
53 
    current_menubar->menubar = m;
 57 
    current_menubar->menubar = m;
54 
    return m;
 58 
    return m;
55 
}
 59 
}
56 
 
 60 
 
57 
menu newpopup(actionfn fn)
 61 
menu newpopup(actionfn fn)