home *** CD-ROM | disk | FTP | other *** search
- /*
- Prog.Name : PULLDOWN.INC
- Copyright : (c) 1991 by SUPPORT-EDV-Beratung GbR
- Postfach 44 13
- 6100 Darmstadt 1
-
- Note : Use for PULLDOWN Tool 1.00 or greater
- -----
- Include File with functions to use PULLDOWN.OBJ
- */
-
- extern int ScrCnt; /* Index Screen Counter */
- extern int T_Color; /* Textcolor Foreground */
- extern int B_Color; /* Textcolor Background */
- extern Byte Density; /* High Video = 1, Low Video = 0 */
- extern char Date_[9]; /* Field for Date TT.MM.JJ */
- extern char Time_[6]; /* Field for Time SS:MM */
- extern Byte mouse; /* TRUE if mouse detected */
-
- extern int Topcolor; /* Textcolor Pulldown Top */
- extern int Downcolor; /* Background Pulldown Top */
- extern int Menu_tc; /* Textcolor Pulldown Text */
- extern int Menu_bc; /* Background Pulldown Text */
- extern int Hightext; /* Textcolor Pulldown Sign */
- extern int Lowtext; /* Background Pulldown Sign */
-
- int _pd_()
- {
- int z;
- signed int retcode;
-
- Topcolor = TOPCOLOR; /* Textcolor Pulldown Top */
- Downcolor = DOWNCOLOR; /* Background Pulldown Top */
- Menu_tc = MENU_TC; /* Textcolor Pulldown Text */
- Menu_bc = MENU_BC; /* Background Pulldown Text */
- Hightext = HIGHTEXT; /* Textcolor Pulldown Sign */
- Lowtext = LOWTEXT; /* Background Pulldown Sign */
- retcode = Top_Pulldown(Topcolor,Downcolor,HEADLINE);
- if ( retcode == TEXTSUM_FAILURE )
- {
- Err25("Too many Text to build Headline --> REDUCE characters",B_YELLOW,RED);
- exit(TEXTSUM_FAILURE);
- }
- retcode = pulldown(PULLDOWNS);
- /* if ( mouse )
- ms_intr(FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,(char far *)ms_null);
- */ return(retcode);
- }