RISC OS Open: Forum: Recent Posts by Stefan Fröhling (7826)

Oct 26, 2024

Congratulation! Better late than never.
We (Cloverleaf RISC OS Project) implemented the mouse-wheel support already about 3 years ago and our version also has clipboard support between the host OS and RISC OS.
You could have taken over our code and still can(!) for the clipboard support as it needs a new module in the RISC OS part.
But maybe it is a no-go to use code that was programmed by Germans….

RISC OS Cloverleaf Github

Oct 20, 2024

Oct 26, 2024 Stefan Fröhling (7826) 167 posts	Topic: Announcements / RPCEmu 0.9.5 Congratulation! Better late than never. We (Cloverleaf RISC OS Project) implemented the mouse-wheel support already about 3 years ago and our version also has clipboard support between the host OS and RISC OS. You could have taken over our code and still can(!) for the clipboard support as it needs a new module in the RISC OS part. But maybe it is a no-go to use code that was programmed by Germans…. RISC OS Cloverleaf Github

Oct 20, 2024 Stefan Fröhling (7826) 167 posts	Topic: Announcements / Free Pascal Compiler (FPC) Alpha version I can report a successful first step to bring the Free Pascal Compiler (FPC) to RISC OS. I was already ogling with Lazarus and FPC before but some post of Gerald Holdsworth brought me back on track and I decided to make a follow-up post on the Lazarus forum. Some programmers from Lazarus offered their support for the RISC OS porting of Lazarus. After two weeks I had the luck to convince Michael Grunditz to have a look at the compiler. During 2 month he managed to make the compiler to work. Although it is not a complete version it is able to compile Pascal programs and also to access RISC OS SWI’s. The memory system is not correctly implemented and it will crash after some time as memory is not freed. So the current state of the compiler is only alpha version and “Experimental proof of concept” that the port to RISC OS is possible. We don’t take responsibility of any data loss as it can crash RISC OS and we also don’t need error reporting. Crashes can be expected so save your valuable data before you compile or run a Pascal program. You can download the Alpha version of FPC here: Download FPC for RISC OS here Who wants to follow the development can have a look at the Lazarus/FreePascal forum: Link to Lazarus forum discussion about RISC OS version of FPC I am looking for more programmers who are willing to join to finalize the FPC to work on RISC OS. There is still work to do on the compiler but the much more work will be to implement the GUI of Lazarus and its Widgets. Contact: info@riscoscloverleaf.com

Jul 19, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / Key to boot to command line Seems for the RK3399 ROM another behaviour was implemented. Key “ESC” works only when you press multiple times during booting and the result is that it doesn’t start !Boot which solved my problem as the monitor obey file had wrong setting which resulted in a black screen.

Jun 14, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / Key to boot to command line Thanks! SHIFT works to get into Command line but you must press not too early as when press too early the computer doesn’t start at all… The info about “Keyboard not present: autobooting” is also helpfull as I saw that error also sometimes.

Jun 13, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / Key to boot to command line I have problem with my setup as predesk boot shows the normat text infos but when the desktop should open then i get only black. So how i can prevend that desktop is started (go to command line) or started with default values? I found an info about what keys should work but the one I need doesn’t work (press numberblock ) I tried also SHIFT “8” = . RISC OS keypress option for Boot Hold down key on startup R reset all OS CMOS Delete reset all CMOS T as R but configure the opposite video Sync Copy as Delete but configure the opposite video Sync Keypad 0-9 change configured monitor type to specified number Keypad . change mode, sync and monitor type to Auto Shift reverse the operation of automated boot Keypad * force start up to a command line

May 15, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / Treeview and SpriteOP void CLDirectoryWindow::assign_node_sprite(tbx::ext::TreeViewCurrentNode& node, CLDirectoryItemData item) { CLBaseImage spr = item→small_sprite_image(); // Log_debug(“CLDirectoryWindow::assign_node_sprite small spr:%p item:%s”, spr, item→name().c_str()); if (spr) { if (spr→get_image_type() == CL_IMAGE_TYPE_WIMP_SPRITE) { node.sprite(1, ((CLWimpSpriteImage)spr)→name_str(), ((CLWimpSpriteImage)spr)→name_str()); } else { CLUserSpriteImage user_spr = ((CLUserSpriteImage)spr); std::string spr_name = user_spr→name(); node.sprite((int)user_spr→get_area_pointer(), spr_name, spr_name); } } else { node.sprite(1, “small_dir”, “small_diro”); } }

May 15, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / Treeview and SpriteOP We found out in the meantime that Treeview allows to specify sprite from app memory by specifying the sprite area address. @Steve: The *IconSprites command might be a good way so we can create the sprites only one time and save them in the app folder.

May 11, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / Treeview and SpriteOP @Stuart OK that might be the solution. @Graeme: WimpPlotIcon is not the right way as Treeview does the Redraw not our App. Her is the code to set the sprite name: `The code is: node.sprite(1, spr->name(), spr->name());` `Code for .sprite() method from TBX below:` `void TreeViewCurrentNode::sprite(int sprite_area_id, const std::string &sprite_name, const std::string &expanded_sprite_name) { _kernel_swi_regs regs; regs.r⁰ = 0; // Flags are zero regs.r¹ = _handle; regs.r² = 0×402d; regs.r³ = id; regs.r⁴ = sprite_area_id; regs.r⁵ = reinterpret_cast(sprite_name.c_str()); regs.r⁶ = reinterpret_cast(expanded_sprite_name.cstr());`

May 11, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / Treeview and SpriteOP We are using Treeview in !CLFiler and want to display the App sprite in the tree. We do it already but discovered that it doesn’t work with all sprites as they are sometimes not declared. We set the "sm!{appname} as reference. So some are missing when that one is not available in the App’s sprite file. Example of missing sm!sprite So the idea is that we create the missing sprites in the sprite area but we are running into a problem there. Current problem: Problem that I can’t create the sprite in the system sprite area. When I tried to create a sprite with “OS_SpriteOp 15 – Create sprite” I got an error that there was not enough memory in the sprite area. I tried to reallocate sprite area memory with OS_ChangeDynamicArea http://www.riscos.com/support/developers/prm/memoryman.html#89840 No errors and “OS_SpriteOp 15 – Create sprite” also returned without errors but sprite is not created. The “OS_SpriteOp 24 – Select sprite” https://www.riscosopen.org/wiki/documentation/show/OS_SpriteOp%2024 cant find it and the sprite info call returned 0×0 dimensions. This is the code: // main code: tbx::Size sz, dst_sz; int mode; bool has_mask; spr→info(&sz, &mode, &has_mask); dst_sz.height = sz.height / 2; dst_sz.width = sz.width / 2; Log_debug(“wimp_spr try to create nm=%s sz=%dx%d”, small_name.c_str(), dst_sz.width, dst_sz.height); tbx::WimpSprite sm_sprite = tbx::SpriteArea::create_wimp_sprite(small_name, dst_sz.width, dst_sz.height, spr→mode(), spr→has_palette(), spr→has_mask()); Log_debug(“wimp_spr check existing nm=%s”, sm_sprite.name().c_str()); if (sm_sprite.exist()) { Log_debug(“wimp_spr created nm=%s sz=%dx%d”, small_name.c_str(), sm_sprite.width(), sm_sprite.height()); tbx::ScaleFactors sf(1,1,2,2); tbx::TranslationTable tt; Log_debug(“tbx::ScaleFactors created”, 1); if (spr→mode() != 0×301680B5) { tt.create(spr); } Log_debug(“Will capture wimp sprite: %s”, spr→name().c_str()); if (spr→has_palette()) { tbx::WimpSpriteCapture capture_sprite(&sm_sprite, true, false); spr→plot_scaled(0, 0, &sf, &tt, (1 << 4)); capture_sprite.release(); } else { tbx::WimpSpriteCapture capture_sprite(&sm_sprite, true, false); spr→plot_scaled(0, 0, &sf, 0, 0); capture_sprite.release(); } Log_debug(“Captured wimp sprite: %s”, sm_sprite.name().c_str()); // Log_debug(“Plot scaled ‘%s’ has_mask:%d has_palette:%d sf xm:%d ym:%d xd:%d, yd:%d area:%p”, user_spr.name().c_str(), user_spr.has_mask(), user_spr.has_palette(), sf.xmult(), sf.ymult(), sf.xdiv(), sf.ydiv(), area→pointer()); small_sprite = new tbx::WimpSprite(smallname); return _small_sprite; WimpSprite SpriteArea::create_wimp_sprite(const std::string &name, int width, int height, int mode, bool palette /* = false /, bool with_mask / = false /) { kernel_swi_regs dynamic_in, dynamicout; _kernel_oserror err; dynamic_in.r⁰ = 3; // sprite area dynamic_in.r¹ = (width * height * 8 + 256); // increase err = kernel_swi(OS_ChangeDynamicArea, &dynamic_in, &dynamicout); if (err == NULL) { _kernel_swi_regs in, out; in.r⁰ = 15; in.r¹ = 0; in.r² = (int)name.c_str(); in.r³ = palette; in.r⁴ = width; in.r⁵ = height; in.r⁶ = mode; err = kernel_swi(OSSpriteOp, &in, &out); if (err == NULL) { if (with_mask) { kernel_swi_regs mask_in, maskout; mask_in.r⁰ = 29; mask_in.r¹ = 0; mask_in.r² = (int)name.c_str(); err = kernel_swi(OS_SpriteOp, &mask_in, &maskout); if (err == NULL) { Logger::debug(“Seems created Wimp sprite with mask %s”, name.c_str()); return WimpSprite(name); } else { Logger::error(“Error create Wimp sprite %s: %s”, name.c_str(), err→errmess); } } else { Logger::debug(“Seems created Wimp sprite %s”, name.c_str()); return WimpSprite(name); } } else { Logger::error(“Error create Wimp sprite %s: %s”, name.c_str(), err→errmess); } } else { Logger::error(“Error allocating memory for Wimp sprite %s: %s”, name.c_str(), err→errmess); } return WimpSprite(""); } WimpSpriteCapture::WimpSpriteCapture(WimpSprite sprite, bool start_capture /= false/, bool to_mask / =false/) { wimp_sprite = sprite; Log_debug(“SpriteCapture::SpriteCapture Wimp %s”, sprite→name().cstr()); int save_size; swix(OSSpriteOp, INR\|OUT, 62, 0, sprite→name().c_str(), &save_size); // Log_debug(“Save_size %d”, save_size); save_area = new char[save_size]; ((int )_savearea) = 0; // _save_area = 0; _capturing = false; save_regs⁰ = (tomask) ? 61 : 60; Log_debug(“capture %d”, _save_regs⁰); if (start_capture) capture(); } /* Sprite capture destructor. Automatically releases the current capture. / WimpSpriteCapture::~WimpSpriteCapture() { if (_capturing) release(); delete [] _save_area; } /* Capture screen output to sprite or sprites mask. * returns true if capture successful or already captured. / bool WimpSpriteCapture::capture() { if (_capturing) return true; capturing = (_swix(OSSpriteOp, INR\|OUTR, _save_regs⁰, // Output to mask or sprite op 0, wimp_sprite→name().cstr(), _save_area, &_save_regs⁰, &_save_regs¹, &_save_regs², &_save_regs³ ) == 0); return _capturing; } /* Release screen output from sprite. * returns true if successful or capture already released or not started. */ bool WimpSpriteCapture::release() { if (!_capturing) return true; capturing = (_swix(OSSpriteOp, _INR(0,3), _save_regs⁰, _save_regs¹, _save_regs², _save_regs³ ) != 0); return !_capturing; }

May 9, 2024 Stefan Fröhling (7826) 167 posts	Topic: Bugs / BootError in Desktop file It might be that somehow I catched old entries of the Desktop config file and that the current Configuration does not add these lines with Error or BootError at all.

May 9, 2024 Stefan Fröhling (7826) 167 posts	Topic: Bugs / BootError in Desktop file My initial RO5.28 should be based on RO Direct. Then I tried to update it to 5.30 but The update obey refused to do it as it said it works only with 5.28. So I just updatd manually the ROM and some of the apps. By the way where can the configuration programm be found?

May 9, 2024 Stefan Fröhling (7826) 167 posts	Topic: Bugs / BootError in Desktop file @Steve No idea how RO4 or RO6 stuff can get on my computer as I never used or owned that… if you mean by that ROL = RISC OS Limited that created RO4 and RO6.

May 9, 2024 Stefan Fröhling (7826) 167 posts	Topic: Bugs / BootError in Desktop file While configuring different !Boot setup for RK3399, Raspberry Pi and RPCemu I got error “file BootError not found”. After some digging I found a hint in this forum that actually the error comes from the !Boot.Choice.Boot.Desktop file where all settings are saved about “Look at”, “Run” at starup from the Configuration. For example: `IfThere Boot:^.Utilities.Text.StrongED.!StrongED Then Else BootError Add to Apps: Could not locate 'Boot:^.Utilities.Text.StrongED.!StrongED' IfThere Boot:^.Utilities.Text.StrongED.!StrongED Then AddApp Boot:^.Utilities.Text.StrongED.!StrongED IfThere Boot:^.Utilities.Text.StrongED.!StrongED Then Filer_Boot Boot:^.Utilities.Text.StrongED.!StrongED` So it seems that BootError actually doesn’t work at all and needs to be replaced by error to give any meaningfull error message like: "Add to Apps: Could not locate “Boot^.Utilitilites.Text.StrongED.!StrongED” So the question is if there is a bug in !COnfiguration thats need to be corrected. Replace BootError by Error

Apr 29, 2024 Stefan Fröhling (7826) 167 posts	Topic: Announcements / Compo returns @BernardBoase Nice quality of the scan! If you complete it, might be nice when you remove also the visible paper holes.

Apr 25, 2024 Stefan Fröhling (7826) 167 posts	Topic: Announcements / Compo returns Any chance to get hold of the source code? Is the programmer still alive?

Apr 23, 2024 Stefan Fröhling (7826) 167 posts	Topic: Announcements / Compo returns That is great news! Andy Marks just pointed that software out to me some days ago but we could not get it working even with AEmulator. Compo info page

Mar 31, 2024 Stefan Fröhling (7826) 167 posts	Topic: General / Alignment Exceptions on or off by default? Mmmm this sounds like a big problem. When do we know a program needs align ON or OFF? Try and error each time a program crashes? Any guidance which program needs what? Any list/examples which one needs ON? So !iris needs off and checks it by itself.

Mar 14, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / Hide menu entry Thanks for the feedback but there is a good reason why I would like to show that menu entry as there is no good text it could display as grayed out. I want to implement a feature in CLFiler that would solve one problem I encountered often in RISC OS apps: Selected items in RISC OS develope often unexpected behaviour of the app. For example in Paint when you have multiple sprites in the sprite file and you have one of the sprites selected and then drag over another image into the sprite list then the selected sprite is replaced without warning. This behaviour makes of course sense when you are aware that a sprite is selected but when you are not then your work of hours can go to hell by a mouse release as Paint has no undo feature… The context related menues and function of RISC OS programs make the software more powerful but need also higher skills or knowledge of the users. Well coming back to my “problem” with CLFiler. I want to offer an additional menu entry if in the filer folder display there are selected files but I open the menu over a file that is not part of that selection. Often you just have an idea to do something with a file and don’t recognize that you have selected files. So I want to show menu entry: 1. Selected files > submenu 2. Mouse hover file > submenu So what can be a meaningfull grayed out menu entry for the “mouse hover file”? or maybe put a seperator then “-———” to not confuse users with useless text?

Mar 13, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / Hide menu entry When using Res files you have defined menu entries for menus. Is there a way to hide entries when not used? I mean not only gray them out but make them dissapear.

Jan 23, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / How to replace the standard Filer @Alan Yes sorry for the incovenience about sending money. Paypal is no longer available. Need to look for another payment service. But you could use www.wise.com to send to our bank also. @David Thanks for the order. Did you get my email with latest version as no reply from you? Next update will come during the next days.

Jan 15, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / Module "Line Editor" Download I found today Line Editor 2.76d on my RISC OS. Not sure what application is loading it. I found then the Github site Line Editor sources I don’t know if it is forbidden to upload on GitHub / GitLab compiled programs but I am pretty pissed off by that. So no download of the module there. Only the source code. I saw a discussion about “Line editor” on another post in bounties “Adopt Zap” but there was no link mentioned for a download too. Adopt Zap I wonder if it might be usefull to have all modules listed in Packman for easy updating.

Jan 15, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / How to replace the standard Filer @Rick To replace the Filer 100% we first need to be sure that all works 100%. Otherwise we will be in trouble. And at the moment I wouldn’t say that CLFiler is perfect but very helpful.

Jan 12, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / Notification of memory device plugged in @Charles. OK Thanks. Will have a look at that too.

Jan 12, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / Bug in Fat32FS Filer Taskbar @David Can you do a quickfix that you call on startup of Fat32FS to fill the menu content (before mounting the device)? That should prevent the crash later on.

Jan 11, 2024 Stefan Fröhling (7826) 167 posts	Topic: Community Support / Bug in Fat32FS Filer Taskbar Can you send me older version of FAt32FS like 1.59 and 1.60 (or all) ? The version that didn’t crash is 1.56. then I can check from which version it happens.

Recent Posts by Stefan Fröhling (7826)

Search forums

Social

ROOL Store

Donate! Why?

RISC OS IPR

Options