MarkGoldberg

FileManager.EqualBuffer PROCEDURE(*USHORT Id) 
  ! Why *USHORT, Id is never altered, so why not pass by value ?
RetAreEqual BYTE(TRUE)
  CODE
  IF    SELF.UseFile()<>Level:Benign               ! Is this needed? Should a buffer compare require an open file?
     OR SELF.BlobChanged                           ! A blob has changed so the buffers are unequal
  THEN
        RetAreEqual = FALSE    

  ELSIF SELF.FindBuffer( Id ) <> NoError 

MarkGoldberg

WindowManagerEst.FindFEQFromLabel              PROCEDURE(STRING Label, SIGNED xLowFEQ=-MAX:FEQ, SIGNED xHiFEQ=MAX:FEQ)
SearchFor             &STRING
CurrFEQ               FEQ
CREATE:_ComboButton   EQUATE(CREATE:combo + 0100H)  !see NG:  Softvelocity.clarion.documentation  Thread:"What is {prop:type}=271"  Sept-18-2006
  CODE
  DO SetSearchFor
                     !  ASSERT(0,eqDBG&'FindFEQFromLabel  SearchFor['& SearchFor &']')
  
  LOOP  
    CurrFEQ=SELF.MyWindow{PROP:NextField, CurrFEQ}

MarkGoldberg

!! Note: I have not tried to compile this code... so it might have bugs


qtFEQs  QUEUE,TYPE
FEQ       SIGNED
        END 

gtXYWH_Signed  GROUP,TYPE
X               SIGNED 
Y               SIGNED 

MarkGoldberg

! There is an apparent problem where click on a row on a list, is interpretted as a click on an obsucred field under the row.
! This proof of concept shows that DISABLING the control under the list, solves that problem
! Some extra complexity was added to correct tabbing around
! for some reason the EVENT:Selecting and EVENT:Selected are showing FIELD()=0 when MyListFEQ exists.


  PROGRAM

  MAP
  END

MarkGoldberg

  MEMBER
  MAP
  END
  INCLUDE('ThreadMonitor.inc'),ONCE
eqDBG EQUATE('<4,2,7>')  

MOD:ConstructEvent SIGNED
MOD:DestructEvent  SIGNED
MOD:ThreadToInform SIGNED

MarkGoldberg

! File Access Modes
 OMIT('__FileAccessModes__',FileAccessMode:WriteOnly)

!FILE:ReadOnly                EQUATE ( 0H)
!FILE:WriteOnly               EQUATE ( 1H)
!FILE:ReadWrite               EQUATE ( 2H)
!!-------------
!FILE:AnyAccess               EQUATE ( 0H)
!FILE:DenyAll                 EQUATE (10H)
!FILE:DenyWrite               EQUATE (20H)

MarkGoldberg

  PROGRAM

  MAP
  END

  include('ctQueue.inc'),ONCE

!gtPoint GROUP,TYPE
!X  REAL

MarkGoldberg

  PROGRAM

  MAP
   MAIN()
   BrahnModal()
   NonMDIChild()
  END

glo:Frame &Window 

MarkGoldberg

 PROGRAM

Day      ITEMIZE,PRE(Day)
Sunday     EQUATE(0)
Monday     EQUATE
Tuesday    EQUATE
Wednesday  EQUATE
Thursday   EQUATE
Friday     EQUATE
Saturday   EQUATE

MarkGoldberg

  PROGRAM
  MAP
  END

  include('debuger.inc'),ONCE
DBG        debuger

iGoAway INTERFACE
GoAway   PROCEDURE
        END