home *** CD-ROM | disk | FTP | other *** search
- /* Icon Sub 1991 小笠原博之 */
-
- #include <stdio.h>
- #include <wlib.h>
- #include <winop.h>
-
- static short _cor_attr= 9,
- _cor_font= 12;
- static char _cor_title[80];
-
- static
- cor_IconExec( wp, info )
- WindowID wp;
- EventInfo *info;
- {
- DrawBuf dbuf[2];
- switch( info->option ){
- case EventOpen:
- WindowRedraw( wp );
- return TRUE;
- case EventClose:
- WindowClose( wp );
- return TRUE;
- case EventRedraw:
- DrawSetClear( dbuf, 1 );
- DrawSetSymbol( dbuf+1, 4, 0, _cor_title,_cor_attr,_cor_font );
- WindowDraw( wp, dbuf, 2 );
- return TRUE;
- case EventMouseSwitch:
- IconMouseOperation( wp, info );
- return TRUE;
- }
- return FALSE;
- }
-
- void
- IconEnt( wp, title, attr, font )
- WindowID wp;
- int attr, /* Icon Attr */
- font; /* Icon Font */
- char *title; /* Icon Title */
- {
- _cor_attr= attr;
- _cor_font= font;
- strcpy( _cor_title, title );
- IconifyOperation( wp, strlen( title )*font/2+7, font, cor_IconExec );
- }
-