MarkGoldberg

! NOTE this is NOT currently a functional program
! It's just a collection procedures to help with the task




MoveFilesByGap PROCEDURE(*File:Queue xQ, LONG xMinGapTicks)

ThisGroupStart LONG(1)
ThisGroupEnd   LONG,AUTO 

MarkGoldberg

DimWindows          CLASS,TYPE,MODULE('DimWindows.clw'),LINK('DimWindows.clw')
DimBy                  BYTE ! a transparency level (aka ALPHA) 0--255:  0 - off, 1 - too transprent to notice, 255 - opaque
Color                  LONG 
Frame                  &WINDOW
!------------------------
CONSTRUCT              PROCEDURE()
DESTRUCT               PROCEDURE()
Open                   PROCEDURE(*WINDOW xWin)
ShouldDimWindow        PROCEDURE(),BOOL

MarkGoldberg

  PROGRAM

  MAP
  END

  INCLUDE(      'errors.clw'),ONCE
  INCLUDE(    'keyCodes.clw'),ONCE 
  INCLUDE('ctTagButtons.inc'),ONCE 
TagButtons ctTagButtons

MarkGoldberg

  MEMBER
  INCLUDE('ctMCI.inc'),ONCE

MCIERROR EQUATE(LONG) !not really sure... what this should be
  MAP
    MODULE('API')
      mciSendString    (*CSTRING xacCommand, *CSTRING xacReturnStr, UINT xLenReturnStr, HANDLE hWndCallBack),MCIERROR,RAW,PASCAL,PROC,NAME('mciSendStringA')    !http://msdn.microsoft.com/en-us/library/ms709492(VS.85).aspx
      mciGetErrorSTRING(DWORD xErrorCode   , *CSTRING xaErrorText , UINT nLenErrorText                     ),BOOL    ,RAW,PASCAL,PROC,NAME('mciGetErrorStringA') !http://msdn.microsoft.com/en-us/library/ms709479(VS.85).aspx
    END
  END

MarkGoldberg

  MEMBER()
  INCLUDE('GlobalWindowMangerBase.inc'),ONCE
  MAP
  END 

MOD:Media ctMCI   


GlobalWindowMangerBase.GetMeda      PROCEDURE()
   CODE 

MarkGoldberg

   INCLUDE('ctSuppressIME.inc'),ONCE
SuppressIME ctSuppressIME
  CODE
  ! after OpenWindow
  SupressIME.INIT()

MarkGoldberg

  PROGRAM
  MAP
  END

    INCLUDE('debuger.inc'),ONCE
dbg          debuger

SomeGroup    GROUP
LongVar       LONG
RealVar       REAL

MarkGoldberg

Apparently the files in a gist are sorted alphabetically
so I've renamed the files to control the sort order.

FurtherRefactored - change method to have one RETURN
                    and make some formatting changes too
                    
OrigMethod        - a copy of the method from ABFile

EarlyRefactored   - splitting orig up using a local procedure and routines

MarkGoldberg

  PROGRAM
  MAP
  END

IInitKill INTERFACE
Init       PROCEDURE(LONG UserData)
Kill       PROCEDURE(LONG UserData)
          END

IPersist  INTERFACE

MarkGoldberg

 PROGRAM
 MAP
   GroupToControls(*GROUP xGrp, LONG xYPOS, *ctQ_FeqAny xFEQAnyQ)
 END
Window WINDOW('Caption'),AT(,,395,224),GRAY,FONT('Microsoft Sans Serif',8)
		BUTTON('&Close'),AT(333,201,42,14),USE(?Close),STD(STD:Close)
	END