diff --git a/wxctb.mod/glue.cpp b/wxctb.mod/glue.cpp index 62b02332..646a4802 100644 --- a/wxctb.mod/glue.cpp +++ b/wxctb.mod/glue.cpp @@ -85,7 +85,7 @@ int bmx_wxiobase_close(wxIOBase * base) { } int bmx_wxiobase_open(wxIOBase * base, BBString * deviceName, void * dcs) { - char * p = bbStringToCString( deviceName ); + char * p = (char*)bbStringToCString( deviceName ); int ret = base->Open(p, dcs); bbMemFree( p ); @@ -97,7 +97,7 @@ int bmx_wxiobase_putback(wxIOBase * base, int chr) { } int bmx_wxiobase_readuntileos(wxIOBase * base, char * buffer, int * bytesRead, BBString * eos, int timeout, int quota) { - char * p = bbStringToCString( eos ); + char * p = (char*)bbStringToCString( eos ); char * newbuff = NULL; size_t size; diff --git a/wxmax2d.mod/wxmax2d.bmx b/wxmax2d.mod/wxmax2d.bmx index cc00a19f..4ada0143 100644 --- a/wxmax2d.mod/wxmax2d.bmx +++ b/wxmax2d.mod/wxmax2d.bmx @@ -18,7 +18,7 @@ ' OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN ' THE SOFTWARE. ' -Strict +SuperStrict Rem bbdoc: wxMax2D @@ -101,7 +101,7 @@ Type TwxImageFrame Extends TImageFrame driver.DrawImage(x0, y0, x1, y1, tx, ty, displayBitmap) End Method - Function CreateFromPixmap:TwxImageFrame( src:TPixmap, flags:Int ) + Function CreateFromPixmap:TwxImageFrame( src:TPixmap, flags:Long ) 'determine tex size 'Local tex_w=src.width @@ -171,16 +171,16 @@ Type TwxMax2DDriver Extends TMax2DDriver 'Return GLGraphicsDriver().GraphicsModes() End Method ?bmxng - Method AttachGraphics:TMax2DGraphics( widget:Byte Ptr ,flags:Int ) + Method AttachGraphics:TMax2DGraphics( widget:Byte Ptr ,flags:Long ) Override ?Not bmxng Method AttachGraphics:TMax2DGraphics( widget:Int ,flags:Int ) ? - Local g:TwxGraphics=wxGraphicsDriver().AttachGraphics( widget,flags ) + Local g:TwxGraphics=wxGraphicsDriver().AttachGraphics( widget,flags:Long ) If g Return TMax2DGraphics.Create( g,Self ) End Method ?bmxng - Method CreateGraphics:TMax2DGraphics( width:Int ,height:Int ,depth:Int ,hertz:Int ,flags:Int,x:Int,y:Int ) + Method CreateGraphics:TMax2DGraphics( width:Int ,height:Int ,depth:Int ,hertz:Int ,flags:Long,x:Int,y:Int ) Local g:TwxGraphics=wxGraphicsDriver().CreateGraphics( width,height,depth,hertz,flags,x,y ) If g Return TMax2DGraphics.Create( g,Self ) End Method @@ -236,7 +236,7 @@ Type TwxMax2DDriver Extends TMax2DDriver ' glViewport 0,0,gw,gh End Method - Method Flip( sync:Int ) + Method Flip:Int( sync:Int ) ' GLGraphicsDriver().Flip sync If dc Then dc.Free() @@ -244,7 +244,7 @@ Type TwxMax2DDriver Extends TMax2DDriver End If End Method - Method ToString$() + Method ToString:String() Override Return "wx" End Method @@ -395,7 +395,7 @@ Rem End Rem End Method - Method DrawPoly( xy#[],handle_x#,handle_y#,origin_x#,origin_y# ) + Method DrawPoly( xy#[],handle_x#,handle_y#,origin_x#,origin_y#, indices:Int[] ) If dc Then If xy.length<6 Or (xy.length&1) Return @@ -496,7 +496,7 @@ Type TwxGraphics Extends TGraphics End Method ?bmxng - Method GetSettings( width:Int Var,height:Int Var,depth:Int Var,hertz:Int Var,flags:Int Var,x:Int Var,y:Int Var ) + Method GetSettings( width:Int Var,height:Int Var,depth:Int Var,hertz:Int Var,flags:Long Var,x:Int Var,y:Int Var ) ?Not bmxng Method GetSettings( width:Int Var,height:Int Var,depth:Int Var,hertz:Int Var,flags:Int Var ) ? @@ -536,7 +536,8 @@ Type TwxGraphicsDriver Extends TGraphicsDriver End Method ?bmxng - Method AttachGraphics:TwxGraphics( widget:Byte Ptr,flags:Int ) + Method AttachGraphics:TwxGraphics( widget:Byte Ptr,flags:Long ) Override + ?Not bmxng Method AttachGraphics:TwxGraphics( widget:Int,flags:Int ) ? @@ -547,7 +548,7 @@ Type TwxGraphicsDriver Extends TGraphicsDriver End Method ?bmxng - Method CreateGraphics:TwxGraphics( width:Int,height:Int,depth:Int,hertz:Int,flags:Int,x:Int,y:Int ) + Method CreateGraphics:TwxGraphics( width:Int,height:Int,depth:Int,hertz:Int,flags:Long,x:Int,y:Int ) ?Not bmxng Method CreateGraphics:TwxGraphics( width:Int,height:Int,depth:Int,hertz:Int,flags:Int ) ? @@ -566,7 +567,7 @@ Type TwxGraphicsDriver Extends TGraphicsDriver 'bbGLGraphicsSetGraphics context End Method - Method Flip( sync:Int ) + Method Flip:Int( sync:Int ) 'DebugLog "Flip" 'bbGLGraphicsFlip sync End Method @@ -576,6 +577,10 @@ Type TwxGraphicsDriver Extends TGraphicsDriver 'bbGLGraphicsSwapSharedContext End Method + Method ToString:String() Override + Return "wx" + End Method + End Type Function wxGraphicsDriver:TwxGraphicsDriver() diff --git a/wxmaxgui.mod/wxgui.bmx b/wxmaxgui.mod/wxgui.bmx index 8e608338..e77b8330 100644 --- a/wxmaxgui.mod/wxgui.bmx +++ b/wxmaxgui.mod/wxgui.bmx @@ -254,23 +254,23 @@ End Rem Return filter End Method - Method DesktopWidth:Int() + Method DesktopWidth:Int(display:Int) Override Local w:Int, h:Int wxDisplaySize(w, h) Return w End Method - Method DesktopHeight:Int() + Method DesktopHeight:Int(display:Int) Override Local w:Int, h:Int wxDisplaySize(w, h) Return h End Method - Method DesktopDepth:Int() + Method DesktopDepth:Int(display:Int) Override Return wxDisplayDepth() End Method - Method DesktopHertz:Int() + Method DesktopHertz:Int(display:Int) Override Return 0 End Method diff --git a/wxrarinputstream.mod/glue.cpp b/wxrarinputstream.mod/glue.cpp index 446729be..694946d6 100644 --- a/wxrarinputstream.mod/glue.cpp +++ b/wxrarinputstream.mod/glue.cpp @@ -37,12 +37,12 @@ int bmx_wxrarinputstream_opennextfile(wxRarInputStream * stream) { } int bmx_wxrarinputstream_extractfile(wxRarInputStream * stream, BBString * destPath, BBString * destName) { - char *p = bbStringToCString( destPath ); + char *p = (char*)bbStringToCString( destPath ); char *n; bool ret; if (destName != &bbEmptyString) { - n = bbStringToCString( destName ); + n = (char*)bbStringToCString( destName ); } if (n) {