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

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

界面编程

开发平台：

DOS

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