/*Copyright (c) Anker Berg-Sonne, 1985,1986,1987*/
#include "proto.h"
#include "commdlg.h"

char szAppName[10];
char szWindowTitle[30];
HANDLE hInst, hCursor;
FARPROC lpprocAbout;
FARPROC lpprocFsel;
FARPROC lpprocPrompt;
HWND Curr_Wnd, Buf_Wnd[Maxbuffers];
LOGFONT LF;
HANDLE Buf_Font;
int Char_Width, Rfreshed=0, Char_Height, Dragging=0, DragX, DragY;
int Ch_Ch, Ch_Count=0, First=1, Cursor_On=0, Sav_Cur, Def_Height,
 Def_Width, Saved_Num_Lock, Lst_Index;
char Work[80], Path[80], Drive[3], Dir[66], File[9], Ext[5];
char Fil_String[80], Curr_Dir[80], Sel_Dir[80], Sel_Drive;
unsigned char Keyb_State[256];
int Save_My_Num_Lock, Save_Their_Num_Lock;

extern int _argc;
extern char **_argv;

BOOL FAR WINAPI About(HWND hDlg,unsigned message,WORD,LONG)
{if (message == WM_COMMAND)
 {EndDialog( hDlg, TRUE );
  return TRUE;
 } else
 if (message == WM_INITDIALOG)
  return TRUE; else
  return FALSE;
}

void SedtPaint(HWND,PAINTSTRUCT *pps,int Is_Current )
{HBRUSH hbr, hbrOld;
 HDC hDC;
 if (Rfreshed)
 {Rfreshed=0;
  return;
 }
 hDC=pps->hdc;
 if (pps->fErase)
 {hbr = CreateSolidBrush( GetSysColor(COLOR_WINDOW) );
  hbrOld = (HBRUSH)SelectObject( hDC, (HANDLE)hbr );
  FillRect( hDC, (LPRECT)&pps->rcPaint, hbr );
  SelectObject( hDC, (HANDLE)hbrOld );
  DeleteObject( (HANDLE)hbr );
 }
 SetBkMode( hDC, OPAQUE);
 if (Out_Count)
  Out_Zap();
 S_Header();
 if (In_Help)
 {Display_Help(Help_Pos);
  Out_Zap();
  Win_On_Curs();
 } else
 {if (Show_Ruler)
   S_Ruler();
  Fill_Screen(Rel_First,Rel_Last);
  if (!Is_Current)
   Mark_Cursor();
  Out_Zap();
 }
}

BOOL SedtInit(HANDLE hInstance )
{PWNDCLASS   pSedtClass;
 LoadString( hInstance, IDSNAME, (LPSTR)szAppName, 10 );
 LoadString( hInstance, IDSTITLE, (LPSTR)szWindowTitle, 30 );
 pSedtClass = (PWNDCLASS)LocalAlloc( LPTR, sizeof(WNDCLASS) );
 pSedtClass->hCursor       = LoadCursor( NULL, IDC_IBEAM );
 pSedtClass->hIcon         = LoadIcon( hInstance, (LPSTR)szAppName );
 pSedtClass->lpszMenuName  = (LPSTR)"SedtMenu";
 pSedtClass->lpszClassName = (LPSTR)szAppName;
 pSedtClass->hbrBackground = (HBRUSH)GetStockObject( WHITE_BRUSH );
 pSedtClass->hInstance     = hInstance;
 pSedtClass->style         = CS_VREDRAW | CS_HREDRAW | CS_CLASSDC;
 pSedtClass->lpfnWndProc   = SedtWndProc;
 if (!RegisterClass( (LPWNDCLASS)pSedtClass ) )
  return FALSE;
 LocalFree( (HANDLE)pSedtClass );
 return TRUE;        /* Initialization succeeded */
}

int Make_Window(int B,int Show)
{HWND hWnd;
 HMENU hMenu, hMenu1;
 HDC hDC;
 RECT Rect;
 TEXTMETRIC TM;
 HANDLE Old_Font;
 int I;
 if ((hWnd = CreateWindow((LPSTR)szAppName,
   (LPSTR)szWindowTitle,
   WS_OVERLAPPED|WS_VSCROLL|WS_MINIMIZEBOX|WS_MAXIMIZEBOX|
   WS_THICKFRAME|WS_SYSMENU,
   CW_USEDEFAULT,0,CW_USEDEFAULT,0,
   (HWND)NULL,        /* no parent */
   (HMENU)NULL,       /* use class menu */
   (HANDLE)hInst, /* handle to window instance */
   (LPSTR)NULL        /* no params to pass on */
  ))==NULL)
   return 0;
 Curr_Wnd=Buf_Wnd[B]=hWnd;
 hDC = GetDC( hWnd );
 LF.lfWidth=0;
 LF.lfEscapement=0;
 LF.lfOrientation=0;
 LF.lfItalic=0;
 LF.lfUnderline=0;
 LF.lfStrikeOut=0;
 LF.lfCharSet=ANSI_CHARSET;
 LF.lfOutPrecision=OUT_DEFAULT_PRECIS;
 LF.lfClipPrecision=CLIP_DEFAULT_PRECIS;
 LF.lfQuality=DRAFT_QUALITY;
 LF.lfPitchAndFamily=FF_MODERN;
 if (Def_Font!=0)
 {strcpy(LF.lfFaceName,"Courier New");
  LF.lfWeight=FW_BOLD;
  LF.lfHeight= -Def_Font;
 } else
 {strcpy(LF.lfFaceName,"Fixedsys");
  LF.lfWeight=FW_DONTCARE;
  LF.lfHeight=0;
 }
 Buf_Font=CreateFontIndirect((LPLOGFONT)&LF);
 Old_Font=SelectObject(hDC,Buf_Font);
 GetTextMetrics( hDC, (LPTEXTMETRIC)&TM );
 SelectObject(hDC,Old_Font);
 GetClientRect(Curr_Wnd,(LPRECT)&Rect);
 Scr_Width=(Rect.right+1)/(Char_Width=TM.tmAveCharWidth);
 Scr_Length=(Rect.bottom+1)/(Char_Height=TM.tmHeight);
 ReleaseDC( hWnd, hDC );
 SetScrollRange(hWnd,SB_VERT,0,100,1);
 if (Zoom_Windows)
  ShowWindow(hWnd,Show|SW_SHOWMAXIMIZED); else
  ShowWindow( hWnd, Show );
 Rfreshed=1;
 UpdateWindow( hWnd );
 hMenu=GetMenu(hWnd);
 for (I=0;I<Maxbuffers;I++)
 if (Buf_Wnd[I]!=0&&I!=B)
 {hMenu1=GetMenu(Buf_Wnd[I]);
  GetMenuString(hMenu1,20+I,(LPSTR)Work,80,MF_BYCOMMAND);
  ChangeMenu(hMenu,20+I,(LPSTR)Work,20+I,MF_CHANGE|MF_STRING|MF_BYCOMMAND);
 }
 for (I=0;I<Maxbuffers;I++)
 if (Buf_Wnd[I]!=0)
 {hMenu=GetMenu(Buf_Wnd[I]);
  ChangeMenu(hMenu,20+B,(LPSTR)(char *)Txt_Untitled,20+B,MF_CHANGE|MF_STRING);
 }
 EnableMenuItem(hMenu,20+B,MF_GRAYED);
 return 1;
}

int WINAPI WinMain(HANDLE hInstance,HANDLE hPrevInstance,LPSTR,int cmdShow )
{HWND hWnd;
 MSG msg;
 int I;
 Show_First=cmdShow;
 if (!hPrevInstance)
 {if (!SedtInit( hInstance ))
   return FALSE;
 }
 lpprocAbout = MakeProcInstance( (FARPROC)About, hInstance );
 lpprocFsel = MakeProcInstance( (FARPROC)Fsel, hInstance );
 lpprocPrompt = MakeProcInstance( (FARPROC)Prompt, hInstance );
 hInst = hInstance;
 getcwd(Sel_Dir,80);
 Sedt_Args(_argc,(char * *)_argv);
 Sedt_Init();
 Readruler('0');
 Sedt_Files(_argc,(char * *)_argv);
 Sedt_Main();
 return Return_Value;
}

void Make_File()
{
 if (Fil_String[0]=='\\'||Fil_String[0]=='/'||Fil_String[1]==':')
  strcpy(Com_Arg,Fil_String); else
 {strcpy(Com_Arg,Sel_Dir);
  if (Sel_Dir[strlen(Sel_Dir)-1]!='\\')
  strcat(Com_Arg,"\\");
  strcat(Com_Arg,Fil_String);
 }
}

long FAR WINAPI SedtWndProc(HWND hWnd,unsigned message,unsigned wParam,LONG lParam )
{RECT rect;
 HBRUSH hbr, hbrOld;
 PAINTSTRUCT ps;
 HMENU hMenu;
 MSG msg;
 int mx, my, Chars, Save_Col, C, Offset, I, B, Is_Current;
 long Sel_Pos;
 char *S, *T;
 if (hWnd==Curr_Wnd)
 {B=Cur_Buffer;
  Is_Current=1;
 } else
 {Is_Current=0;
  for (B=0;B<Maxbuffers;B++)
   if (Buf_Wnd[B]==hWnd)
    break;
 }
 switch (message)
 {case WM_SYSCOMMAND:
   return DefWindowProc(hWnd, message, wParam, lParam );
  case WM_SETFOCUS:
   if (!Is_Current)
    Ch_Window(B);
   CreateCaret( hWnd, (HBITMAP)NULL,(int)Char_Width,
    (int)Char_Height);
   SetCaretPos((int)(Char_Width*(My_Col-Scr_Shift-1)),
    (int)(Char_Height*(My_Line-1)));
   if (Cursor_On)
    ShowCaret(Curr_Wnd);
   Dragging=0;
   if (Set_Num_Lock!=-1)
   {GetKeyboardState(Keyb_State);
    Save_Their_Num_Lock=Keyb_State[VK_NUMLOCK];
    Keyb_State[VK_NUMLOCK]=Save_My_Num_Lock;
    SetKeyboardState(Keyb_State);
   }
   break;
  case WM_KILLFOCUS:
   if (Cursor_On)
    HideCaret(Curr_Wnd);
   DestroyCaret();
   if (Set_Num_Lock!=-1)
   {GetKeyboardState(Keyb_State);
    Save_My_Num_Lock=Keyb_State[VK_NUMLOCK];
    Keyb_State[VK_NUMLOCK]=Save_Their_Num_Lock;
    SetKeyboardState(Keyb_State);
   }
   break;
  case WM_PAINT:
   if (!Is_Current)
    Swap_Window(B);
   BeginPaint( hWnd, (LPPAINTSTRUCT)&ps );
   SedtPaint( hWnd,(PAINTSTRUCT *)&ps ,Is_Current);
   EndPaint( hWnd, (LPPAINTSTRUCT)&ps );
   if (!Is_Current)
    Restore_Window(B);
   break;
  case WM_SIZE:
   if (!Is_Current)
    Swap_Window(B);
   Scr_Width=LOWORD(lParam)/Char_Width;
   Scr_Length=HIWORD(lParam)/Char_Height;
   Scr_Shift=0;
   if (First)
    First=0; else
   {if (Do_Shift)
    {if (My_Col-Scr_Shift>=Scr_Width)
     {while (My_Col-Scr_Shift>=Scr_Width)
       Scr_Shift+=Shift_Screen?Shift_Screen:Scr_Width/2;
     }
    }
    Offset=Rel_First+Rel_Last;
    Rel_First=Show_Ruler?3:2;
    Rel_Last=Scr_Length-2;
    My_Line=Home=(Rel_First+Rel_Last+1)/2;
    Rel_First-=Home;
    Rel_Last-=Home;
    if (Float_Cursor)
     Set_Offset(Offset);
    SetCaretPos((int)(Char_Width*(My_Col-Scr_Shift-1)),
     (int)(Char_Height*(My_Line-1)));
   }
   if (!Is_Current)
    Restore_Window(B);
   break;
  case WM_ERASEBKGND:
   GetClientRect( hWnd, (LPRECT)&rect );
   hbr = CreateSolidBrush( GetSysColor(COLOR_WINDOW) );
   hbrOld = (HBRUSH)SelectObject( (HDC)wParam, (HANDLE)hbr );
   FillRect( (HDC)wParam, (LPRECT)&rect, hbr );
   SelectObject( (HDC)wParam, (HANDLE)hbrOld );
   DeleteObject( (HANDLE)hbr );
   break;
  case WM_QUERYENDSESSION:
   for (I=0;I<Maxbuffers;I++)
   if (Buf_Wnd[I]!=0&&(Any_Changes[Cur_Buffer]&1))
    return Win_Yes_No(Unsaved_Chng_Txt);
   return 1;
  case WM_LBUTTONDOWN:
   if (In_Help)
    break;
   if (!Mouse_OK)
    break;
   Win_Off_Curs();
   DragY=my=(HIWORD(lParam))/Char_Height+1;
   DragX=mx=(LOWORD(lParam))/Char_Width+1;
   Mouse_Execute(my,mx,1,0,0);
   Dragging=1;
   Win_On_Curs();
   break;
  case WM_LBUTTONUP:
   Dragging=0;
   break;
  case WM_RBUTTONDOWN:
  case WM_MOUSEMOVE:
   if (!Mouse_OK||(message==WM_MOUSEMOVE&&!Dragging))
    break;
   Win_Off_Curs();
   my=(HIWORD(lParam))/Char_Height+1;
   mx=(LOWORD(lParam))/Char_Width+1;
   if (DragX!=mx||DragY!=my)
    Mouse_Execute(my,mx,1,0,1);
   Win_On_Curs();
   break;
  case WM_CLOSE:
   if (In_Help)
    break;
   Win_Quit();
   break;
  case WM_VSCROLL:
   if (In_Help)
    break;
   if (wParam!=SB_ENDSCROLL)
   {Win_Off_Curs();
    if (Err_Display)
     Clr_Error();
    Init_Entity();
    switch (wParam)
    {case SB_LINEUP:
      Ent_Direction=0;
     case SB_LINEDOWN:
      Line();
      break;
     case SB_PAGEUP:
      Ent_Direction=0;
     case SB_PAGEDOWN:
      Screen();
      break;
     case SB_TOP:
      Top();
      break;
     case SB_BOTTOM:
      Bottom();
      break;
     case SB_THUMBPOSITION:
      if ((Ent_Count=((LOWORD(lParam)*Buf_Lines)/100)+1)>Buf_Lines)
       Ent_Count=Buf_Lines;
      Abs_Line();
      break;
    }
    Move_Entity();
    Upd_Header();
    Win_On_Curs();
   }
   Out_Zap();
   break;
  case WM_COMMAND:
   if (In_Help)
    break;
   if (!Mouse_OK)
    break;
   Win_Off_Curs();
   switch (wParam)
   {case FILE_OPEN:
     if (Fsel_Input())
     {Make_File();
      Count=1;
      Edit_File(Com_Arg);
      Upd_Header();
     }
     break;
    case FILE_SAVE:
     if ((S=Outfile)==NULL||S[0]==0)
      Error(2,No_Output_File_Txt); else
     {Wr_Buffer(S);
     }
     if (!Err_Flag)
      Clr_Changes();
     Upd_Header();
     break;
    case FILE_SAVE_AS:
     if (Fsel_Input())
     {Make_File();
      strcpy(New_File,Com_Arg);
      Wr_Buffer(Outfile=New_File);
      S_Header();
      if (!Err_Flag)
       Clr_Changes();
      Upd_Header();
     }
     break;
    case FILE_INSERT:
     if (Fsel_Input())
     {Make_File();
      Include_File(Com_Arg,File_Not_Found_Txt);
      Fill_Screen(0,Rel_Last);
      Set_Changes();
      S_Header();
     }
     break;
    case FILE_QUIT:
     if (In_Help)
      break;
     Win_Quit();
     break;
    case FILE_ABOUT:
     DialogBox( hInst, MAKEINTRESOURCE(ABOUTBOX), hWnd, lpprocAbout );
     break;
    case WINDOW_0:
    case WINDOW_1:
    case WINDOW_2:
    case WINDOW_3:
     Ch_Window(wParam-20);
     break;
    case WINDOW_SWITCH:
     Other_Window();
     break;
    case FILE_NEW:
     Zero();
     break;
    case EDIT_CLEAR:
     Reset();
     break;
    case EDIT_CUT:
     This_Cmd=C_Delete;
     Init_Entity();
     Sel_Range();
     if (!Err_Flag)
     {if (Blk_Mode)
       Blk_Rem_It(Past_String); else
       Rem_It(Past_String);
      Set_Changes();
     }
     break;
    case EDIT_PASTE:
     Count=1;
     Paste();
     Upd_Header();
     break;
    case RULER_0:
    case RULER_1:
    case RULER_2:
    case RULER_3:
    case RULER_4:
    case RULER_5:
    case RULER_6:
    case RULER_7:
    case RULER_8:
    case RULER_9:
     Readruler((char)('0'+wParam-40));
     if (Show_Ruler)
      S_Ruler();
     break;
    case HELP:
     strcpy(Com_Arg,Do_Mapping("HELP.HLP"));
     Do_Help();
     break;
    case FONT_SELECT:
     Win_Font();
     break;
   }
   Out_Zap();
   Win_On_Curs();
   break;
  default:
   return DefWindowProc( hWnd, message, wParam, lParam );
 }
 return(0L);
}

void Win_Scroll(int T,int B,int S)
{RECT Rect;
 Rect.top=(T-1)*Char_Height;
 Rect.bottom=B*Char_Height;
 Rect.left=0;
 Rect.right=Scr_Width*Char_Width;
 ScrollWindow(Curr_Wnd,0,-S*Char_Height,&Rect,&Rect);
 Rfreshed=1;
 UpdateWindow(Curr_Wnd);
}

void Win_Clear()
{HDC hDC;
 RECT rect;
 HBRUSH hbr, hbrOld;
 hDC = GetDC(Curr_Wnd);
 GetClientRect( Curr_Wnd, (LPRECT)&rect );
 hbr = CreateSolidBrush( GetSysColor(COLOR_WINDOW) );
 hbrOld = (HBRUSH)SelectObject( hDC, (HANDLE)hbr );
 FillRect( hDC, (LPRECT)&rect, hbr );
 SelectObject( hDC, (HANDLE)hbrOld );
 DeleteObject( (HANDLE)hbr );
 ReleaseDC(Curr_Wnd, hDC );
}

void Win_Erase(int L,int C,int W)
{HDC hDC;
 RECT rect;
 HBRUSH hbr, hbrOld;
 hDC = GetDC(Curr_Wnd);
 rect.top=(L-1)*Char_Height;
 rect.left=(C-1)*Char_Width;
 rect.bottom=rect.top+Char_Height;
 rect.right=rect.left+W*Char_Width;
 hbr = CreateSolidBrush( GetSysColor(COLOR_WINDOW) );
 hbrOld = (HBRUSH)SelectObject( hDC, (HANDLE)hbr );
 FillRect( hDC, (LPRECT)&rect, hbr );
 SelectObject( hDC, (HANDLE)hbrOld );
 DeleteObject( (HANDLE)hbr );
 ReleaseDC(Curr_Wnd, hDC );
}

void Win_On_Curs()
{
 if (Cursor_On)
  Win_Off_Curs();
 SetCaretPos((int)(Char_Width*(My_Col-Scr_Shift-1)),
  (int)(Char_Height*(My_Line-1)));
 ShowCaret(Curr_Wnd);
 Cursor_On=1;
}

void Win_Off_Curs()
{
 HideCaret(Curr_Wnd );
 Cursor_On=0;
}

void Win_Getmem(HANDLE H,int A,int L)
{LPSTR P;
 P=GlobalLock(H);
 LockData(0);
 segread(&Rrv);
 movedata(HIWORD(P),LOWORD(P),Rrv.ds,A,L);
 UnlockData(0);
 GlobalUnlock(H);
}

void Win_Putmem(HANDLE A,int H,int L)
{LPSTR P;
 P=GlobalLock(H);
 LockData(0);
 segread(&Rrv);
 movedata(Rrv.ds,A,HIWORD(P),LOWORD(P),L);
 UnlockData(0);
 GlobalUnlock(H);
}

HANDLE Win_Alloc(int L)
{
 return GlobalAlloc(GMEM_MOVEABLE,(long)L);
}

void Win_Free(HANDLE H)
{
 GlobalFree(H);
}

void WinText(int L,int C,char *S,int A)
{HDC hDC;
 HANDLE Old_Font;
 hDC = GetDC(Curr_Wnd);
 Old_Font=SelectObject(hDC,Buf_Font);
 SetBkMode( hDC, OPAQUE);
 if (A&A_Reverse)
 {SetTextColor(hDC,GetSysColor(COLOR_WINDOW));
  SetBkColor(hDC,GetSysColor(COLOR_WINDOWTEXT));
 } else
 {SetTextColor( hDC, GetSysColor(COLOR_WINDOWTEXT) );
  SetBkColor(hDC,GetSysColor(COLOR_WINDOW));
 }
 TextOut(hDC,Char_Width*(C-1),Char_Height*(L-1),
  (char FAR *)S,strlen(S));
 SelectObject(hDC,Old_Font);
 ReleaseDC(Curr_Wnd, hDC );
}

void WinChar()
{static MSG msg;
 int I, J, K;
 static Last_Character, Last_Scancode;
 if (Ch_Count>0)
 {Ch_Count--;
  Character=Last_Character;
  Scancode=Last_Scancode;
  return;
 }
 Rfreshed=0;
 while (1)
 {if (Working_Flag)
   Clr_Working();
  Err_Flag=0;
  if (!GetMessage((LPMSG)&msg,NULL,0,0))
  {Not_End=0;
   return;
  }
  if (msg.message==WM_CHAR)
  {Ch_Count=(msg.lParam&0xFFFF)-1;
   Last_Character=Character=msg.wParam;
   if (Do_Debug)
    Diag("Character:Scancode=%d,Character=%d",Scancode,Character);
   return;
  } else
  if (msg.message==WM_KEYDOWN)
  {Ch_Count=(msg.lParam&0xFFFF)-1;
   Last_Scancode=Scancode=(msg.lParam>>16)&0xFF;
   if (Set_Num_Lock!=-1&&Scancode==0x45)
   {GetKeyboardState(Keyb_State);
    Keyb_State[VK_NUMLOCK]=Set_Num_Lock;
    SetKeyboardState(Keyb_State);
   }
   if (Do_Debug)
    Diag("Scancode=%d,Window code=%d",Scancode,msg.wParam);
   for (I=0;I<Scan_Defs;I++)
   {if ((Last_Scancode=Scancode)==Scan_Tab[I].Scancode&&
     !Scan_Tab[I].Flags&Ext_Code)
    {
     /*Diag("Scan code");*/
     Last_Character=Character=Scan_Tab[I].Char;
     return;
    }
    if (msg.wParam==Scan_Tab[I].Scancode&&Scan_Tab[I].Flags&Window_Code)
    {
     /*Diag("Window Code");*/
     Last_Character=Character=Scan_Tab[I].Char;
     Last_Scancode=Scancode=msg.wParam;
     return;
    }
   }
   TranslateMessage((LPMSG)&msg);
   DispatchMessage((LPMSG)&msg);
  } else
  {TranslateMessage((LPMSG)&msg);
   DispatchMessage((LPMSG)&msg);
  }
  if (!Not_End)
   return;
 }
}

int Win_Yes_No(char *S)
{int Res;
  Res=MessageBox(Curr_Wnd,(LPSTR)S,(LPSTR)(char *)Txt_Warning,MB_YESNOCANCEL|
   MB_ICONEXCLAMATION|MB_APPLMODAL);
  UpdateWindow(Curr_Wnd);
  if (Res==IDCANCEL)
  {Error(3,Txt_Cancelled);
   return 0;
  }
  return Res==IDYES;
}

void Win_Error(char *S)
{
 MessageBox(Curr_Wnd,(LPSTR)S,NULL,MB_OK|MB_ICONEXCLAMATION|MB_APPLMODAL);
 UpdateWindow(Curr_Wnd);
}

void Win_P_Bar(long H,long L)
{if (L==0||H==0)
  SetScrollPos(Curr_Wnd,SB_VERT,0,1); else
  SetScrollPos(Curr_Wnd,SB_VERT,(int)((100L*(L-1))/H),1);
}

int Fsel_Input()
{int Res, Sav_Drive;
 strcpy(Fil_String,"*.*");
 Sav_Drive=bdos(0x19,0,0);
 bdos(0xE,Sel_Drive,0);
 chdir(Sel_Dir);
 Res=DialogBox(hInst,MAKEINTRESOURCE(FILSELBOX),Curr_Wnd,lpprocFsel);
 UpdateWindow(Curr_Wnd);
 getcwd(Sel_Dir,80);
 Sel_Drive=bdos(0x19,0,0);
 chdir(Curr_Dir);
 bdos(0xE,Sav_Drive,0);
 return Res;
}

void Fsel_Init(HWND hDlg)
{
 SetDlgItemText(hDlg,FSELDIR,(LPSTR)Sel_Dir);
 SetDlgItemText(hDlg,FSELNAME,(LPSTR)Fil_String);
 DlgDirList(hDlg,(LPSTR)Fil_String,FSELLIST,0,0);
 DlgDirList(hDlg,(LPSTR)Fil_String,FSELDLIST,0,0x0010|0x4000|0x8000);
}

void Fsel_Exit(HWND hDlg)
{struct stat S_Buffer;
 GetDlgItemText(hDlg,FSELNAME,(LPSTR)Path,80);
 fnsplit(Path,Drive,Dir,File,Ext);
 if (Drive[0]!=0)
 {if (Drive[0]>='Z')
   Drive[0]-='a'-'A';
  if ((Drive[0]-'A')!=Sel_Drive)
  {Sel_Drive=Drive[0]-'A';
   bdos(0xE,Sel_Drive,0);
   getcwd(Sel_Dir,80);
  }
 }
 if (Dir[0]!=0)
 {if (Dir[strlen(Dir)-1]=='\\')
   Dir[strlen(Dir)-1]=0;
  chdir(Dir);
  getcwd(Sel_Dir,80);
 }
 if (File[0]!=0||Ext[0]!=0)
 {strcpy(Fil_String,File);
  strcat(Fil_String,Ext);
 }
 if (strchr(Fil_String,'*')==NULL&&strchr(Fil_String,'?')==NULL)
  EndDialog(hDlg,TRUE); else
 {DlgDirList(hDlg,(LPSTR)Fil_String,FSELLIST,0,0);
  DlgDirList(hDlg,(LPSTR)Fil_String,FSELDLIST,0,0x0010|0x4000|0x8000);
  SetDlgItemText(hDlg,FSELDIR,(LPSTR)Sel_Dir);
  SetDlgItemText(hDlg,FSELNAME,(LPSTR)Fil_String);
 }
}

BOOL FAR WINAPI Fsel(HWND hDlg,unsigned message,WORD wParam,LONG lParam)
{static char S[128];
 int I;
 switch (message)
 {case WM_COMMAND:
   /*Diag("Fsel:wParam=%x,lParam=%lx",wParam,lParam);*/
   switch (wParam)
   {case FSELOK:
     Fsel_Exit(hDlg);
     break;
    case FSELCANCEL:
     EndDialog( hDlg, FALSE );
     break;
    case FSELLIST:
     if (HIWORD(lParam)==LBN_SELCHANGE)
     {if (DlgDirSelect(hDlg,(LPSTR)S,FSELLIST)==0)
       SetDlgItemText(hDlg,FSELNAME,(LPSTR)S);
     } else
     if (HIWORD(lParam)==LBN_DBLCLK)
     {if (DlgDirSelect(hDlg,(LPSTR)S,FSELLIST)==0)
       Fsel_Exit(hDlg);
     } else
     if (HIWORD(lParam)==0)
      Fsel_Exit(hDlg);
     break;
    case FSELDLIST:
     if (HIWORD(lParam)==LBN_SELCHANGE)
     {if (DlgDirSelect(hDlg,(LPSTR)S,FSELDLIST)==0)
       ;
     } else
     if (HIWORD(lParam)==LBN_DBLCLK)
     {if (S[I=strlen(S)-1]=='\\'||S[I]=='/')
      {S[I]=0;
       chdir(S);
      } else
       bdos(0xE,S[0]-'a',0);
      getcwd(Sel_Dir,80);
      Sel_Drive=bdos(0x19,0,0);
      SetDlgItemText(hDlg,FSELDIR,(LPSTR)Sel_Dir);
      DlgDirList(hDlg,(LPSTR)Fil_String,FSELLIST,0,0);
      DlgDirList(hDlg,(LPSTR)Fil_String,FSELDLIST,0,0x0010|0x4000|0x8000);
      SetDlgItemText(hDlg,FSELNAME,(LPSTR)Fil_String);
     } else
     if (HIWORD(lParam)==0)
      Fsel_Exit(hDlg);
     break;
    case FSELNAME:
     if (HIWORD(lParam)==0)
      Fsel_Exit(hDlg);
     break;
   }
   break;
  case WM_INITDIALOG:
   Fsel_Init(hDlg);
   break;
  default:
   return FALSE;
 }
 return TRUE;
}

int Prompt_Input()
{int Res;
 Res=DialogBox(hInst,MAKEINTRESOURCE(PROMPTBOX),Curr_Wnd,lpprocPrompt);
 UpdateWindow(Curr_Wnd);
 return Res;
}

void Prompt_Init(HWND hDlg)
{
 SetDlgItemText(hDlg,PROMPTTEXT,(LPSTR)Dsk_Rec);
 Lst_Index=-1;
}

void Prompt_Exit(HWND hDlg)
{
 GetDlgItemText(hDlg,PROMPTINPUT,(LPSTR)Dsk_Rec,Blksize);
 if (Dsk_Rec[0]!=0)
 {C_Move(Lst_Input[0],Lst_Input[1],132*9);
  strcpy(Lst_Input[0],Dsk_Rec);
 }
 EndDialog(hDlg,TRUE);
}

BOOL FAR WINAPI Prompt(HWND hDlg,unsigned message,WORD wParam,LONG lParam)
{char S[80];
 int I;
 switch (message)
 {case WM_COMMAND:
   switch (wParam)
   {case PROMPTOK:
     Prompt_Exit(hDlg);
     Fsel_Exit(hDlg);
     break;
    case PROMPTCANCEL:
     EndDialog( hDlg, FALSE );
     break;
    case PROMPTINPUT:
     if (HIWORD(lParam)==0)
      Prompt_Exit(hDlg);
     break;
    case PROMPTNEXT:
     if (Lst_Index>0)
      SetDlgItemText(hDlg,PROMPTINPUT,(LPSTR)Lst_Input[--Lst_Index]);
     break;
    case PROMPTPREV:
     if (Lst_Index<9)
      SetDlgItemText(hDlg,PROMPTINPUT,(LPSTR)Lst_Input[++Lst_Index]);
     break;
   }
   break;
  case WM_INITDIALOG:
   Prompt_Init(hDlg);
   break;
  default:
   return FALSE;
 }
 return TRUE;
}

int Win_Newwindow(int B,int Show)
{
 return Make_Window(B,Show);
}

void Win_Topwindow(int B)
{
 SetFocus(Curr_Wnd=Buf_Wnd[B]);
}

void Swap_Window(int B)
{
 Out_Zap();
 Sav_Window(Cur_Buffer);
 Sav_Cur=Cur_Buffer;
 Cur_Buffer=B;
 Current=(&Main_Buffer);
 Load_Window(Cur_Buffer);
 Curr_Wnd=Buf_Wnd[B];
}

void Restore_Window(int)
{
 Out_Zap();
 Sav_Window(Cur_Buffer);
 Cur_Buffer=Sav_Cur;
 Current=(&Main_Buffer);
 Load_Window(Cur_Buffer);
 Curr_Wnd=Buf_Wnd[Cur_Buffer];
}

void Win_Name(char *S)
{int I;
 HMENU hMenu;
 strcpy(Com_Arg,(char *)Txt_Sedt);
 if (S==NULL)
  strcat(Com_Arg,(char *)Txt_Untitled); else
  strcat(Com_Arg,S);
 SetWindowText(Curr_Wnd,Com_Arg);
 for (I=0;I<Maxbuffers;I++)
 if (Buf_Wnd[I]!=0)
 {hMenu=GetMenu(Buf_Wnd[I]);
  ChangeMenu(hMenu,20+Cur_Buffer,(LPSTR)(S==NULL?(char *)Txt_Untitled:S),
    20+Cur_Buffer,MF_CHANGE|MF_STRING);
 }
 hMenu=GetMenu(Buf_Wnd[Cur_Buffer]);
 EnableMenuItem(hMenu,20+Cur_Buffer,MF_GRAYED);
}

void Win_Put_Clip(long L)
{HANDLE M;
 LPSTR P;
 long I;
 int C;
 if (!OpenClipboard(Curr_Wnd))
 {Error(2,No_Clipboard_Txt);
  return;
 }
 if (!EmptyClipboard())
 {Error(2,Bad_Clipboard_Txt);
  CloseClipboard();
  return;
 }
 if ((M=GlobalAlloc(GMEM_MOVEABLE,(long)((I=Dl_Pointers[Past_String][1])+L+1)))
  ==NULL)
 {Error(2,No_Clipboard_Memory_Txt);
  CloseClipboard();
  return;
 }
 P=GlobalLock(M);
 B_Goto(&Del,Dl_Pointers[Past_String][0]);
 while (I--)
 {if ((C=B_Get(&Del))=='\n')
   *(P++)=13;
  *(P++)=C;
 }
 *(P++)=0;
 GlobalUnlock(M);
 SetClipboardData(CF_TEXT,M);
 CloseClipboard();
}

void Win_Load_Clip()
{long L=0;
 HANDLE M;
 LPSTR P;
 int C, L_C=0;
 Erase_Del(Dl_Pointers[Past_String]);
 if (!OpenClipboard(Curr_Wnd))
 {Error(2,No_Clipboard_Txt);
  return;
 }
 if ((M=GetClipboardData(CF_TEXT))==NULL)
 {Error(2,Empty_Clipboard_Txt);
  CloseClipboard();
  return;
 }
 P=GlobalLock(M);
 while ((C=*(P++))!=0)
 {if (L_C==13)
  {if (C!='\n')
   {B_Put(&Del,13);
    L++;
   }
  }
  if (C!=13)
  {B_Put(&Del,(char)C);
   L++;
  }
  L_C=C;
 }
 if (L_C==13)
 {B_Put(&Del,13);
  L++;
 }
 Dl_Pointers[Past_String][1]=L;
 GlobalUnlock(M);
 CloseClipboard();
}

void Win_Tempfile(char *F)
{
 GetTempFileName(0,(LPSTR)"SEDT",0,(LPSTR) F);
}

void Win_Quit()
{int I, B;
 HMENU hMenu;
 B=Cur_Buffer;
 if (Any_Changes[Cur_Buffer]&1)
  if (!Yes_No(Unsaved_Chng_Txt))
   return;
 Any_Changes[Cur_Buffer]=0;
 Zero();
 Not_End=0;
 My_Col=0;
 for (I=0;I<Maxbuffers;I++)
  if (I!=B&&Buf_Wnd[I]!=0)
  {Not_End=1;
   hMenu=GetMenu(Buf_Wnd[I]);
   ChangeMenu(hMenu,20+B,(LPSTR)(char *)Txt_Unused,20+B,MF_CHANGE|MF_STRING);
  }
 if (Not_End)
 {DeleteObject(Buf_Font);
  DestroyWindow(Curr_Wnd);
  Buf_Wnd[B]=0;
 } else
  PostQuitMessage(0);
 Not_End=1;
}

void Win_Font()
{int Old_Size;
 RECT Rect;
 HDC hDC;
 CHOOSEFONT Choose;
 TEXTMETRIC TM;
 HANDLE Old_Font;
 hDC = GetDC(Curr_Wnd);
 DeleteObject(Buf_Font);
 memset(&Choose,0,sizeof(CHOOSEFONT));
 Choose.lStructSize=sizeof(CHOOSEFONT);
 Choose.hwndOwner=Curr_Wnd;
 Choose.lpLogFont=&LF;
 Choose.Flags=CF_SCREENFONTS|CF_INITTOLOGFONTSTRUCT|CF_ANSIONLY|CF_FIXEDPITCHONLY;
 Choose.nFontType=SCREEN_FONTTYPE;
 ChooseFont(&Choose);
 Buf_Font=CreateFontIndirect(&LF);
 Old_Font=SelectObject(hDC,Buf_Font);
 GetClientRect(Curr_Wnd,(LPRECT)&Rect);
 GetTextMetrics( hDC, (LPTEXTMETRIC)&TM );
 Scr_Width=(Rect.right+1)/(Char_Width=TM.tmAveCharWidth);
 Scr_Length=(Rect.bottom+1)/(Char_Height=TM.tmHeight);
 if (Cursor_On)
  HideCaret(Curr_Wnd);
 DestroyCaret();
 CreateCaret( Curr_Wnd, (HBITMAP)NULL,(int)Char_Width,
  (int)Char_Height);
 SetCaretPos((int)(Char_Width*(My_Col-Scr_Shift-1)),
  (int)(Char_Height*(My_Line-1)));
 if (Cursor_On)
  ShowCaret(Curr_Wnd);
 SelectObject(hDC,Old_Font);
 ReleaseDC(Curr_Wnd,hDC);
 Refresh();
}

void Win_Larger()
{int Old_Size;
 RECT Rect;
 HDC hDC;
 TEXTMETRIC TM;
 HANDLE Old_Font;
 hDC = GetDC(Curr_Wnd);
 DeleteObject(Buf_Font);
 if (LF.lfHeight>0)
  LF.lfHeight*=-1;
 LF.lfHeight--;
 LF.lfWidth=0;
 Buf_Font=CreateFontIndirect(&LF);
 Old_Font=SelectObject(hDC,Buf_Font);
 GetClientRect(Curr_Wnd,(LPRECT)&Rect);
 GetTextMetrics( hDC, (LPTEXTMETRIC)&TM );
 Scr_Width=(Rect.right+1)/(Char_Width=TM.tmAveCharWidth);
 Scr_Length=(Rect.bottom+1)/(Char_Height=TM.tmHeight);
 if (Cursor_On)
  HideCaret(Curr_Wnd);
 DestroyCaret();
 CreateCaret( Curr_Wnd, (HBITMAP)NULL,(int)Char_Width,
  (int)Char_Height);
 SetCaretPos((int)(Char_Width*(My_Col-Scr_Shift-1)),
  (int)(Char_Height*(My_Line-1)));
 if (Cursor_On)
  ShowCaret(Curr_Wnd);
 SelectObject(hDC,Old_Font);
 ReleaseDC(Curr_Wnd,hDC);
 Refresh();
}

void Win_Smaller()
{int Old_Size;
 RECT Rect;
 HDC hDC;
 TEXTMETRIC TM;
 HANDLE Old_Font;
 hDC = GetDC(Curr_Wnd);
 DeleteObject(Buf_Font);
 if (LF.lfHeight>0)
  LF.lfHeight*=-1;
 LF.lfHeight++;
 LF.lfWidth=0;
 Buf_Font=CreateFontIndirect(&LF);
 Old_Font=SelectObject(hDC,Buf_Font);
 GetClientRect(Curr_Wnd,(LPRECT)&Rect);
 GetTextMetrics( hDC, (LPTEXTMETRIC)&TM );
 Scr_Width=(Rect.right+1)/(Char_Width=TM.tmAveCharWidth);
 Scr_Length=(Rect.bottom+1)/(Char_Height=TM.tmHeight);
 if (Cursor_On)
  HideCaret(Curr_Wnd);
 DestroyCaret();
 CreateCaret( Curr_Wnd, (HBITMAP)NULL,(int)Char_Width,
  (int)Char_Height);
 SetCaretPos((int)(Char_Width*(My_Col-Scr_Shift-1)),
  (int)(Char_Height*(My_Line-1)));
 if (Cursor_On)
  ShowCaret(Curr_Wnd);
 SelectObject(hDC,Old_Font);
 ReleaseDC(Curr_Wnd,hDC);
 Refresh();
}

void Win_Set_Num_Lock(void)
{Save_My_Num_Lock=1;
}

void Win_Clear_Num_Lock(void)
{Save_My_Num_Lock=0;
}

void Win_Reset_Num_Lock(void)
{GetKeyboardState(Keyb_State);
 Keyb_State[VK_NUMLOCK]=Save_Their_Num_Lock;
 SetKeyboardState(Keyb_State);
}