Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions wxctb.mod/glue.cpp
Original file line number Diff line number Diff line change
Expand Up @@ -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 );
Expand All @@ -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;
Expand Down
29 changes: 17 additions & 12 deletions wxmax2d.mod/wxmax2d.bmx
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -236,15 +236,15 @@ 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()
dc = Null
End If
End Method

Method ToString$()
Method ToString:String() Override
Return "wx"
End Method

Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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 )
?
Expand Down Expand Up @@ -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 )
?
Expand All @@ -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 )
?
Expand All @@ -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
Expand All @@ -576,6 +577,10 @@ Type TwxGraphicsDriver Extends TGraphicsDriver
'bbGLGraphicsSwapSharedContext
End Method

Method ToString:String() Override
Return "wx"
End Method

End Type

Function wxGraphicsDriver:TwxGraphicsDriver()
Expand Down
8 changes: 4 additions & 4 deletions wxmaxgui.mod/wxgui.bmx
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
4 changes: 2 additions & 2 deletions wxrarinputstream.mod/glue.cpp
Original file line number Diff line number Diff line change
Expand Up @@ -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) {
Expand Down