WPC  
                 0   (     0   P           :  	B                  D         K        X   U              d   E         U        	%            /          {   2   e         	        #        	         !   `   t          	      R   !   `      !   `   4  	)        "                                                                   (                    $           (   (               3>$       
   U!         W    M e s s a g e                                                   :                                                                                                 d    A    }                                                             l                                                                  X     ~                                                             X     |                                                             l                                                                                                                                                                                                                                                                                                                                                                                                                O v e r v i e w D l g                                                                                                                                                                                   C H W i d t h                                                                                                                                                                                                                                                         
                                                                                                                                    
                                                                                                                                                                                                                                                                                                                                                                                                            
                                                                  
                                                                    :      M e s s a g e                                                                 	                                                                                                                                    	h                                                                  	L                                                                  	                                                                  	                                                                  	p                                                                  	                                                                  	                                                                  	                                                                  	h                                                                    r        q                               5      5            "      #      Y       \                        C       @            $            a      a                                    "            $            h            "                  -		      W
            -/      6      -<      !      7J      u P      
h      7      (                        '      \      \   
 n      s                        !      *      \9      \B    ,                  -      )y      	      	      	c      	T!      	"      :!$      0&      	:&      q              q          ?  Y                              $    h          		  W
  
  
    /  6  <  !  2  J  h  ~      h              (          .  n  s            !  *  9  k    ,          y        c    T!  m!  "  ^#  !$  $  4%  0&  :&  < @p       ` (      < 
  9 p` (      X< 6X  9  ` +   C o u r i e r         "4  ? x x x  X    Xx   C   A p p l e   L a s e r W r i t e r   I I f   '3   pet   	 ^-(4  APLW2F.PRS   hhhhhhhh PUBD/DOC1                                                                                                                                          H    lSJC   
     
   >)          >   '                 
 x         d     >    	       Name:C:\WP60\MACROS\WPCH_TB3.WPM    Q (# Page@
   
 
     
 1
   
 A
   
 Ԁof15   	           October15,1993!
   
      V (# "(   US: !  &  US  ,     (       5:42pm!
   
 HD       0 #| d        " B D O ??=K ' 	            " B D O ??=K ' 	            " B D O ??=K ' 	               c  ? x x x  X    Xx   < r 5 d d d  X    d   n 2 ` ` `  X    `                          
    !    W        X X   	    {              iCa:;  o  [      X     `	 P
      h X     p `      x h   ! (#   Xo //*********************************************   	       ////     NAME:    `	     P
      WPCHTB03.WPM   	 N   //     PURPOSE:     ChangeColumnWidthsinaTable   	     %
    
  ////*********************************************  //RevisionHistory////     7/26/93    P
 textchanges   	 	8   //     6/7/930    P
 Changeitemsforconsistency.    
	 P
(#P
(#   Global(ScrnMode;MsgAdj;DefTitle;Title)Global(FakeBtns;CancelMsg;Areahgt)Global(w;h;tbox;hbox;helpmsg;blockmsg)Global(HotElement;SaveScrn)select[0]=0Areahgt=19DefTitle="Coach"               //Maintitlename   	 +
{
   Title="Coach"ScrnMode=?ScreenHigh24Use("wpchlibr.wpm")                    h //Sharedlibraryfile   	    Use("wpchlbtb.wpm")If(NOTExists(Module))     ScreenSetup()     If(?Dialog<>36)          ColorScheme()     EndifEndifIf(?BlockActive)     BlockoffEndifOnCancelCall(CancelCoach)Error(off!)MsgAdj=DlgMessage()CancelMsg=0	   	 ."   //*********************************************////     MAINPROGRAM:Coach   	 N   ////*********************************************//Label(menu)WindowMaximizeCancel(Off!)Success=0If(NOTExists(Module))     Call(OverviewDlg)                    h //OverviewDialog   	 6
   Endif	   	    //**********************************************************//     Changewidthofcolumns?   	 W    //**********************************************************     Call(ChWidth)     If(NotExists(Module))          ExitTableEdit()          RestoreStates()     Endif     RETURN//*********************************************//     ENDMAINPROGRAM   	 6
   //*********************************************	   	 -   //*********************************************////     SUBROUTINE:OverviewDlg   	 N   ////*********************************************Label(OverviewDlg)          Message(&tbox;1100)          h     X //WelcomeScreen   	              Result=Welcome("Coach";&tbox)If(Result=2)     RETURNEndifReturn	   	    //*************************************************************////     SUBROUTINE:ChangeColumnWidth   	 N   ////**************************************************************LABEL(CHWidth)EditTable()     While(?MouseLeft)     EndWhile     Keypress={    P
 8154;               h //allowExit   	 -                      `	     P
 8158;               h //allowF1   	                       `	     P
 8168;               h //RightArrow   	 +
{
                      `	     P
 8167;               h //LeftArrow   	 
"	                      `	     P
 8108;               h //CtrlLeftArrow   	 y	                      `	     P
 8109;               h //CtrlRightArrow   	  p
                      `	 }     chkcode={1;}     Message(&tbox;1200)               h     X //Gotocolumntochangewidth   	 
        Message(&hbox;1203)     SetBoxSize()     CommentsBox(&tbox;9;10;w;h2;0)FakeBtns=0Result=1While(1)     Result=DoEdit(1;&chkcode;&Keypress)          If(Result=8154)               h     X //F7pressed   	                   BREAK          ElseIf(Result=8109ORResult=8108)                   `	     P
           //orResult=8168)orResult=8167)                   `	     P
           //arrowpressed               Showcode(Savescreen!)               Result=Postit("Coach";&hbox;0;14;0;0;0)          ElseIf(Result=8158)    h     X      //F1pressed   	 #%                      `	     P
 Message(&tbox;1200)     //Gotocolumntochangewidthof   	 z&                      `	     P
 Hint=Hint(&tbox;9;10;0)                   `	 Endif          Endif          EndifEndWhileDisplayRewriteShowcode(Restorescreen!)          Message(&tbox;1205)    h     X      //changemorewidths?   	  $P0             Result=MessageBox("Coach";&tbox;5)               If(Result=1)  %
    
                     `	 Go(CHWidth)               EndifVar[3]=0RETURN	   	 ':#6   //*********************************************////     PROCEDURE:Message   	 N   ////*********************************************PROCEDUREMessage(&tbox;Msg)Switch(Msg)CaseOf1100:    P
           //WelcomeScreen   	 
	        tbox={0    `	 "Thecolumnwidthshavebeenadjustedinthetablebelow.";    6
 `	(#`	(#   %
    
                     `	 "";̀"++++";   	    Ѐ"				";   	 +
{
   Ѐ"*,";   	 
"	   Ѐ"				";   	 y	   Ѐ"*,";   	  p
   Ѐ"				";   	    Ѐ"----";   	 n                      `	 "";               }CaseOf1200:    P
                          h //ChangeColumnWidth   	    tbox={     "Placethecursorinanycellinthecolumnyouwantto";   	 X                  "change.";               "";               "Press>  r [BoldOn]?
   
 Ctrl+RightArrow()>   [BoldOff]?
   
 Ԁtowidenthecolumn.   	 Y   Ѐ";               "Press>  r [BoldOn]?
   
 Ctrl+LeftArrow()>   [BoldOff]?
   
 Ԁtonarrowthecolumn.   	    ";               "";          }CaseOf1203:     hbox={    `	 "Press>  r [BoldOn]?
   
 F7>   [BoldOff]?
   
 Ԁwhendone";   	 #                      `	 "or>  r [BoldOn]?
   
 F1>   [BoldOff]?
   
 ԀforHelp.";                   `	 "";               }CaseOf1205:    P
                      //changemorecolumnwidths?   	 E'        tbox=     {    `	 "Doyouwanttoadjustthewidthofanothercolumn?";   	 <(                      `	 "";               }DEFAULT:    `	     P
           //Ifnonewerefound   	 !,        tbox={    `	 "Messagenotfound!";   	 /"-                      `	 "";               }     hbox={    `	 "Nohintavailable.Whattypeofinformation";   	 $ 1                      `	 "wouldbehelpfulhere?";                   `	 "";               }ENDSwitchENDPROC8     	    ($7     