[futurebasic] Re: [FB] FBToC why oh why error

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : June 2009 : Group Archive : Group : All Groups

From: Robert Covington <artlythere@...>
Date: Mon, 29 Jun 2009 20:07:34 -0400
Thing was looking in the project folder for a same named older file I  
think, even though I aliased the correct one direct.

Now I get
Error:•• Redefined function in line 41 of 2001: RuntimeErrMsg
  41:  toolbox RuntimeErrMsg( Str255 msg ) // now in AppThings.c

There appear to be  a lot of duplicate toolbox definitions in the  
FBToC headers' RnTm Appearance.incl?

RuntimeErrMsg
FBCompareContainers

among others?

rc

On Jun 29, 2009, at 3:32 PM, Robert Covington wrote:

> ARgh!
> '
> The function is right above the other one calling it?
>
> rc
>
>
> Error:•• Unknown function in line 88 of Subs Appearance Btns.incl:  
> DrawOneControlAndValidateRect
>  88:  fn DrawOneControlAndValidateRect( c )
>
>
> From here...
>
>
>
> // set control's text to s, then redraw it
> runtime def SetButtonTextString( btnID as long, s as str255 )
> '~'1
> dim c     as ControlRef
> dim err   as OSErr
> c = button&( btnID )
> long if c
> err = fn SetControlData( c, _kControlEditTextPart,  
> _kControlEditTextTextTag, s[0], s[1] )
> //long if err
> //fn RuntimeErrMsg( "SetButtonTextString error " + str$( err ) + "  
> for button" + str$( btnID ) )
> //xelse
> fn DrawOneControlAndValidateRect( c )
> //DrawOneControl( c )
> //end if
> end if
> end fn
> --
> To unsubscribe, send ANY message to: futurebasic- 
> unsubscribe@...
>