Hi,
I think this clarion crashes if bind is done on DIM variable. I created new application and just this procedure and it crashes. I do not see any problem with the code.
Can someone confirm this?
Thanks
MEMBER('bug.clw') ! This is a MEMBER module
INCLUDE('ABTOOLBA.INC'),ONCE
INCLUDE('ABWINDOW.INC'),ONCE
MAP
INCLUDE('BUG001.INC'),ONCE !Local module procedure declarations
END
!!! <summary>
!!! Generated from procedure template - Window
!!! </summary>
Main PROCEDURE
xxx real,dim(40)
Window WINDOW('Caption'),AT(,,395,224),FONT('Segoe UI',9),RESIZE,GRAY,SYSTEM
BUTTON('&OK'),AT(297,201,41,14),USE(?OkButton),DEFAULT
BUTTON('&Cancel'),AT(342,201,41,14),USE(?CancelButton),STD(STD:Close)
END
ThisWindow CLASS(WindowManager)
Init PROCEDURE(),BYTE,PROC,DERIVED
Kill PROCEDURE(),BYTE,PROC,DERIVED
END
Toolbar ToolbarClass
CODE
GlobalResponse = ThisWindow.Run() ! Opens the window and starts an Accept Loop
!---------------------------------------------------------------------------
DefineListboxStyle ROUTINE
!|
!| This routine create all the styles to be shared in this window
!| It`s called after the window open
!|
!---------------------------------------------------------------------------
ThisWindow.Init PROCEDURE
ReturnValue BYTE,AUTO
CODE
GlobalErrors.SetProcedureName('Main')
SELF.Request = GlobalRequest ! Store the incoming request
ReturnValue = PARENT.Init()
IF ReturnValue THEN RETURN ReturnValue.
SELF.FirstField = ?OkButton
SELF.VCRRequest &= VCRRequest
SELF.Errors &= GlobalErrors ! Set this windows ErrorManager to the global ErrorManager
bind('xxx_1',xxx[1])
bind('xxx_2',xxx[2])
bind('xxx_3',xxx[3])
bind('xxx_4',xxx[4])
bind('xxx_5',xxx[5])
bind('xxx_6',xxx[6])
bind('xxx_7',xxx[7])
bind('xxx_8',xxx[8])
bind('xxx_9',xxx[9])
bind('xxx_10',xxx[10])
bind('xxx_11',xxx[11])
bind('xxx_12',xxx[12])
bind('xxx_13',xxx[13])
bind('xxx_14',xxx[14])
bind('xxx_15',xxx[15])
bind('xxx_16',xxx[16])
bind('xxx_17',xxx[17])
bind('xxx_18',xxx[18])
bind('xxx_19',xxx[19])
bind('xxx_20',xxx[20])
bind('xxx_21',xxx[21])
bind('xxx_22',xxx[22])
bind('xxx_23',xxx[23])
bind('xxx_24',xxx[24])
bind('xxx_25',xxx[25])
bind('xxx_26',xxx[26])
bind('xxx_27',xxx[27])
bind('xxx_28',xxx[28])
bind('xxx_29',xxx[29])
bind('xxx_30',xxx[30])
bind('xxx_31',xxx[31])
bind('xxx_32',xxx[32])
bind('xxx_33',xxx[33])
bind('xxx_34',xxx[34])
bind('xxx_35',xxx[35])
bind('xxx_36',xxx[36])
bind('xxx_37',xxx[37])
bind('xxx_38',xxx[38])
bind('xxx_39',xxx[39])
bind('xxx_40',xxx[40])
CLEAR(GlobalRequest) ! Clear GlobalRequest after storing locally
CLEAR(GlobalResponse)
SELF.AddItem(Toolbar)
SELF.Open(Window) ! Open window
Do DefineListboxStyle
INIMgr.Fetch('Main',Window) ! Restore window settings from non-volatile store
SELF.SetAlerts()
RETURN ReturnValue
ThisWindow.Kill PROCEDURE
ReturnValue BYTE,AUTO
CODE
ReturnValue = PARENT.Kill()
IF ReturnValue THEN RETURN ReturnValue.
IF SELF.Opened
INIMgr.Update('Main',Window) ! Save window data to non-volatile store
END
GlobalErrors.SetProcedureName
RETURN ReturnValue
. The OED makes that sound great versus saying āsometimeā. Would Pierre Trembly say the release was coming ātout de suiteā?
)