Scolring - Forum

hello everyone I am having problems building an app with the tabs api  (posted to : https://redmine.openspace3d.com/project … tabs.html)

the scol code is from that page on redmine:

var A = 3;;
	
fun cbTabChange (obj, u, i)=
	_fooS strcat "tab " u;
	_fooS strcat "new tab selected : " itoa i;;

fun cbSize (o, tab, w, h)=
	_DELtab tab 2;
	_APPENDtab tab strcat "number " itoa A;
	++A;
	0;;

fun main ()=
	_showconsole;
	
	let _CRwindow _channel nil 300 50 800 600 WN_NORMAL "test tabs" -> win in
	let _CRtabExpand _channel win TAB_SHOWN -> tab in
	(
	_fooS if tab == nil then "TABS NOT CREATED" else "TABS CREATED";
	
	_ADDtab tab "number 1" 0;
	_ADDtab tab "number 2" 1;
	_ADDtab tab "number 3" 2;

	_SETtabSelected tab 1;
	_SETtabPadding tab 10 20;

	_CBtabChange tab @cbTabChange "changed";

	let _CRwindowInTab _channel tab 0 WN_CHILDINSIDE -> child in
	_CRbutton _channel child 5 50 250 200 0 "BOUTON CHILD 0";
	let _CRwindowInTab _channel tab 1 WN_CHILDINSIDE -> child in
	_CRbutton _channel child 5 5 250 200 0 "BOUTON CHILD 1";
	let _CRwindowInTab _channel tab 2 WN_CHILDINSIDE -> child in
	_CRbutton _channel child 50 50 250 200 0 "BOUTON CHILD 2";
	
	_CBwinSize win @cbSize tab;	
	0
	);;

when scol runs main(), you don't see the buttons in any of the tabbed windows at first.

you have to switch from the first selected tab window to another to see the buttons in the tab windows. so if tab "Number 1" is selected when you run main, there is no button. when you switch to tab "Number 3" or "Number 2", you will see buttons in those tabs, and if you switch from either of those tabs back to "Number 1", you will see the button there.  It seems that you have to change a tab in order to start seeing buttons anywhere, whatever tab is selected first as per the code.

1. is this due to the beta nature of the api?
2. is there a workaround?
3. do i have to use the
thanks for your input!

I have posted the .scol and .pkg files here
-Dan

it's been so long I've forgotten some basics

I installed os3d on my computer from https://www.openspace3d.com/downloads/O … d%20Editor

I set the setup>:maintenance window in scol voyager to enable logs files>all, and I checked all the boxes except for "list scol extensions and allow the cache the choice between the full mode or minimal mode", which was greyed out

I set my antivirus program, webroot secure anywhere, to "allow" Scol.exe in C:\Program Files\Scol Voyager

I created a folder named "hello" in the Partition_LockedApp and in the Partition_LocalUsr and put the same two files, hello.scol and hello.pkg, in both of these folders in the "hello" folder.

hello.scol reads:

_load "hello/hello.pkg"

main ""

hello.pkg reads:

fun main()=
    _showconsole;;

Windows is set to automatically open .scol files with Scol.exe in C:\Program Files\Scol Voyager

When I click on hello.scol, nothing happens. Any pointers?

the files are here

Thanks!
-Dan

hello everyone:

I'd like openspace3d to draw a hexmap, with  three levels of detail (and much more, but I'll start with  that).  The map would allow the placement of a 2d sprite on it, and openspace would be able to determine where the sprite is (in terms of something like an index number   for the hex cell) at the smallest, medium,  and largest size of hex.

But to start, how would I use the function _BTDRAWline to draw one hex that is 1000 by 1000 pixels? (I'll start with that). I'd like to use openspace3d to do this as I think it would be easier than building up a whole interface with scol and the more basic 2d libraries but I am open to suggestions. The project will be 2d only.

Here is what I'd like to use openspace (or scol coding,if that is easier) to draw and associate with a struct that references the hex and a coordinate system. (For  the present, the coordinate system could  simply be a single Integer.) Ignore the shading of the hex I couldn't figure out how to make gimp leave out the shading.

long time (for me) and no coding, my brain has been getting out of shape

I've been thinking about how to build a grid of objects in scol, starting (and perhaps ending) with strings in the system console.

This code has two functions.

The first function takes a string element S , an integer I specifying how many times the element is to occur in a list,  and returns a list of strings: S R1

proto make_string_list =  fun [S [S r1] I ] [S r1];;

The second function takes a list of strings S r1, a multiplier, which counts how many individual strings are to be printed to the console before the console begins writing a new line I, and returns an output string S, which is a grid of the strings written with multiplier I strings per line:

proto build_line_return_string = fun[[S r1] I I S]  S;;

Here is the whole package. I figure this could be done in os3d to build grid like structures for fps games or, if the input of each element is varied, to build grid like city structures:

proto build_line_return_string = fun[[S r1] I I S]  S;;
proto make_string_list =  fun [S [S r1] I ] [S r1];;




fun make_string_list(element, list, iterations) =
let 0 -> counter in
(
while (counter < iterations) do
(
set list = element::list;
set counter=counter+1;
);
);
list;;



fun build_line_return_string (list, multiplier, counter, output_string)=
	
	//end of list, return full string
	if ((hd list)== nil) then
	(
	
	output_string;
	)
	else
	//not end of list yet
	(	
	if ((mod counter multiplier)==0)
	then
	(
	//add head of list to end of string, add line return since we are at a multiple of multiplier that 
        //determines line length and 
        //feed tail of list and changed string back into function
	set output_string= strcatn output_string::(hd list):: "\n"::nil;
	set counter = counter +1;
	build_line_return_string tl list multiplier counter output_string;
	)
	else
	(
        //add head of list to end of string followed by a space, feed tail of list 
        //and changed string  back into function
	set output_string = strcatn output_string::(hd list)::" "::nil;
	set counter = counter +1;
	build_line_return_string  tl list multiplier counter output_string;

	);
	);;	
	
fun main()=
_showconsole; 
let make_string_list "vv" nil 100-> string_list in
_fooS build_line_return_string string_list 2 1 nil;
0;;

Are you guys, friends, and family ok?

good work!
-h