[nerobotParticipant]

We can’t get any TabButton from TabView. And TabButton has no property Closable.

Easiest way to manage closable state is to add additional parameter closable:Bool=True into TabView.AddTab().

You can do it yourself or ask to Mark to add this ability.

It would be better to have it in mojox.

[nerobotParticipant]

Topic about image saving: http://monkeycoder.co.nz/forums/topic/how-to-save-a-image/

There is also ExternalDir() function along with InternalDir.

I’m not sure is it sdcard dir or not.

But if it’s so, you can use something like this:

Monkey

Function SaveImageMobile( img:Image,path:String ) Local path:=ExternalDir()+path (New Canvas(img)).CopyPixmap(New Recti(0,0,img.Width,img.Height)).Save(path) End

1 2 3 4 5

Function SaveImageMobile( img:Image,path:String )          Local path:=ExternalDir()+path     (New Canvas(img)).CopyPixmap(New Recti(0,0,img.Width,img.Height)).Save(path) End

[nerobotParticipant]

In addition to GUI app:

• there is a single output file now, info section with names / offsets / sizes placed alogn with binaries;
• addet GetText() method to extract textual files.

[nerobotParticipant]

Congrats!!

[nerobotParticipant]

I think you always should to use virtual resolution and relative coords to get the same result on all devices.

Also you can load HD resources according to real resolution.

[nerobotParticipant]

LoadString based on DataBuffer.Load

Look at std.filesystem functions. There is an InternalDir() for example. Maybe it’s what you need.

Monkey

Function LoadStringMobile:String( path:String ) Return LoadString( InternalDir()+path ) End Function SaveStringMobile( text:String,path:String ) SaveString( text,InternalDir()+path ) End ' usage: SaveStringMobile( "hello","text-data.txt" ) ..... Local str:=LoadStringMobile( "text-data.txt" ) Print str

1 2 3 4 5 6 7 8 9 10 11

Function LoadStringMobile:String( path:String )     Return LoadString( InternalDir()+path ) End Function SaveStringMobile( text:String,path:String )     SaveString( text,InternalDir()+path ) End ' usage: SaveStringMobile( "hello","text-data.txt" ) ..... Local str:=LoadStringMobile( "text-data.txt" ) Print str

I can’t insert link to docs page because docs is dynamically showing by JavaScript, therefore I insert link to source code:

github page

[nerobotParticipant]

Some ideas about using data packer.

I want to use it for release but don’t want to re-pack every time while developing.

My approach is to have 2 imports with different ‘configs’ for resource manager:

Monkey

#Import "ResDev" '#Import "ResRelease"

1 2	#Import "ResDev" '#Import "ResRelease"

We use one of them at a time – just comment/uncomment two lines.

Inside of them we have something like:

Monkey

' ResDev Namespace datapacker ' just import assets files #Import "assets/" Function InitAssets() ' do nothing End

1 2 3 4 5 6 7 8 9 10 11 12

' ResDev   Namespace datapacker   ' just import assets files   #Import "assets/"   Function InitAssets()   ' do nothing End

Monkey

' ResRelease Namespace datapacker ' import our packed files instead of all assets files #Import "packs/@/" ' Assets is a singleton class, you should use it for all loading stuff Function InitAssets() Assets.UsePack( "assets.bin" ) ' or do it another way End

1 2 3 4 5 6 7 8 9 10 11 12 13 14

' ResRelease   Namespace datapacker   ' import our packed files instead of all assets files #Import "packs/@/"   ' Assets is a singleton class, you should use it for all loading stuff   Function InitAssets()   Assets.UsePack( "assets.bin" ) ' or do it another way End

Don’t forget to call our InitAssets() in Main():

Monkey

Function Main() InitAssets() New AppInstance New MyWindow App.Run() End

1 2 3 4 5 6 7 8 9 10

Function Main() InitAssets() New AppInstance New MyWindow App.Run() End

Of course, we should use our Assets class for any loading stuff to get all discussed here benefits (easy swapping between loading-from-single-files and loading-from-packs).

Also, we can try to find single-files in assets folder if not found in pack-file.

Attachments:

1. 

   datapacker.png
   

[nerobotParticipant]

Function LessThan<T>:Bool( val:T )( cmp:T )

Wow, two pairs of brackets, it’s an undocumented cheat!
And it works. My life will never be the same…

[nerobotParticipant]

Ok I though this was not new and that the new feature announced in the blog post was not for generics.

New part of Where is abilitity to combine conditions by And / Or / Not operators.

You can write Where T Extends Component Or T=MyUpdater. Yes, we also can use = and <> in conditions.

Combined condition is needed also for multi-generic classes, for example:

Monkey

Class Dictionary<K,V> Where K Implements IKey And V Implements IValue ....... End

1 2 3

Class Dictionary<K,V> Where K Implements IKey And V Implements IValue ....... End

 

I still don’t get when the class has been instantiated if the program could not run. Afaik you have to call New() to get an instance. Or Mark meant instantiated in the compiler logic?

Here: “instantiated” means “code part where we call New()”. Monkey2’s compiler check all New() calls to check are they correct accordingly with Where. C++ compiler do its own checks but doesn’t allow us to deny using of unwanted types as a generics (allow to deny, sounds good:) ).

[nerobotParticipant]

If you want a function to be called when a value is modified, you’ll need a ‘Set’ style method for assignments

Yes, I want this! But don’t want to use Set or properties.:)

Saying about Class Assignable<T> above I meant to have it as a core type of monkey2 like a Variant is.

Variant have an assignment magic on a c++ side. I need right the same plus event Assigned to be able to react on value changes.

I know that this is very specific thing, but maybe it sounds useful not for me only.

[nerobotParticipant]

This solution depends on Stream.Seek( position:Int ) method, but not all streams are seek-able.

This time I know only that it works fine for desktops.

Also need to test very big pack file – about 500 mb and monitoring RAM usage.

I expect to see low RAM usage because it just jumps to resource offset in file stream and read only needed data part.

[nerobotParticipant]

No, I will not supporting assignment overloading in the near future, if ever.

I agree, and I never used it in c++.

Any ideas how to get what I want?

My idea is to have special base class with Assigned event. So we can’t break anything by overloading but can react on assignment:

Monkey

Class Assignable<T> Protected Field Assigned:Void( value:T ) ..... End

1 2 3 4 5 6 7

Class Assignable<T>     Protected   Field Assigned:Void( value:T )   .....   End

Maybe this class will extends Variant but with generic type.

And usage:

Monkey

Class Changable<T> Extends Assignable<T> Field Changed:Void() Method New() Assigned=Lambda( value:T ) _value=value Changed() End End ......... End

1 2 3 4 5 6 7 8 9 10 11 12 13

Class Changable<T> Extends Assignable<T> Field Changed:Void() Method New() Assigned=Lambda( value:T ) _value=value Changed() End End ......... End

[nerobotParticipant]

What would be the syntax for the new where for class conditions? And what is the purpose of this feature?

Don’t use it just because you can if you don’t really need that.

And I don’t get how a compilation error can occur while the class is instantiated, wouldn’t it be a runtime error?

Not a runtime error but compile time error!

mx2cc checks variables types at compile time.

See my example below. There is an compilation error. Just comment where condition and you can compile it.

Both classes have DoSomething methods => we can use them as generic type.

But if we want to use ComponentHolder with components only – we add Where condition to deny other types.

Monkey

Namespace myapp #Import "<std>" Using std.. Function Main() Local h1:=New ComponentHolder<Component>( New Component ) Local h2:=New ComponentHolder<NotComponent>( New NotComponent ) h1.Exec() h2.Exec() End Class Component Method DoSomething() Print "I'm a component" End End Class NotComponent Method DoSomething() Print "I'm not a component" End End Class ComponentHolder<T> Where T Extends Component Method New( comp:T) _component=comp End Method Exec() _component.DoSomething() End Private Field _component:T End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

Namespace myapp   #Import "<std>"   Using std..   Function Main()   Local h1:=New ComponentHolder<Component>( New Component ) Local h2:=New ComponentHolder<NotComponent>( New NotComponent ) h1.Exec() h2.Exec() End   Class Component Method DoSomething() Print "I'm a component" End End   Class NotComponent Method DoSomething() Print "I'm not a component" End End   Class ComponentHolder<T> Where T Extends Component Method New( comp:T) _component=comp End Method Exec() _component.DoSomething() End Private Field _component:T End

[nerobotParticipant]

The truth is, I don’t want to have such magic in monkey2.

I agree – operator To + extensions = powerful coding.

So the monkey2 equivalent might be: if ‘operator from’ WAS supported, and a dst type implemented ‘operator from’ and a src type implemented ‘operator to’, which would get used when converting from src type to dst type?

Left-sided vars have a bigger priority, I think…

If there’s something you can’t do this way, let me know and we can try to come up with a solution.

I’m triyng to do observable variables – sort of plain values wrapper which would notify listeners about value changing.

And I want to use this wrapper as a plain type, but I can’t catch value assignment without overriding of assign operator.

Variant type have a magic with value assigning – we can assign anything.

I want to do something like that but with strong types checking via generics.

My example:

Monkey

Namespace myapp Function Main() Local i1:=New Changable<Int>( 10 ) i1.Changed+=Lambda() Print "changed: "+i1 End i1=7 ' can't assign 'i1=i1+15 End Class Changable<T> Field Changed:Void() Method New() End Method New( value:T ) _value=value End Operator =( value:T ) 'trouble is here _value=value Changed() End Operator To:T() Return _value End Operator To:String() Return ""+_value End Property Value:T() Return _value End Private Field _value:T End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

Namespace myapp   Function Main()   Local i1:=New Changable<Int>( 10 ) i1.Changed+=Lambda() Print "changed: "+i1 End i1=7 ' can't assign 'i1=i1+15 End   Class Changable<T> Field Changed:Void() Method New() End Method New( value:T ) _value=value End Operator =( value:T ) 'trouble is here _value=value Changed() End Operator To:T() Return _value End Operator To:String() Return ""+_value End Property Value:T() Return _value End Private Field _value:T End

[nerobotParticipant]

Try to compile template app.

Menu File — Templates — Simple mojo app.

[Author]

Posts