OS/2 Shareware BBS: 10 Tools/10-Tools.zip/smart21b.zip/SMARTAUX/WINXOS2/WINXOS2.DCT

Text File | 1995-03-15 | 27KB | 672 lines

.Table   =Dictionary File for the MDI APIs
.Version =1.0
.Date    =10-10-94
.Notes   =Bob Rhoads Jeff Abbott
         =*****************************************************************
         =*                                                               *
         =*  Keywords for migrating from Windows 3.1 MDI to OS/2 2.1 MDI  *
         =*                                                               *
         =*****************************************************************
.Keyword =010 020 210 CreateWindow
.Notes   =This keyword is processed in this situation for the purpose of removing
         =the CreateWindow call that uses the MDICLIENT class.
.SComment=Replace with WinCreateWindow or WinCreateStdWindow
.LComment=Replace with WinCreateWindow to create controls or non-frame windows.
         =Use WinCreateStdWindow to create frame windows. Top-level, Popup, or
         =control windows which use any of the frame controls should be created
         =with WinCreateStdWindow. System class names must be mapped to the OS/2
         =class name. Coordinates must be recalculated based on (0,0) being
         =located in the lower-left corner.  Use FCF_TASKLIST to add a window
         =automatically to the switch list.
.Sample  =Windows:
         =  HWND hWnd = CreateWindow ("BUTTON", "OK",
         =    WS_VISIBLE | WS_CHILD | WS_TABSTOP, 10, 10, 40, 16,
         =    hWndParent, IDOK, hInst, NULL);
         =OS/2:
         =  HWND hWnd = WinCreateWindow (hWndParent, WC_BUTTON, "OK",
         =    WS_VISIBLE | WS_TABSTOP, 10, 150, 40, 16, hWndParent,
         =    HWND_TOP, DID_OK, NULL, NULL);
.Prototyp=HWND APIENTRY WinCreateWindow (HWND hwndParent,
         =  PSZ pszClassName, PSZ pszName, ULONG flStyle,
         =  LONG lxCoord, LONG lyCoord, LONG lWidth, LONG lHeight,
         =  HWND hwndOwner, HWND hwndBehind, ULONG id,
         =  PVOID pCtlData, PVOID pPresParams);
         =HWND APIENTRY WinCreateStdWindow (HWND hwndParent,
         =  ULONG flStyle, PULONG pflCreateFlags,
         =  PSZ pszClassClient, PSZ pszTitle, ULONG flStyleClient,
         =  HMODULE hModResource, ULONG id, PHWND phwndClient);
.Template=WinCreateWindow (,,,,,,,,,,,,)
         =WinCreateStdWindow (,,,,,,,,)
.Command =IF $P1 NOT = '"MDICLIENT"' THEN
         =  DO
         =    SmMigrateKeyword($T1)
         =    SmMigrateKeyword($T2)
         =    EXIT
         =  END
         =IF $KIND = "TRUE" THEN
         =  DO
         =    SmRemove(LINE)
         =    NOTE = "The source line has been removed for " $KEY
         =    SmOutputNote(NOTE)
         =  END
         =ELSE
         =  DO
         =    NOTE1 = "WARNING: " $KEY " has been removed from imbedded code."
         =    NOTE2 = "The code must be changed to accomodate the removal of this keyword."
         =    SmOutputNote(NOTE1)
         =    SmOutputNote(NOTE2)
         =  END
         =SmNoComment(ALL)
         =NOTE1 = "****  N O T I C E  ****"
         =NOTE2 = "The client window that is created with the MDICLIENT class"
         =NOTE3 = "is not needed for the OS/2 MDI. The frame window procedure"
         =NOTE4 = "should be used as a combination frame and client procedure"
         =NOTE5 = "by creating the main frame window with a WinCreateStdWindow"
         =NOTE6 = "call instead of a WinCreateWindow call."
         =NOTE7 = "VERY IMPORTANT:  You must IMPLEMENT the following changes:
         =NOTE8 = "  1. Use the window handle name from the original create window"
         =NOTE9 = "     call as the last parameter (client handle) in the call to"
         =NOTEA = "     WinCreateStdWindow."
         =NOTEB = "  2. Call WinRegisterMDIClasses before creating the application"
         =NOTEC = "     main window.
         =NOTED = "  3. Include the MDI.H header at the top of this file."
         =NOTEE = "  4. Compile and link mdi.C and accel.C to the main program."
         =NOTEF = "  5. These C files are in the SMARTAUX\SMARTMDI directory."
         =SmOutputNote(NOTE1)
         =SmOutputNote(NOTE2)
         =SmOutputNote(NOTE3)
         =SmOutputNote(NOTE4)
         =SmOutputNote(NOTE5)
         =SmOutputNote(NOTE6)
         =SmOutputNote(NOTE7)
         =SmOutputNote(NOTE8)
         =SmOutputNote(NOTE9)
         =SmOutputNote(NOTEA)
         =SmOutputNote(NOTEB)
         =SmOutputNote(NOTEC)
         =SmOutputNote(NOTED)
         =SmOutputNote(NOTEE)
         =SmOutputNote(NOTEF)


.Keyword =010 020 215 DefFrameProc
.SComment=Replace with WinDefMDIServerProc
.LComment=Replace with WinDefMDIServerProc
.Sample  =Windows:
         =  return (DefFrameProc (hwnd, hwndClient, msg, wParam, lParam);
         =OS/2:
         =  return (WinDefMDIServerProc (hwnd, ulMsg, mp1, mp2);
.Prototyp=MRESULT APIENTRY WinDefMDIServerProc (HWND hwnd, ULONG ulMsgID,
         =                                      MPARAM mParam1, MPARAM mParam2);
.Template=WinDefMDIServerProc($P1, $P3, $P4, $P5)
.Command =SmNoComment(ALL)
         =SmMigrateKeyword($T1)


.Keyword =010 010 215 DefMDIChildProc
.SComment=Replace with WinDefMDIDocumentProc
.LComment=Replace with WinDefMDIDocumentProc
.Sample  =Windows:
         =  return (DefMDIChildProc (hwnd, msg, wParam, lParam);
         =OS/2:
         =  return (WinDefMDIDocumentProc (hwnd, ulMsg, mp1, mp2);
.Prototyp=MRESULT APIENTRY WinDefMDIDocumentProc (HWND hwnd, ULONG ulMsgID,
         =                                        MPARAM mParam1, MPARAM mParam2);
.Template=WinDefMDIDocumentProc($P1, $P2, $P3, $P4)
.Command =SmNoComment(ALL)
         =SmMigrateKeyword($T1)


.Keyword =010 000 215 TranslateMDISysAccel
.SComment=Remove the use of this function
.LComment=Remove the use of this function. The translation is automatically
         =performed with the use of the accelerator table.
.Sample  =Windows:
         =  TranslateMDISysAccel(hwnd, &msg);
         =OS/2:
         =  Not applicable
.Prototyp=*** N/A ***
.Template=
.Command =IF $KIND = "TRUE" THEN
         =  DO
         =    SmRemove(LINE)
         =    NOTE = "The source line has been removed for " $KEY
         =    SmOutputNote(NOTE)
         =  END
         =ELSE
         =  DO
         =    NOTE1 = "WARNING: " $KEY " has been removed from imbedded code."
         =    NOTE2 = "The code must be changed to accomodate the removal of this keyword."
         =    SmOutputNote(NOTE1)
         =    SmOutputNote(NOTE2)
         =  END
         =NOTE1 = $KEY " is not necessary since the translation is automatically performed
         =NOTE2 = "with the use of the accelerator table."
         =SmNoComment(ALL)


.Keyword =010 010 215 ArrangeIconicWindows
.SComment=Replace with WinArrangeIconicMDIDocuments
.LComment=Replace with WinArrangeIconicMDIDocuments
.Sample  =Windows:
         =  ArrangeIconicWindows(hwnd);
         =OS/2:
         =  WinArrangeIconicMDIDocuments(hwnd);
.Prototyp=INT WinArrangeIconicMDIDocuments(HWND hwnd);
.Template=WinArrangeIconicMDIDocuments($P1)
.Command =SmNoComment(ALL)
         =SmMigrateKeyword($T1)


.Keyword =010 020 200 SendMessage
.Notes   =This keyword is processed in this situation for the purpose of message
         =parameter manipulation for all MDI messages being sent.
.SComment=Replace with WinSendMsg noting the differences in parameters
.LComment=Replace with WinSendMsg noting the differences in parameters
.Sample  =Windows:
         =  SendMessage(hwnd, WM_MDITILE, 0, 0);
         =OS/2:
         =  WinSendMsg(hwnd, WM_MDITILE, 0, 0);
.Prototyp=MRESULT WinSendMsg(HWND hwnd, ULONG ulMsg, MPARAM mp1, MPARAM mp2)
.Template=WinSendMsg(,,,)
         =WinSendMsg($P1, $P2, $P3, $P4)
.Command =IF $P2 = "wm_mdiactivate" THEN
         =  DO
         =    ?MDIMSG = "Yes"
         =    ?PARAM1 = $P4
         =    ?PARAM2 = $P3
         =    ?DESCP1 = "Unused"
         =    ?DESCP2 = "HWND of document"
         =  END
         =IF $P2 = "wm_mdicascade" THEN
         =  DO
         =    ?MDIMSG = "Yes"
         =    ?PARAM1 = $P3
         =    ?PARAM2 = $P4
         =    ?DESCP1 = "ULONG cascade flag"
         =    ?DESCP2 = "Unused"
         =  END
         =IF $P2 = "wm_mdicreate" THEN
         =  DO
         =    ?MDIMSG = "Yes"
         =    ?PARAM1 = $P3
         =    ?PARAM2 = $P4
         =    ?DESCP1 = "Unused"
         =    ?DESCP2 = "mdicreatestruct* of document"
         =  END
         =IF $P2 = "wm_mdidestroy" THEN
         =  DO
         =    ?MDIMSG = "Yes"
         =    ?PARAM1 = $P4
         =    ?PARAM2 = $P3
         =    ?DESCP1 = "Unused"
         =    ?DESCP2 = "HWND of document"
         =  END
         =IF $P2 = "wm_mdigetactive" THEN
         =  DO
         =    ?MDIMSG = "Yes"
         =    ?PARAM1 = $P3
         =    ?PARAM2 = $P4
         =    ?DESCP1 = "Unused"
         =    ?DESCP2 = "Unused"
         =  END
         =IF $P2 = "wm_mdiiconarrange" THEN
         =  DO
         =    ?MDIMSG = "Yes"
         =    ?PARAM1 = $P3
         =    ?PARAM2 = $P4
         =    ?DESCP1 = "Unused"
         =    ?DESCP2 = "Unused"
         =  END
         =IF $P2 = "wm_mdimaximize" THEN
         =  DO
         =    ?MDIMSG = "Yes"
         =    ?PARAM1 = $P3
         =    ?PARAM2 = $P4
         =    ?DESCP1 = "HWND of document"
         =    ?DESCP2 = "Unused"
         =  END
         =IF $P2 = "wm_mdinext" THEN
         =  DO
         =    ?MDIMSG = "Yes"
         =    ?PARAM1 = $P3
         =    ?PARAM2 = $P4
         =    ?DESCP1 = "HWND of document"
         =    ?DESCP2 = "BOOL next/previous flag"
         =  END
         =IF $P2 = "wm_mdirestore" THEN
         =  DO
         =    ?MDIMSG = "Yes"
         =    ?PARAM1 = $P3
         =    ?PARAM2 = $P4
         =    ?DESCP1 = "HWND of document"
         =    ?DESCP2 = "Unused"
         =  END
         =IF $P2 = "wm_mdisetmenu" THEN
         =  DO
         =    ?MDIMSG = "Yes"
         =    ?PARAM1 = $P4
         =    ?PARAM2 = "0"
         =    ?DESCP1 = "HWND of new frame menu"
         =    ?DESCP2 = "Unused"
         =    NOTE1 = "The first parameter of the original wm_mdisetmenu message contains a flag"
         =    NOTE2 = "that determines if the new menu needs to be refreshed.  This is not necessary"
         =    NOTE3 = "in the OS/2 MDI since all menus are automatically refreshed. The second"
         =    NOTE4 = "parameter of the original message contains a new menu handle for the frame"
         =    NOTE5 = "window and a new menu handle for the context popup menu. The menu handle"
         =    NOTE6 = "of the frame window should be used, by itself, as the first parameter of the"
         =    NOTE7 = "migrated message. The context popup menus should be handled by calling"
         =    NOTE8 = "WinPopupMenu whenever a document window receives a WM_CONTEXTMENU message."
         =    SmOutputNote(NOTE1)
         =    SmOutputNote(NOTE2)
         =    SmOutputNote(NOTE3)
         =    SmOutputNote(NOTE4)
         =    SmOutputNote(NOTE5)
         =    SmOutputNote(NOTE6)
         =    SmOutputNote(NOTE7)
         =    SmOutputNote(NOTE8)
         =  END
         =IF $P2 = "wm_mditile" THEN
         =  DO
         =    ?MDIMSG = "Yes"
         =    ?PARAM1 = $P3
         =    ?PARAM2 = $P4
         =    ?DESCP1 = "ULONG tiling flag"
         =    ?DESCP2 = "Unused"
         =  END
         =IF ?MDIMSG NOT = "Yes" THEN
         =  DO
         =    SmMigrateKeyword($T1)
         =    EXIT
         =  END
         =IF $SSkipAll = "Yes" THEN
         =  DO
         =    OPTION2 = "Skip"
         =    OPTION3 = "Skip"
         =  END
         =ELSE
         =  DO
         =    SmSendToEditor("$LFile($LLine:$LCol)R")
         =    DISPLAY = "Make any migration changes to " $P2 " mp1 (" ?DESCP1 ")"
         =    SmPromptDlg(DISPLAY, ?PARAM1, OPTION2, $P3, ~Change | ~Skip | Skip/A~ll | ~Abort)
         =    IF OPTION2 = "Abort" THEN TERMINATE
         =    IF OPTION2 = "Skip/All" THEN
         =      DO
         =        DISPLAY1 = "WARNING! This selection will cause all MDI message parameters "
         =        DISPLAY2 = "to retain their original values without prompting for changes."
         =        DISPLAY = DISPLAY1 DISPLAY2
         =        SmDisplayDlg(DISPLAY, OPTION, ~Ok | ~Cancel)
         =        IF OPTION = "Ok" THEN
         =          $SSkipAll = "Yes"
         =        OPTION2 = "Skip"
         =      END
         =    IF $SSkipAll NOT = "Yes" THEN
         =      DO
         =        DISPLAY = "Make any migration changes to " $P2 " mp2 (" ?DESCP2 ")"
         =        SmPromptDlg(DISPLAY, ?PARAM2, OPTION3, $P4, ~Change | ~Skip | Skip/A~ll | ~Abort)
         =        IF OPTION3 = "Abort" THEN TERMINATE
         =        IF OPTION3 = "Skip/All" THEN
         =          DO
         =            DISPLAY1 = "WARNING! This selection will cause all MDI message parameters "
         =            DISPLAY2 = "to retain their original values without prompting for changes."
         =            DISPLAY = DISPLAY1 DISPLAY2
         =            SmDisplayDlg(DISPLAY, OPTION, ~Ok | ~Cancel)
         =            IF OPTION = "Ok" THEN
         =              $SSkipAll = "Yes"
         =            OPTION3 = "Skip"
         =          END
         =      END
         =  END
         =IF OPTION2 = "Skip" THEN
         =  $P3 = ?PARAM1
         =IF OPTION3 = "Skip" THEN
         =  $P4 = ?PARAM2
         =SmNoComment(ALL)
         =SmMigrateKeyword($T2)


.Keyword =020 030 215 WM_MDIACTIVATE
.SComment=Replace with WM_MDIACTIVATE noting parameter differences
.LComment=Replace with WM_MDIACTIVATE noting parameter differences.
         =The first and second parameters are swapped. The document
         =windows that are activated and deactivated by the processing
         =of this message should be changed to WM_ACTIVATE messages.
.Sample  =Windows:
         =  Sending:
         =    SendMessage(hwnd, WM_MDIACTIVATE, hwndDoc, 0);
         =  Receiving:
         =    case WM_MDIACTIVATE:
         =      fActivate = (BOOL)wParam;
         =      hwndAct = (HWND)LOWORD(lParam);
         =      hwndDeact = (HWND)HIWORD(lParam);
         =OS/2:
         =  Sending:
         =    WinSendMsg(hwnd, WM_MDIACTIVATE, 0, hwndDoc);
         =  Receiving:
         =    Not applicable
.Prototyp=Unused = mp1
         =Document handle = (HWND)mp2
.Template=wm_mdiactivate
         =wm_activate
.Command =SmSendToEditor("$LFile($LLine:$LCol)R")
         =DISPLAY = "Is " $KEY " being sent or received?"
         =SmDisplayDlg(DISPLAY, OPTION, ~Sent | ~Received | ~Abort)
         =IF OPTION = "Abort" THEN TERMINATE
         =IF OPTION = "Sent" THEN
         =  SmMigrateKeyword($T1)
         =ELSE
         =  DO
         =    SmMigrateKeyword($T2)
         =    NOTE1 = "WARNING: wm_activate has been used to replace the receipt"
         =    NOTE2 = "of the wm_mdiactivate message. The second parameter should"
         =    NOTE3 = "be replaced with a single window handle, since the wm_activate"
         =    NOTE4 = "message will be sent to both the activated and deactivated"
         =    NOTE5 = "document windows for every wm_mdiactivate message that is sent."
         =    NOTE6 = "This will probably require a change in the logic structure."
         =    SmOutputNote(NOTE1)
         =    SmOutputNote(NOTE2)
         =    SmOutputNote(NOTE3)
         =    SmOutputNote(NOTE4)
         =    SmOutputNote(NOTE5)
         =    SmOutputNote(NOTE6)
         =  END
         =SmNoComment(ALL)



.Keyword =020 000 215 WM_MDICASCADE
.SComment=Replace with WM_MDICASCADE
.LComment=Replace with WM_MDICASCADE
.Sample  =Windows:
         =  SendMessage(hwnd, WM_MDICASCADE, MDITILE_SKIPDISABLED, 0);
         =OS/2:
         =  WinSendMsg(hwnd, WM_MDICASCADE, MDITILE_SKIPDISABLED, 0);
.Prototyp=Cascade flag = (ULONG)mp1;
         =Unused = mp2;
.Template=wm_mdicascade
.Command =SmMigrateKeyword($T1)


.Keyword =020 000 215 WM_MDICREATE
.SComment=Replace with WM_MDICREATE noting parameter differences
.LComment=Replace with WM_MDICREATE noting parameter differences.
         =The document structure has several fields that have been
         =added or removed in the OS/2 MDI.
.Sample  =Windows:
         =  SendMessage(hwnd, WM_MDICREATE, 0, &mdistruct);
         =OS/2:
         =  WinSendMsg(hwnd, WM_MDICREATE, 0, &mdistruct);
.Prototyp=Unused = mp1
         =Document structure address = (MDICREATESTRUCT *)mp2
.Template=wm_mdicreate
.Command =SmMigrateKeyword($T1)


.Keyword =020 000 215 WM_MDIDESTROY
.SComment=Replace with WM_MDIDESTROY noting parameter differences
.LComment=Replace with WM_MDIDESTROY noting parameter differences.
         =The first and second parameters are swapped.
.Sample  =Windows:
         =  SendMessage(hwnd, WM_MDIDESTROY, hwndDoc, 0);
         =OS/2:
         =  WinSendMsg(hwnd, WM_MDIDESTROY, 0, hwndDoc);
.Prototyp=Unused = mp1
         =Document handle = (HWND)mp2
.Template=wm_mdidestroy
.Command =SmMigrateKeyword($T1)



.Keyword =020 000 215 WM_MDIGETACTIVE
.SComment=Replace with WM_MDIGETACTIVE
.LComment=Replace with WM_MDIGETACTIVE
.Sample  =Windows:
         =  SendMessage(hwnd, WM_MDIGETACTIVE, 0, 0);
         =OS/2:
         =  WinSendMsg(hwnd, WM_MDIGETACTIVE, 0, 0);
.Prototyp=Unused = mp1
         =Unused = mp2
.Template=wm_mdigetactive
.Command =SmMigrateKeyword($T1)


.Keyword =020 000 215 WM_MDIICONARRANGE
.SComment=Replace with WM_MDIICONARRANGE
.LComment=Replace with WM_MDIICONARRANGE
.Sample  =Windows:
         =  SendMessage(hwnd, WM_MDIICONARRANGE, 0, 0);
         =OS/2:
         =  WinSendMsg(hwnd, WM_MDIICONARRANGE, 0, 0);
.Prototyp=Unused = mp1
         =Unused = mp2
.Template=wm_mdiiconarrange
.Command =SmMigrateKeyword($T1)


.Keyword =020 000 215 WM_MDIMAXIMIZE
.SComment=Replace with WM_MDIMAXIMIZE
.LComment=Replace with WM_MDIMAXIMIZE
.Sample  =Windows:
         =  SendMessage(hwnd, WM_MDIMAXIMIZE, hwndDoc, 0);
         =OS/2:
         =  WinSendMsg(hwnd, WM_MDIMAXIMIZE, hwndDoc, 0);
.Prototyp=Document handle = (HWND)mp1
         =Unused = mp2
.Template=wm_mdimaximize
.Command =SmMigrateKeyword($T1)


.Keyword =020 000 215 WM_MDINEXT
.SComment=Replace with WM_MDINEXT
.LComment=Replace with WM_MDINEXT
.Sample  =Windows:
         =  SendMessage(hwnd, WM_MDINEXT, hwndDoc, fNext);
         =OS/2:
         =  WinSendMsg(hwnd, WM_MDINEXT, hwndDoc, fNext);
.Prototyp=Document handle = (HWND)mp1
         =Next/Previous flag = (BOOL)mp2
.Template=wm_mdinext
.Command =SmMigrateKeyword($T1)


.Keyword =020 000 215 WM_MDIRESTORE
.SComment=Replace with WM_MDIRESTORE
.LComment=Replace with WM_MDIRESTORE
.Sample  =Windows:
         =  SendMessage(hwnd, WM_MDIRESTORE, hwndDoc, 0);
         =OS/2:
         =  WinSendMsg(hwnd, WM_MDIRESTORE, hwndDoc, 0);
.Prototyp=Document handle = (HWND)mp1
         =Unused = mp2
.Template=wm_mdirestore
.Command =SmMigrateKeyword($T1)


.Keyword =020 000 215 WM_MDISETMENU
.SComment=Replace with WM_MDISETMENU noting parameter differences
.LComment=Replace with WM_MDISETMENU noting parameter differences.
         =The refresh flag is not needed since OS/2 refreshes the
         =menu automatically.  The popup context menu must be handled
         =seperately from this message.  When a document window receives
         =the WM_CONTEXTMENU message, the appropriate popup menu should
         =be created for the document window with WinPopupMenu.
.Sample  =Windows:
         =  SendMessage(hwnd, WM_MDISETMENU, fRefresh, MAKELPARAM(hMenuFrame, hMenuWindow));
         =OS/2:
         =  WinSendMsg(hwnd, WM_MDISETMENU, hMenuFrame, 0);
.Prototyp=Handle to new menu = (HWND)mp1
         =Unused = mp2
.Template=wm_mdisetmenu
.Command =SmMigrateKeyword($T1)


.Keyword =020 000 215 WM_MDITILE
.SComment=Replace with WM_MDITILE
.LComment=Replace with WM_MDITILE
.Sample  =Windows:
         =  SendMessage(hwnd, WM_MDITILE, MDITILE_HORIZONTAL, 0);
         =OS/2:
         =  WinSendMsg(hwnd, WM_MDITILE, MDITILE_HORIZONTAL, 0);
.Prototyp=Tiling flag = (ULONG)mp1;
         =Unused = mp2;
.Template=wm_mditile
.Command =SmMigrateKeyword($T1)


.Keyword =030 020 215 MDICREATESTRUCT
.SComment=Replace with MDICREATESTRUCT noting the difference in fields
.LComment=Replace with MDICREATESTRUCT noting the difference in fields.
         =Several fields have been added, changed, or removed in the structure.
.Sample  =Windows:
         =  MDICREATESTRUCT mcs;
         =  mcs.szClass = "MdiExampDoc";
         =  mcs.szTitle = "Example Document";
         =  mcs.hOwner  = hInst;
         =  mcs.x       = CW_USEDEFAULT;
         =  mcs.y       = CW_USEDEFAULT;
         =  mcs.cx      = CW_USEDEFAULT;
         =  mcs.cy      = CW_USEDEFAULT;
         =  mcs.style   = 0;
         =  mcs.lParam  = NULL;
         =OS/2:
         =  MDICREATESTRUCT mcs;
         =  mcs.cbSize       = sizeof mcs;
         =  mcs.pszClass     = "MdiExampDoc";
         =  mcs.pszTitle     = "Example Document";
         =  mcs.hwndOwner    = hwnd;
         =  mcs.x            = CW_USEDEFAULT;
         =  mcs.y            = CW_USEDEFAULT;
         =  mcs.cx           = CW_USEDEFAULT;
         =  mcs.cy           = CW_USEDEFAULT;
         =  mcs.fFrameStyle  = WS_VISIBLE | FS_NOBYTEALIGN;
         =  mcs.fClientStyle = WS_VISIBLE | FS_NOBYTEALIGN;
         =  mcs.fFrameFlags  = FCF_STANDARD;
         =  mcs.id = CHILD_RESOURCE_ID;
.Prototyp=Structure size in bytes    = cbSize
         =Document class name string = pszClass
         =Document title string      = pszTitle
         =Server window handle       = hwndOwner
         =Left edge of document      = x
         =Bottom edge of document    = y
         =Width of document          = cx
         =Height of document         = cy
         =Frame style of document    = fFrameStyle
         =Client style of document   = fClientStyle
         =Frame appearance flag      = fFrameFlags
         =Resource ID of document    = id
.Template=mdicreatestruct
.Command =SmMigrateKeyword($T1)


.Keyword =030 020 215 LPMDICREATESTRUCT
.SComment=Replace with MDICREATESTRUCT * noting the difference in fields
.LComment=Replace with MDICREATESTRUCT * noting the difference in fields.
         =Several fields have been added, changed, or removed in the structure.
.Sample  =Windows:
         =  LPMDICREATESTRUCT lpmcs;
         =  lpmcs->szClass = "MdiExampDoc";
         =  lpmcs->szTitle = "Example Document";
         =  lpmcs->hOwner  = hInst;
         =  lpmcs->x       = CW_USEDEFAULT;
         =  lpmcs->y       = CW_USEDEFAULT;
         =  lpmcs->cx      = CW_USEDEFAULT;
         =  lpmcs->cy      = CW_USEDEFAULT;
         =  lpmcs->style   = 0;
         =  lpmcs->lParam  = NULL;
         =OS/2:
         =  LPMDICREATESTRUCT * lpmcs;
         =  lpmcs.cbSize       = sizeof mcs;
         =  lpmcs.pszClass     = "MdiExampDoc";
         =  lpmcs.pszTitle     = "Example Document";
         =  lpmcs.hwndOwner    = hwnd;
         =  lpmcs.x            = CW_USEDEFAULT;
         =  lpmcs.y            = CW_USEDEFAULT;
         =  lpmcs.cx           = CW_USEDEFAULT;
         =  lpmcs.cy           = CW_USEDEFAULT;
         =  lpmcs.fFrameStyle  = WS_VISIBLE | FS_NOBYTEALIGN;
         =  lpmcs.fClientStyle = WS_VISIBLE | FS_NOBYTEALIGN;
         =  lpmcs.fFrameFlags  = FCF_STANDARD;
         =  lpmcs.id = CHILD_RESOURCE_ID;
.Prototyp=Structure size in bytes    = cbSize
         =Document class name string = pszClass
         =Document title string      = pszTitle
         =Server window handle       = hwndOwner
         =Left edge of document      = x
         =Bottom edge of document    = y
         =Width of document          = cx
         =Height of document         = cy
         =Frame style of document    = fFrameStyle
         =Client style of document   = fClientStyle
         =Frame appearance flag      = fFrameFlags
         =Resource ID of document    = id
.Template=mdicreatestruct *
.Command =SmMigrateKeyword($T1)


.Keyword =030 040 215 CLIENTCREATESTRUCT
.SComment=Remove the use of this structure
.LComment=Remove the use of this structure. The client structure is
         =not needed since the client is created along with the frame
         =window during the WinCreateStdWindow call.
.Sample  =Windows:
         =  CLIENTCREATESTRUCT ccs;
         =  ccs.hWindowMenu  = hWinMenu;
         =  ccs.idFirstChild = IDM_FIRSTCHILD;
         =OS/2:
         =  Not applicable
.Prototyp=*** N/A ***
.Template=
.Command =IF $KIND = "TRUE" THEN
         =  DO
         =    SmRemove(LINE)
         =    NOTE = "The source line has been removed for " $KEY
         =    SmOutputNote(NOTE)
         =  END
         =ELSE
         =  DO
         =    NOTE1 = "WARNING: " $KEY " has been removed from imbedded code."
         =    NOTE2 = "The code must be changed to accomodate the removal of this keyword."
         =    SmOutputNote(NOTE1)
         =    SmOutputNote(NOTE2)
         =  END
         =NOTE1 = "NOTE: Be sure to remove any use of this structure in the code."
         =NOTE2 = "The client structure is not needed since the client is created"
         =NOTE3 = "along with the frame window during the WinCreateStdWindow call."
         =SmOutputNote(NOTE1)
         =SmOutputNote(NOTE2)
         =SmOutputNote(NOTE3)


.Keyword =030 040 215 LPCLIENTCREATESTRUCT
.SComment=Remove the use of this structure pointer
.LComment=Remove the use of this structure pointer. The client structure is
         =not needed since the client is created along with the frame
         =window during the WinCreateStdWindow call.
.Sample  =Windows:
         =  LPCLIENTCREATESTRUCT lpccs;
         =  lpccs->hWindowMenu  = hWinMenu;
         =  lpccs->idFirstChild = IDM_FIRSTCHILD;
         =OS/2:
         =  Not applicable
.Prototyp=*** N/A ***
.Template=
.Command =IF $KIND = "TRUE" THEN
         =  DO
         =    SmRemove(LINE)
         =    NOTE = "The source line has been removed for " $KEY
         =    SmOutputNote(NOTE)
         =  END
         =ELSE
         =  DO
         =    NOTE1 = "WARNING: " $KEY " has been removed from imbedded code."
         =    NOTE2 = "The code must be changed to accomodate the removal of this keyword."
         =    SmOutputNote(NOTE1)
         =    SmOutputNote(NOTE2)
         =  END
         =NOTE1 = "NOTE: Be sure to remove any use of this structure pointer in the code."
         =NOTE2 = "The client structure is not needed since the client is created"
         =NOTE3 = "along with the frame window during the WinCreateStdWindow call."
         =SmOutputNote(NOTE1)
         =SmOutputNote(NOTE2)
         =SmOutputNote(NOTE3)