开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 界面编程 > 查看源码
APPLICAT.CPP
资源名称：dos_gui.zip　[点击查看]
上传用户：wtrl82617
上传日期：2007-01-07
资源大小：187k
文件大小：32k
源码类别：

界面编程

开发平台：

DOS

APPLICAT.CPP：源码内容
  1. ///////////////////////////////////////////////////////////////
  2. ///////// Note::: ONLY SLOWTIMER_MSG  DISHIBITED  5/27/1994
  3. ///////////////////////////////////////////////////////////////
  5. // 1993 (c) ALL RIGHTS RESERVED
  6. // AUTHOR:  XuYongYong
  8. /*      applicat.cpp
  9. */
  10. #include "applicat.h"
  11. #include "yyxmain.h"
  12. #include "msgbox.h"
  13. #include <process.h>
  14. #include <dos.h>
  15. #include <alloc.h>
  16. #include "mouse.h"
  18. #include <malloc.h>
  19. #include <string.h>
  20. #include <fcntl.h>
  21. #include <stdio.h>
  23. extern "C" far _selectVGABitPlane ( int planeNo, int cmd );
  24. enum dosErr { dosInvalidFuncCode = 1, dosFileNotFound, dosPathNotFound,
  25. dosTooManyOpenFiles, dosAccessDenied, dosInvalidHandle,
  26. dosMemCtrlBkDestryed, dosInsufficientMem, dosInvalidMemBkAddr,
  27. dosInvalidEnvir, dosInvalidFormat, dosInvalidAccessCode,
  28. dosInvalidDate, dosUnKnownErr, dosInvalidDrv, dosAttemptRDCurDir,
  29. dosNotSameDevice, dosNoMoreFiles, dosDiskIsWriteProtected,
  30. dosBadDiskUnit, dosDriveNotReady, dosInvalidDiskCom, dosCRCErr,
  31. dosInvalidLeninDiskOp, dosSeekErr, dosNotDosDisk, dosSectorNotFound,
  32. dosOutofPaper, dosWriteFault, dosReadFault, dosGeneralFailt,
  33. dosSharingViolation, dosLockViolation, dosWrongDisk };
  36. application_class::application_class (int menu_num,char *title)
  37. { int i;
  38. this->menu_num =menu_num;
  39. if (this->menu_num<40) this->menu_num=40;
  40. my_menu=(Tmenu **) farmalloc( (sizeof (Tmenu*)) * (menu_num+1) );
  41. for (i=0;i<menu_num;i++ ) my_menu[i]=NULL;
  42. for (i=0;i<=5;i++ )  sub_sysmenu[i]=NULL;
  43. for (i=0;i<=5;i++ )  sub_win_sysmenu[i]=NULL;
  44. start_menu =NULL;
  46. this->title =title;
  47. // /interrupt/interrupt/interrupt/interrupt/interrupt/interrupt/interrupt
  48. //      timer_active =FALSE;
  49. //      kb_active=FALSE;
  50. //      TIMER_COUNT =10;
  51. //      SLOW_TIMER_COUNT =20;
  53. init_msg();     //MUST DO IT FIRST,in case clock send msg
  55. old_timer =getvect (TIMER_VECTOR);
  56. setvect (TIMER_VECTOR,application_class::timer);
  58. key_code =0;
  59. old_key =getvect (KEY_VECTOR);
  60. setvect (KEY_VECTOR,application_class::key  );
  62. old_dos_error =getvect (DOS_ERROR_VECTOR );
  63. setvect (DOS_ERROR_VECTOR ,application_class::dos_error  );
  65. old_mouse =getvect (MOUSE_VECTOR);              //MUST INIT LATER
  66. //      setvect (MOUSE_VECTOR,application_class::mouse  );
  67. }
  69. BOOL application_class::timer_active =FALSE;
  70. BOOL application_class::kb_active=FALSE;
  71. BOOL application_class::mouse_active=FALSE;
  72. BOOL application_class::dos_error_active=FALSE;
  74. int      application_class::TIMER_COUNT =20;
  75. int  application_class::SLOW_TIMER_COUNT =40;
  76. //int  application_class::key_code =0;
  77. int  application_class::time_counter =0;
  78. int  application_class::slow_time_counter =0;
  80. application_class::~application_class ()
  81. { int i;
  82. //      my_menu[0]->dispose_all_submenus();
  83. //      delete (my_menu[0]);
  84. for (i=0;i<menu_num;i++ ) if (my_menu[i]!=NULL ) delete (my_menu[i]);
  85. //      delete (my_menu[39]);
  86. delete (sysmenu);
  87. for (i=0;i<=5;i++ ) if (sub_sysmenu[i]!=NULL )delete (sub_sysmenu[i]);
  88. delete (win_sysmenu);
  89. for (i=0;i<=5;i++ )if(sub_win_sysmenu[i]!=NULL )delete (sub_win_sysmenu[i]);
  90. //
  91. if (start_menu !=NULL) delete (start_menu);
  92. farfree (my_menu);
  94. //   restore old int1c
  95. if (getvect(TIMER_VECTOR)==application_class::timer )
  96. setvect (TIMER_VECTOR,old_timer);
  97. if (getvect(KEY_VECTOR)==application_class::key )
  98. setvect (KEY_VECTOR,old_key);
  99. if (getvect(MOUSE_VECTOR)==application_class::mouse)
  100. setvect (MOUSE_VECTOR,old_mouse);
  101. if (getvect(DOS_ERROR_VECTOR)==application_class::dos_error)
  102. setvect (DOS_ERROR_VECTOR,old_dos_error);
  104. if (sysmouse) delete sysmouse;
  105. }
  108. void application_class::get_my_menu()
  109. {
  110. my_menu[0] =new Tmenu (0,title,main_help_text,NULL );
  112. sysmenu =new Tsysmenu (101,"& ","ALT_SPACE",my_menu[0]); {
  113. sysmenu->bounds.left =my_menu[0]->bounds.left+1;
  114. sysmenu->bounds.top =my_menu[0]->bounds.top+1;
  115. sysmenu->bounds.right=sysmenu->bounds.left+bar_height-2;
  116. sysmenu->bounds.bottom =my_menu[0]->bounds.bottom-1;
  117. }
  118. sub_sysmenu[0]=new Tmenu(SYS_RESTOREID,"&Restore","Restore windnow ",sysmenu);
  119. sub_sysmenu[1]=new Tmenu(SYS_MOVEID,"&Move","Move window",sysmenu);
  120. sub_sysmenu[2]=new Tmenu(SYS_SIZEID,"&Size","Change window size",sysmenu);
  121. sub_sysmenu[3]=new Tmenu(SYS_MINIMIZEID,"Mi&nimize","Iconinize window",sysmenu);
  122. sub_sysmenu[4]=new Tmenu(SYS_MAXIMIZEID,"Ma&ximize","Streatch window",sysmenu);
  123. sub_sysmenu[5]=new Tmenu(SYS_CLOSEID,"Close","Close window",sysmenu);
  124.  int i;
  125. for (i=0;i<5;i++) sub_sysmenu[i]->status |= DISABLE;
  126. // the order is important
  127. win_sysmenu =new Tsysmenu (100,"","",my_menu[0]); {
  128. win_sysmenu->bounds.left =my_menu[0]->bounds.left+1;
  129. win_sysmenu->bounds.top =my_menu[0]->bounds.top+1;
  130. win_sysmenu->bounds.right=win_sysmenu->bounds.left+bar_height-LINE_WIDTH+1;
  131. win_sysmenu->bounds.bottom =my_menu[0]->bounds.bottom-1;
  132. //              OffsetRect (&win_sysmenu->bounds ,100,100 );
  133. win_sysmenu->status =INVISIBLE;
  134. }
  135. sub_win_sysmenu[0]=new Tmenu(WIN_SYS_RESTOREID,"&Restore","Restore windnow to ",win_sysmenu);
  136. sub_win_sysmenu[1]=new Tmenu(WIN_SYS_MOVEID,"&Move","Move window",win_sysmenu);
  137. sub_win_sysmenu[2]=new Tmenu(WIN_SYS_SIZEID,"&Size","Change window size",win_sysmenu);
  138. sub_win_sysmenu[3]=new Tmenu(WIN_SYS_MINIMIZEID,"Mi&nimize","Iconinize window",win_sysmenu);
  139. sub_win_sysmenu[4]=new Tmenu(WIN_SYS_MAXIMIZEID,"Ma&ximize","Streatch window",win_sysmenu);
  140. sub_win_sysmenu[5]=new Tmenu(WIN_SYS_CLOSEID,"Close","Close window",win_sysmenu);
  142. //  Set Imme_key
  143. Imme_Menu_ID[0]= SYS_CLOSEID ;  Immediate_key[0]=ALT_F4; Imme_Menu_fptr[0]=sub_win_sysmenu[5];
  144. Max_Imme_key_nums=2;
  145. }
  147. BOOL application_class::echo_to_menu(long menu_ID)      // utter virtual
  148. {
  149. switch (menu_ID ){
  150. case SYS_CLOSEID    :thequeue.SendMessage(0
  151. ,SysQuitMSG,NULL );
  152. break;
  153. case WIN_SYS_CLOSEID :
  154. thequeue.SendMessage(pcurrent_selected_win->ID
  155. ,WinSysCloseMSG,pcurrent_selected_win );
  156. break;
  157. case DOSSHELL           : DosShell (); break;
  158. case WIN_SYS_MOVEID :
  159. case WIN_SYS_SIZEID     :
  160. key_code=CTRL_F5;
  161. thequeue.SendMessage(0, KeyPressedMSG,NULL);
  162. break;
  163. default :return FALSE;
  164. }
  165. return TRUE;    // handled
  166. }
  168. /* ********************************************************************* */
  169. /* ****************************   KEY    ******************************* */
  170. /* ********************************************************************* */
  171. int  application_class::key_pressed_handler ( int key_scan_num )
  172. {
  173. return FALSE;
  174. }
  176. /* ********************************************************************* */
  177. /* ****************************   MSG    ******************************* */
  178. /* ********************************************************************* */
  179. void application_class::show_status(int kind)
  180. {// disable();
  181. getviewsettings (&current_viewport );
  182. setport (menu_viewport);
  183. setcolor (HELP_TEXT_COLOR);
  184. switch ( kind ) {
  185. case SYS_STATUS:
  186. FillRect ( sys_status_rect,HELP_RECT_COLOR );
  187. outtextxy(sys_status_rect.left+10,sys_status_rect.top,sys_status_string);
  188. break;
  189. case STATUS:
  190. FillRect ( status_rect,HELP_RECT_COLOR );
  191. outtextxy(status_rect.left+10,status_rect.top,status_string);
  192. break;
  193. case HELP_STATUS:
  194. FillRect ( on_line_help_rect,HELP_RECT_COLOR );
  195. outtextxy( on_line_help_rect.left+10,on_line_help_rect.top,main_help_text);
  196. break;
  197. }
  198. //      disable();
  199. setport (current_viewport );
  200. //      enable();
  201. }
  203. int application_class::first_class_msg_handler ( MSG& message )
  204. {
  205. switch ( message .Action){
  206. //              case MouseLButtonDownMSG:
  207. //                      break;
  208. case MenuActionMSG:
  209. return echo_to_menu(sysmsg.ID);
  210. case DlgOkedMSG:
  211. return Dlg_OK;
  212. case DlgCanceledMSG:
  213. return Dlg_CANCEL;
  214. /*              case TimerMSG:
  215.   static unsigned int i=0;
  216. switch (i++ %8) {
  217. case 0:
  218. sprintf (status_string,"_stklen:%ux",_stklen);
  219. break;
  220. case 2:
  221. sprintf (status_string,"s:%up:%ux",stackavail(),_SP);
  222. break;
  223. case 4:
  224. sprintf(status_string,"heaptop:%lux", (unsigned long) coreleft());
  225. break;
  226. case 6:
  227. sprintf(status_string,"Fhtop:%lux", (unsigned long) farcoreleft());
  228. break;
  229. }
  230. show_status(STATUS);
  231. return FALSE;
  232.  */             case SlowTimerMSG:
  233.   static int heap;
  234. switch (slow_timer_click ++ %4) {
  235. /*                      case 0:
  236. if (getvect(MOUSE_VECTOR) !=application_class:: mouse ){
  237. strcpy (sys_status_string,"MOUSE UNOK");
  238. if (!sysmouse) strcat (sys_status_string," !!");
  239. else {
  240. setvect (MOUSE_VECTOR,application_class::mouse );
  241. sysmouse->on(0);
  242. }
  243. }
  244. else strcpy (sys_status_string,"MOUSE OK");
  245. break;
  246. case 1:
  247. //~                             if      ((heap=heapcheckfree(0xff)) == _HEAPOK ) strcpy (sys_status_string,"HEAP OK");
  248. //~                                     else if (heap==_BADVALUE) strcpy (sys_status_string,"BAD VALUE");
  249. //~                                     else strcpy (sys_status_string,"HEAP CORRUPT");
  250. if      ((heap=heapfillfree(0xff)) == _HEAPOK ) strcpy (sys_status_string,"HEAP OK");
  251. else if (heap==_HEAPEMPTY) strcpy (sys_status_string,"EMPTY");
  252. else strcpy (sys_status_string,"HEAP CORRUPT");
  253. break;
  254. case 2:
  255. if      ((heap=farheapfillfree(0x88)) == _HEAPOK ) strcpy (sys_status_string,"FARH OK");
  256. else if (heap==_HEAPEMPTY) strcpy (sys_status_string,"EM FARH");
  257. else strcpy (sys_status_string,"FARH RUPT");
  258. break;
  259. default:return FALSE;
  260. */                      }
  261. //                      show_status(SYS_STATUS);
  262. return FALSE;
  263. case SysQuitMSG:
  264. return Sys_QUIT;
  265. case KeyPressedMSG:
  266. return key_pressed_handler( key_code );
  267. case WinMovingSizingMSG: //for mouse only
  268. pcurrent_selected_win-> draw_size_rect();
  269. if (in_win_moving ==TRUE)       //moving
  270. OffsetRect (&pcurrent_selected_win->newbounds,
  271.  mouse_x-old_mouse_x,mouse_y-old_mouse_y );
  272. else {  //sizing
  273. pcurrent_selected_win->newbounds.right +=mouse_x-old_mouse_x;
  274. pcurrent_selected_win->newbounds.bottom +=mouse_y-old_mouse_y;
  275. }
  276. if (pcurrent_selected_win->newbounds.right>
  277. win_living_viewport.right-win_living_viewport.left-2)
  278. pcurrent_selected_win->newbounds.right
  279. =win_living_viewport.right-win_living_viewport.left-2;
  280. if (pcurrent_selected_win->newbounds.bottom>
  281. win_living_viewport.bottom-win_living_viewport.top-2)
  282. pcurrent_selected_win->newbounds.bottom
  283. =win_living_viewport.bottom-win_living_viewport.top-2;
  284. if (pcurrent_selected_win->newbounds.left<2)
  285. pcurrent_selected_win->newbounds.left=2;
  286. if (pcurrent_selected_win->newbounds.top<2)
  287. pcurrent_selected_win->newbounds.top=2;
  289. old_mouse_x=mouse_x;
  290. old_mouse_y=mouse_y;
  291. pcurrent_selected_win-> draw_size_rect();
  292. return TRUE;
  293. case WinSysCloseMSG:
  294. if (! (((Twin*)message.fptr)->canclose||
  295.   (((Twin*)message.fptr)->func_canclose()) ))  return FALSE;
  296.   int x,y;
  297. if (((Twin*)(message.fptr)) !=pcurrent_selected_win)
  298. ((Twin*)(message.fptr))->select();
  299. x=((Twin*)message.fptr)->bounds.left+win_living_viewport.left-menu_viewport.left+LINE_WIDTH;
  300. y=((Twin*)message.fptr)->bounds.top+win_living_viewport.top -menu_viewport.top+LINE_WIDTH;
  301. win_sysmenu->offsetmenu(-x,-y);
  302. win_sysmenu->status |=INVISIBLE;
  303. delete ((Twin*)message.fptr );
  304. //                      delete message.fptr;
  305. return TRUE ;
  306. case CtrlBreakMSG:
  307. error ("Ctrl  Break Pressed");
  308. break;
  309. default: ;//thequeue.GetMessage(sysmsg);
  310. }
  311. return FALSE;
  312. }
  314. int application_class::second_class_msg_handler ( MSG& message )
  315. {
  316. return FALSE;
  317. }
  320. int application_class::main_message_loop()
  321. { int ret_value=FALSE;
  322. while ( thequeue.GetMessage(sysmsg) )
  323. {
  324. if ((ret_value =first_class_msg_handler(sysmsg))!=FALSE) return ret_value;
  325. // This is the messages MUST be handled; && No more msg should
  326. // converted to the menu && dialog && win moving
  327. // && including messages must be shown in ret_value;
  328. if ( ( pcurrent_selected_win ==NULL )||
  329.  ((!in_win_moving)&&(!(pcurrent_selected_win->type & DIALOG_WIN)))
  330.    )
  331. ret_value =pcurrent_menu->msg_handler(sysmsg);
  332. if ( (in_menu_trap)||(ret_value!=FALSE) ) return ret_value;
  334. if ( pcurrent_selected_win !=NULL )
  335. pcurrent_selected_win->msg_handler(sysmsg);
  336. second_class_msg_handler(sysmsg);
  337. ////////////////!!!!!!!!!!!! New
  338. ///////////     if ( sysmsg.Action == KeyPressedMSG ) key_code =0;
  339. }
  340. if  (
  341. (!in_menu_trap) &&
  342. ( ( pcurrent_selected_win ==NULL )||((!in_win_moving)&&(!(pcurrent_selected_win->type & DIALOG_WIN))))
  343. )
  344. anything_in_the_loop();
  345. return ret_value;
  346. }
  348. void application_class::anything_in_the_loop(){};
  350. void application_class::run()
  351. {
  352.  int keynum;
  353. Begin_Program:
  354. init();
  355. while (1) {
  356. /*              if( (keynum=bioskey(1) )== -1 ) break;
  357. else if (keynum !=0 ) {
  358. keynum=bioskey(0);
  359. key_pressed_handler( keynum );
  360. }
  361. */              if (main_message_loop()==Sys_QUIT) break;
  362. //              if (RE_START != 0) init_screen();       //goto Begin_Program;
  363. }
  364. }
  366. /* ********************************************************************* */
  367. /* ****************************   INIT   ******************************* */
  368. /* ********************************************************************* */
  369. void application_class::init()
  370. {
  371. init_screen();
  372. init_menu();  // the order is important
  373. draw_application_win();
  374. //  settextstyle (DEFAULT_FONT,HORIZ_DIR,1 );
  375. init_win();
  376. init_ctrl();
  378.   void far *mouse_addr;
  379. mouse_addr =getvect (0x33);
  380. if (  (!((mouse_addr==NULL )||(*(unsigned char *)mouse_addr==0xcf))) &&
  381.  !nomouse
  382.    )  { sysmouse=new Tmouse();
  383. old_mouse =getvect (MOUSE_VECTOR);
  384. setvect (MOUSE_VECTOR,application_class::mouse  );
  385. }
  386. else sysmouse =NULL;
  388. }
  390. //#include "tvga256.h"  // Needs More MEMORY
  391. void application_class::init_screen()
  392. {
  393.   int gdriver = DETECT, gmode, errorcode;
  395. //      gdriver = installuserdriver("TVGA256",DETECTTVGA);/* Request auto-detection     */
  396. //      gmode = TVGA640x480;
  398. initgraph(&gdriver, &gmode, "");
  399. errorcode = graphresult();
  400. if (errorcode != grOk)  /* an error occurred */         {
  401. printf("Graphics error: %sn", grapherrormsg(errorcode));
  402. printf("Press any key to halt:");
  403. getch();
  404. error("graphics error exit");      /* return with error code */
  405. }
  406. //      RE_START =0;
  407. screen_viewport.left=0;         screen_viewport.top =0;
  408. screen_viewport.right =getmaxx();       screen_viewport.bottom=getmaxy();
  409. screen_viewport.clip =CLIP_ON;
  410. setusercharsize (10,10,10,10);
  411. settextstyle (DEFAULT_FONT+SMALL_FONT,HORIZ_DIR, /*USER_CHAR_SIZE*/6 );
  412. setport (screen_viewport);
  413. setfillstyle (SOLID_FILL, LIGHTGRAY );
  414. bar (screen_viewport.left,screen_viewport.top,screen_viewport.right,screen_viewport.bottom);
  415. font_height =textheight ("HjklMq") +8;
  416. bar_height =20;
  418. menu_viewport =screen_viewport;
  419. menu_viewport.left      +=5;            menu_viewport.top       +=5;
  420. menu_viewport.right -=5;        menu_viewport.bottom-=5;
  422. }
  424. void application_class::draw_application_win()
  425. {
  426. /////////////////////////////INIT MENUS PART/////////////////////////////////
  427. /////////////////////////////INIT MENUS PART/////////////////////////////////
  428. /////////////////////////////INIT MENUS PART/////////////////////////////////
  429. // draw Frame rect of the screen
  430. pcurrent_menu =start_menu;
  431. pcurrent_menu->psub_menu_selected =my_menu[0];
  433. setport (screen_viewport);
  434. setlinestyle ( SOLID_LINE,1,THICK_WIDTH );
  435. setcolor(LIGHTGRAY);
  436. Rect temp_rect;
  437. SetRect (&temp_rect,menu_viewport.left,menu_viewport.top,
  438. menu_viewport.right,menu_viewport.bottom );
  439. InsetRect (&temp_rect, -LINE_WIDTH,-LINE_WIDTH);
  440. draw_win_frame_rect ( temp_rect );
  441. //  change menu_viewport
  442. setfillstyle (SOLID_FILL, WHITE );
  444. bar (menu_viewport.left,menu_viewport.top,menu_viewport.right,menu_viewport.bottom);
  446. //  draw help_rect
  447. /*      SetRect (&on_line_help_rect,0,
  448. menu_viewport.bottom-menu_viewport.top-bar_height-10,
  449. menu_viewport.right-menu_viewport.left,
  450. menu_viewport.bottom-menu_viewport.top);
  451. */
  452. SetRect (&on_line_help_rect,0,
  453. menu_viewport.bottom-menu_viewport.top-bar_height-10,
  454. 250,
  455. menu_viewport.bottom-menu_viewport.top);
  457. SetRect (&sys_status_rect,270,
  458. menu_viewport.bottom-menu_viewport.top-bar_height-10,
  459. 360,
  460. menu_viewport.bottom-menu_viewport.top);
  462. SetRect (&status_rect,380,
  463. menu_viewport.bottom-menu_viewport.top-bar_height-10,
  464. menu_viewport.right-menu_viewport.left,
  465. menu_viewport.bottom-menu_viewport.top);
  467. setport (menu_viewport);
  468. FillRect (on_line_help_rect, HELP_RECT_COLOR );
  469. InsetRect (&on_line_help_rect, -5, -5 );
  470. draw_in_button (on_line_help_rect );
  471. InsetRect (&on_line_help_rect, -1, -1 );
  473. FillRect (sys_status_rect, HELP_RECT_COLOR );
  474. InsetRect (&sys_status_rect, -5, -5 );
  475. draw_in_button (sys_status_rect );
  476. InsetRect (&sys_status_rect, -1, -1 );
  478. FillRect (status_rect, HELP_RECT_COLOR );
  479. InsetRect (&status_rect, -5, -5 );
  480. draw_in_button (status_rect );
  481. InsetRect (&status_rect, -1, -1 );
  483. if (pcurrent_menu ->psub_menu_selected !=NULL ) {
  484. pcurrent_menu ->psub_menu_selected->pfather_menu=pcurrent_menu;
  485. pcurrent_menu ->psub_menu_selected->select();
  486. pcurrent_menu ->psub_menu_selected->pfather_menu=NULL;
  487. // this makes MOUSE DEAD
  488. }
  489. pcurrent_menu ->enter_menu();
  491. //  draw sys menu
  492. setcolor (BLACK);
  493. if (pcurrent_menu != NULL ) {
  494. Rect tmprect;
  495. setport (menu_viewport);
  496. tmprect = pcurrent_menu->save_bitmap.bounds;
  497. InsetRect (&tmprect ,0,1);
  498. FrameRect (tmprect);
  499. }
  500. FillRect (sysmenu->bounds,LIGHTGRAY );
  501. setcolor (BLACK );
  502. FrameRect (sysmenu->bounds);
  503. sysmenu->bounds.bottom -=1;
  504. sysmenu->bounds.right -=1;
  506. sysmenu->draw ();               //Not Very Good
  508. //  draw up & down rect;
  509.   Rect up_rect,down_rect;
  510. down_rect =my_menu[0]->bounds;
  511. down_rect.left=down_rect.right -bar_height+1;
  512. down_rect.right -=1;
  513. down_rect.bottom -=1;
  514. OffsetRect (&down_rect,LINE_WIDTH-1,0 );
  515. up_rect=down_rect;
  516. OffsetRect (&up_rect, -bar_height+1,0 );
  518. draw_out_button (down_rect);
  519. draw_out_button (up_rect);
  520. }
  522. void application_class::init_msg()
  523. {
  524. thequeue.Reset();
  525. }
  527. void application_class::init_menu()
  528. {   in_menu_trap =FALSE;
  529. start_menu =new Tmenu ("INIT","");
  531. MENU_ITEM_ENABLED_COLOR  =BLACK     ;
  532. MENU_ITEM_SELECTED_COLOR =WHITE ; // for text
  533. MENU_ITEM_DISABLED_COLOR =DARKGRAY;
  534. MENU_ITEM_SELECT_COLOR   =BLUE          ; // for bar
  535. HELP_RECT_COLOR         =LIGHTGRAY ;
  536. HELP_TEXT_COLOR =       BLACK;
  537. MENU_RECT_COLOR =       WHITE ;
  539. get_my_menu();
  541. // show menus
  542. }
  544. void application_class::init_win ()
  545. {
  546. win_living_viewport=menu_viewport;
  547. win_living_viewport.top +=2*bar_height;
  548. win_living_viewport.bottom -=2*bar_height;
  550. pfirst_win_of_all =NULL;
  551. pcurrent_selected_win =NULL;
  553. WIN_TITLEBAR_SELECTED_COLOR             =BLUE;
  554. WIN_TITLEBAR_UNSELECTED_COLOR   =LIGHTGRAY;
  556. WIN_TITLE_SELECTED_COLOR   =WHITE;
  557. WIN_TITLE_UNSELECTED_COLOR =BLACK;
  559. WIN_BACKGROUND_COLOR    =WHITE;
  560. }
  562. void application_class::init_ctrl ()
  563. {
  564. }
  566. //////////////////////////////////////////////////////////////////////////
  567. ///////////////////////////////DOSSHELL///////////////////////////////////
  568. //////////////////////////////////////////////////////////////////////////
  569. /*      // OLD VERSION
  570. void application_class::DosShell(void)
  571. {
  572.   int result;
  573. if (pcurrent_selected_win != NULL ) {
  574. exec_dialog(new Tmsgbox("Message","MUST CLOSE ALL WINDOWS",MB_OK));
  575. //              thequeue.SendMessage(pcurrent_selected_win->ID,
  576. //                      WinSysCloseMSG,pcurrent_selected_win);
  577. //              return ;
  578. }
  579. closegraph();
  580. setvect (KEY_VECTOR,old_key);
  581. setvect (TIMER_VECTOR,old_timer); //otherwise; queue will run out of it
  582. puts("Type EXIT to return to Main Program . . .");
  584. result = spawnlp(P_WAIT, "command.com", NULL);
  585. if(result==-1)  {
  586. puts("nNot enough memory to run command.com. . .");
  587. getch();
  588. }
  590. init_screen();
  591. draw_application_win();
  592. setvect (KEY_VECTOR,application_class::key  );
  593. setvect (TIMER_VECTOR,application_class::timer );
  594. if (sysmouse) sysmouse->on(0);
  595. }
  596. */
  598. void application_class::DosShell(void)
  599. {
  600.   int result;
  602.   void  interrupt (*mynow_timer)(...);
  603.   void  interrupt (*mynow_key  )(...);
  604.   void  interrupt (*mynow_dos_error)(...);
  605.   void  interrupt (*mynow_mouse)(...);
  607. mynow_timer=getvect (TIMER_VECTOR);
  608. mynow_key  =getvect (KEY_VECTOR);
  609. mynow_dos_error=getvect (DOS_ERROR_VECTOR);
  610. mynow_mouse=getvect (MOUSE_VECTOR);
  612. setvect (KEY_VECTOR,old_key);
  613. setvect (DOS_ERROR_VECTOR,old_dos_error);
  614. setvect (TIMER_VECTOR,old_timer);
  615. if (getvect(MOUSE_VECTOR)==application_class::mouse)
  616. setvect (MOUSE_VECTOR,old_mouse);
  617. //otherwise; queue will run out of it
  619. mouse_off;
  620. _screen2Disk ( "XYYSWP.SWP" );
  621. closegraph();
  623. puts("Type EXIT to return to Main Program . . .");
  625. result = spawnlp(P_WAIT, "command.com", NULL);
  626. if(result==-1)  {
  627. puts("nNot enough memory to run command.com. . .");
  628. getch();
  629. }
  631. init_screen();
  632. //  cleardevice ();
  633. if      ( ( _disk2Screen ( "XYYSWP.SWP" ) ) != 0 ) exit (144);
  634. remove ( "XYYSWP.SWP" );
  636. ///     draw_application_win();
  637. setvect (KEY_VECTOR,mynow_key );
  638. setvect (TIMER_VECTOR,mynow_timer );
  639. setvect (DOS_ERROR_VECTOR,mynow_dos_error);
  640. setvect (MOUSE_VECTOR,mynow_mouse);
  641. mouse_on;
  642. }
  645. // if swp file error occur, it return DOS_ERR Code!
  646. int application_class::_screen2Disk ( const char * swpfile )
  647. // return 0 on success // else fail
  648. {
  649.   int result = 0, i;
  650.   FILE *stream;
  651.   size_t count;
  652.   char tmpstr [ 32 ] = "ADFFT(c)LDh1994";
  653.   struct dosdate_t da;
  654.   struct dostime_t ti;
  656. _dos_gettime ( & ti );
  657. _dos_getdate ( & da );
  658. for ( i = strlen ( tmpstr ); i < 32; i ++ ) tmpstr [ i ] = 0;
  659. i = 24;
  660. tmpstr [ i ++ ] = 0x05; // swp file's bandle ID
  661. i ++;
  662. *( (unsigned int *) ( & ( tmpstr [ i ] ) ) ) =
  663. ( (unsigned) ti.hour<<11 ) + ( (unsigned) ti.minute<<5) +
  664. (unsigned) ti.second + 2;
  665. i ++; i ++;
  666. *( (unsigned int *) ( & ( tmpstr [ i ] ) ) ) =
  667. ( ( da.year - 1980 )<<9 ) + ( (unsigned) da.month<<5) +
  668. (unsigned) da.day;
  670. if (( stream = fopen(swpfile, "w+b")) == NULL ) return (-1);
  671. if (( count = fwrite(tmpstr,32 , 1, stream)) != 1 )  return (-1);
  673. //      if      ( ( _currentGrafPort->device == VGA )   // IS VGAHI
  674. //              && ( _currentGrafPort->mode == VGAHI ) )
  675. if      ( ( 1 )
  676. && ( 1 ) )
  677. {
  678. for ( i = 0; i < 4; i ++ )
  679. {
  680. // enable VGA bit-plane read
  681. _selectVGABitPlane ( i, 0 );
  682. fseek ( stream,i* 38400L+32, SEEK_SET );
  683. if ((count =fwrite((void far*)0xa0000000L,
  684. (unsigned)38400, 1, stream) ) != 1 ) return (-1);
  685. }
  686. }
  687. else return (-1);
  689. if      ( ( fclose ( stream ) ) != 0 ) return -1;
  690. return 0;
  691. }
  695. int application_class::_disk2Screen ( const char * swpfile )
  696. {
  697.   int result = 0, i;
  698.   FILE *stream;
  699.   size_t count;
  700.   char tmpstr [ 32 ];
  702. if (( stream = fopen(swpfile, "r+b")) == NULL ) return (-1);
  703. if (( count = fread (tmpstr,32 , 1, stream)) != 1 )  return (-1);
  705. if      ( ( strcmp ( tmpstr, "ADFFT(c)LDh1994" ) != 0 ) || ( tmpstr [ 24 ] != 0x05 ) )
  706. return dosFileNotFound;
  708. //      if      ( ( _currentGrafPort->device == VGA )  //       OK VGAHI
  709. //              && ( _currentGrafPort->mode == VGAHI ) )
  710. if      ( ( 1 )
  711. && ( 1 ) )
  712. {
  713. for ( i = 0; i < 4; i ++ )
  714. {
  715. // enable VGA bit-plane write
  716. _selectVGABitPlane ( i, 1 );
  717. fseek ( stream,i* 38400L+32, SEEK_SET );
  718. if ((count =fread ((void far*)0xa0000000L,
  719. (unsigned)38400, 1, stream) ) != 1 ) return (-1);
  720. }
  721. }
  722. else return (-1);
  724. if      ( ( fclose ( stream ) ) != 0 ) return -1;
  725. return 0;
  726. }
  729. /////////////////////////////////////////////////////////////////////////
  730. //////////////////////////      exec a dialog  //////////////////////////////
  731. /////////////////////////////////////////////////////////////////////////
  732. int application_class::exec_dialog(Tdialog *pdialog_handled)
  733. { int ret_value;
  734.   int keynum;
  736.   class MSGQueue savqueue;
  737.   MSG savmsg;
  739. savqueue =thequeue;
  740. savmsg =sysmsg;
  741. thequeue.Reset();
  742. pdialog_handled->open_one_win ();
  743. do {
  744. ret_value=main_message_loop();
  745. }       while ( ( (ret_value != Dlg_OK)&&(ret_value!=Dlg_CANCEL) ) ||   //Dlg_OK or Dlg_CANCEL
  746. (pdialog_handled ==pcurrent_selected_win )  );
  747. // similar to run
  748. // others no need to delete now
  749.  //     No need to delete pdialog_handled;--->deleted as it is closed
  750. asm cli;
  751. sysmsg   =savmsg;
  752. thequeue =savqueue;
  753. asm sti;
  755. return ret_value;
  756. }
  758. ///////////////////////////////////////////////////////////////////////////
  759. void interrupt application_class::timer(...)
  760. {
  761. //      disable();
  762. //  mouse still makes the program crash////////////////// WHY
  763. if (!timer_active){
  764. timer_active =TRUE;
  765. (*old_timer)(...);
  766. if (thequeue.QueueFull()) goto Ret;
  767. ///Prevent more queue
  768. if ( thequeue.first !=thequeue.last ) {
  769. if (( thequeue.msg_array[thequeue.oldfirst].Action==TimerMSG)
  770. || (thequeue.msg_array[thequeue.oldfirst].Action==SlowTimerMSG))
  771. goto Ret;
  772. }
  773. time_counter++;
  774. slow_time_counter ++;
  775. if ( time_counter > TIMER_COUNT ){
  776. time_counter =0;
  777. thequeue.SendMessage(0,TimerMSG,NULL);
  778. }
  779. if (slow_time_counter > SLOW_TIMER_COUNT ) {
  780. slow_time_counter =0 ;
  781. thequeue.SendMessage(0,SlowTimerMSG,NULL);
  782. }
  783. Ret:    timer_active =FALSE;
  784. }
  785. //      enable();
  786. }
  788. void interrupt (* application_class::old_timer) (...)=getvect(0x19);
  789. void interrupt (* application_class::old_key  ) (...)=getvect(0x19);
  790. void interrupt (* application_class::old_mouse) (...)=getvect(0x19);
  791. void interrupt (* application_class::old_dos_error) (...)=getvect(0x19);
  792. /*
  793. #define MYBIOSKEY                               
  794. switch (key_code) {                     
  795. case 0x48e0:                    
  796. key_code=UPKEY;         
  797. break;                          
  798. case 0x4be0:            
  799. key_code=LEFTKEY;       
  800. break;                          
  801. case 0x4de0:            
  802. key_code=RIGHTKEY;      
  803. break;                          
  804. case 0x50e0:            
  805. key_code=DOWNKEY;       
  806. break;                          
  808. case 0x8de0:            
  809. key_code=CTRL_UP;       
  810. break;                          
  811. case 0x73e0:            
  812. key_code=CTRL_LEFT;                             
  813. break;                          
  814. case 0x74e0:            
  815. key_code=CTRL_RIGHT;                    
  816. break;                          
  817. case 0x91e0:            
  818. key_code=CTRL_DOWN;     
  819. break;                          
  820. case SPACEKEY:                              
  821. if ( bioskey (0x12) & 0x08 )                    
  822. key_code =ALT_SPACE;                    
  823. break;                                                                  
  824. case ALT_LEFT:                              
  825. if ( bioskey (0x12) & 0x04 )                    
  826. key_code =CTRL_ALT_LEFT;            
  827. break;                                                                  
  828. case ALT_RIGHT:                             
  829. if ( bioskey (0x12) & 0x04 )                    
  830. key_code =CTRL_ALT_RIGHT;           
  831. break;                                                                  
  832. };
  833. */
  834. #define MYBIOSKEY                               
  835. switch (tmp) {                  
  836. case 0x53e0:            
  837. tmp=DELKEY;                     
  838. break;          
  839. case 0x52e0:            
  840. tmp=INSKEY;                     
  841. break;          
  842. case 0x49e0:            
  843. tmp=PGUPKEY;            
  844. break;          
  845. case 0x47e0:            
  846. tmp=HOMEKEY;            
  847. break;          
  848. case 0x4fe0:            
  849. tmp=ENDKEY;                     
  850. break;          
  851. case 0x51e0:                    
  852. tmp=PGDNKEY;            
  853. break;                          
  854. case 0x4be0:            
  855. tmp=LEFTKEY;    
  856. break;                          
  857. case 0x4de0:            
  858. tmp=RIGHTKEY;   
  859. break;                          
  860. case 0x48e0:            
  861. tmp=UPKEY;              
  862. break;                          
  863. case 0x50e0:            
  864. tmp=DOWNKEY;    
  865. break;                          
  867. case 0x8de0:            
  868. tmp=CTRL_UP;    
  869. break;                          
  870. case 0x73e0:            
  871. tmp=CTRL_LEFT;                          
  872. break;                          
  873. case 0x74e0:            
  874. tmp=CTRL_RIGHT;                 
  875. break;                          
  876. case 0x91e0:            
  877. tmp=CTRL_DOWN;  
  878. break;                          
  879. case SPACEKEY:                              
  880. if ( bioskey (0x12) & 0x08 )                    
  881. tmp =ALT_SPACE;                         
  882. break;                                                                  
  883. case ALT_LEFT:                              
  884. if ( bioskey (0x12) & 0x04 )                    
  885. tmp =CTRL_ALT_LEFT;            
  886. break;                                                                  
  887. case ALT_RIGHT:                             
  888. if ( bioskey (0x12) & 0x04 )                    
  889. tmp =CTRL_ALT_RIGHT;           
  890. break;                                                                  
  891. };
  893. void interrupt application_class::key (...)
  894. { register int tmp;
  895.   MSG tmpmsg;
  896. //      disable();
  897. (*old_key)(...);
  898. if (!kb_active ){
  899. kb_active  =TRUE;
  900. //~//~  (*old_key)(...);        // put here may cause CAPSLOCK Unable
  902. //~             switch (bioskey(1)) {
  903. switch (bioskey(0x11)) {
  904. case -1:
  905. thequeue.SendMessage(0,CtrlBreakMSG,NULL );
  906. break;
  907. case  0:break;
  908. default :
  909. //~                             key_code=bioskey(0);
  910. //                              tmp =key_code;
  911. //~                             key_code=bioskey(0x10);
  912. tmp=bioskey(0x10);
  913. if (thequeue.QueueFull())       goto Ret;
  914. MYBIOSKEY;
  915. if ( thequeue.first !=thequeue.last ) {
  916. if (( thequeue.msg_array[thequeue.oldfirst].Action
  917. ==KeyPressedMSG) && (tmp==key_code))
  918. goto Ret;
  919. }
  920. //                              if ( thequeue.PeekMessage (tmpmsg) !=FALSE ){
  921. //                                      if ((tmpmsg.Action==KeyPressedMSG) && (tmp==key_code))
  922. //                                              goto Ret;
  923. //                              }
  924. key_code =tmp;
  925. thequeue.SendMessage(0, KeyPressedMSG,NULL);
  926. }
  927. Ret:    kb_active =FALSE;
  928. }
  929. //      enable();
  930. }
  933. void interrupt  application_class::mouse(...)
  934. {
  935. //      disable();
  936. (*old_mouse)(...);
  937. if (!mouse_active ){
  938. mouse_active  =TRUE;
  939. if (in_win_moving) {
  940. if (sysmouse->get_release_count(LEFT_BUTTON) >0 ) {
  941. thequeue.SendMessage(pcurrent_selected_win->ID
  942. ,WinMovedSizedMSG,pcurrent_selected_win );
  943. in_win_moving =FALSE;
  944. mouse_active =FALSE;
  945. return ;
  946. }
  947. sysmouse->get_posn ();
  948. if ( (abs(old_mouse_x-mouse_x )<10) && (abs(old_mouse_y-mouse_y)<10) ){
  949. mouse_active =FALSE;
  950. return ;
  951. }
  952. thequeue.SendMessage(0,WinMovingSizingMSG,pcurrent_selected_win);
  953. mouse_active =FALSE;
  954. return;
  955. }
  956. if (sysmouse->get_press_count(LEFT_BUTTON) >0 )
  957. thequeue.SendMessage(0,MouseLButtonDownMSG,NULL );
  958. mouse_active =FALSE;
  959. }
  960. //      enable();
  961. }
  963. void interrupt  application_class::dos_error(...)
  964. { int i,j;
  965. i=_AX;
  966. j=_DI;
  967. if (dos_error_active ) return ;
  968. dos_error_active =TRUE;
  970. //      enable();
  971. if ( i & 0x8000 ); // AH bit7 is set ; means not disk error
  972. else {
  973. switch (j & 0xff ) {
  974. case 0x00:strcpy (msgbuf,"Write Protected");break;
  975. case 0x01:strcpy (msgbuf,"Invalid Drive Number");break;
  976. case 0x02:strcpy (msgbuf,"Drive not ready");break;
  977. default :strcpy (msgbuf,"Drive error");break;
  978. }
  979. diskerrorno = j & 0xff ;
  980. putch('07');
  981. // To let the owner do next && retry,etc
  982. //              if (theprogram->exec_dialog(new Tmsgbox("Message",msgbuf,MB_RETRYCANCEL))
  983. //                      == Dlg_OK ) _AL=0x01;
  984. //                      else    _AL =0x02;
  985. dos_error_active =FALSE;
  986. //              _AL =0x00;  cannot be touched by the caller
  987. //              asm {
  988. //                      mov bp,sp
  989. //                      mov ax,[bp+22]
  990. //                      mov al,0
  991. //                      mov [bp+22],ax
  992. //              }
  993. return;
  994. }
  995. (*old_dos_error );
  996. dos_error_active =FALSE;
  997. }