TweetFollow Us on Twitter

Dec 89 Mousehole
Volume Number:5
Issue Number:12
Column Tag:Mousehole Report

Mousehole Report

By Rusty Hodge & Larry Nedry, Mousehole BBS

From: Willcox

Re: Print Manager Error

I solved my printing problem, but I do not fully understand why it now works. Maybe someone out their can explain. First, the problem was that sometime when printing (using a Mac IIcx only), the system would sometimes forget that a certain font was a LaserFont, and promptly started creating a bitmap for it. However, the screen font information was also lost, so this process eventually terminated in an error.

I tracked the problem down to a single call to “UseResFile” from which I had to load a specific private resource. I fixed the problem by modifying the code to:

     temp:=CurResFile;
     UseResFile(theFileNumber);
     theResource:=GetResource(asdfjasldf);
     UseResFile(temp);

Now, why does this work??? I have not found a warning in Inside Macintosh, and the error only occurs on my Mac IIcx, not on my Mac Plus.

From: Jmoreno

Re: Print Manager Error

What was happening is the call to UseResFile was removing the System from the list of open files to search for a resource. And that font was no longer found. The system adds each opened resource to the end of a list and then when you try to load a resource it starts at the end and backtracks looking through all of the open resource forks for the requested resource. So when you open a resource it gets a place in line, when you call UseResFile it gets put at the beginning and is set to be the FIRST resource to search (everything else is then gone from the resource list). Hope this helps you understand what is going on. BTW if you haven’t already I STRONGLY recommend that you buy Inside Mac Vol 1 to 5.

From: Inbox

Re: Var declaration

Sheeshh.... Here I go again..

Awright, I’m trying to create an array of the following size after VAR in my globals unit: myarray : array[1..7,1..300] of string[20]; but LSP says that it’s “unable to create blah..blah..blah on this level”. Now what is a body to do if using dynamic memory allocation means changing the whole program?? Is there some kind of a call I can make to perhaps increase the size of the applications stack beforehand?! But the globals’ unit gets compiled first so the instruction won’t get executed at that point...

Thanks for listening, _inBox_ (this should read _inTrouble_)

From: Jmoreno

Re: Var declaration

In the run options part of Think Pascal (formerly LSP) there is an option for setting both the stack (which is what you want) and the heap.

From: Tomt

Re: Var declaration

Dumb question but how in Pascal do I access the stuff in a handle. My problem is that I need to make an array of integers of size, say, 500 by 500. Now I tried array type of that size,without making any instances of it, but LSP wouldn’t let do that. So if I make a handle to the appropriately sized chunk of memory, how do I access the i,j the element. I’m sure its trivial, but I haven’t been able to figure it out. Thanks in advance for any help

From: Inbox

Re: Var declaration

Awright.. Methinks I got it.. Here’s the 500 by 500....

TYPE
 myarray = array[1..500,1..500] of integer;
 myarrayptr = ^myarray;
 myarrayHandle = ^myarrayptr;
VAR
 THEarray : myarrayHandle;
BEGIN
 THEarray := myarrayHandle(NewHandle(SizeOf(myarray)));

That’s it. To access an element, do

myint := THEarray^^[i,j];  where i and j are integers, etc...

Set an element by THEarray^^[i,j] := myint;

Hope this helps. _inBox_

From: Jimm

Re: Var declaration

On page 447 of LSP 2.0 manual it says that data structures cannot exceed 32766 bytes. Your data structure is 22*7*300 or >42K.

From: Dhands

Re: Var declaration

The previous VAR declaration will work as stated, since the data structure allocated at compile time is only a 4 byte handle, not the >40k array. The array is later allocated dynamically at run-time.

For example:

VAR
        good : BigHandle; {4 byte handle to huge, >32k, data}
        bad  : ARRAY[1..40000] char;{>32k data won’t fit here}

The difference is that “good” has it’s data on the heap (via NewHandle) and is only limited in size by the available memory. Where as “bad” is pre-allocated space in global or local areas of the heap which is limited to 32k.

From: Shaper

Re: Printing Samples?

One more question, does anyone have any Pascal (preferably LSP) source code for printing to an ImageWriter - text only, no graphics necessary, I tried to use PrCtlCall() or whatever it’s called, but I don’t know how to set up a ptr to text, and also how do you set the HiWord and LoWord of a longint? I know you can GET it by doing aLongInt:=HiWord(bLongInt) or aLongInt:=LoWord(bLongInt) but you can’t do HiWord(bLongInt):=aLongInt...

From: Dhands

Re: Printing Samples?

Here’s a quick summary of draft printing using the print manager’s low level calls. The low level calls should not be used for “real” printing, but they are great for quick-n-dirty printing.

{1}

PrDrvrOpen;                          {open print driver}
PrCtlCall(iPrDevCtl,lPrReset,0,0);   {reset/init printer}
PrCtlCall(iPrIOCtl,LONGINT(@textBuf),count,0);{send some text}
PrCtlCall(iPrDevCtl,lPrLFSixth,0,0); {advance printer paper}
PrDrvrClose;                         {close print driver}
VAR
        textBuf : PACKED ARRAY [1..256] OF Char;
        str     :       Str255;

Since you must explicitly advance the paper you have to print one line at a time. To print a Str255 for example:

{2}

count := Length(str) {number of bytes to copy}
FOR i := 1 TO count DO
  textBuf[i] := str[i];{note: don’t copy over str[0] length byte}
PrCtlCall(iPrIOCtl,LONGINT(@textBuf),count,0);
PrCtlCall(iPrDevCtl,lPrLFSixth,0,0);

From: Jmoreno

Re: Printing Samples?

1a) Why don’t you try using the regular printing process, it’s no big deal to open the port then open a page print a page, close the page then open another page if needed....

1b) To get a pointer to the text in a Str255 use

TextPtr:=@YourString[1]; { really need to make sure you have 1+ chars}

2a) to set the Hi&LoWord of a longInt use:

bLongInt:LongInt;
theInt:^Integer;
BEGIN
theInt:=@bLongInt;
theInt^:= 12; { set the HiWord}
theInt:=Ptr(LongInt(theInt) + 2);
theInt^:= 60; { set the LowWord}
END;

or Use a variable RECORD

From: Inbox

Re: Holy #$%^!!

What just happened is too weird to be true. I’ve had a folder with one of the LSP projects I was working on, and I made 2 copies of it by ctl-D (Duplicate). I put the two copies in different folders in other places of the tree. Over a period of a few months, I made changes to the original file, and replaced the old copies with new ones once in a while. But today I discovered that whenever I change a file (LSP project and its files) in one of the folders, they get changed in all of them. So, when I make some changes to the copy, save, and quit, the changes appear in the original source file as soon as I open it. However, when I changed the names of the files in one of the “copy” folders, removed the object code, and recompiled, the changes were gone and the old stuff was there unaltered. So one can assume that whenever the copy was opened, LSP really opened the original, and, when I saved the changes, they were saved to the original, and the copy was never altered. Is this a major access path screw-up on the LSP part or what? I’ve never noticed anything like that before. I rebuilt the Desktop file a sec ago and hope that this won’t happen to all my LSC projects as well. Any comments or ideas or similar experiences???

From: Siegel

Re: Holy #$%^!!

Remember that Pascal remembers files in a project by absolute pathname, and not relatively, as THINK C does. Therefore, all of your duplicate projects are pointing to the same set of source files, until you explicitly change the references with option double-click.

From: Rguerra

Re: Resource Question

How does one read resources into memory at INIT time and have them stay in the System Heap after the INIT has executed and STILL HAVE THEM RECOGNIZABLE AS RESOURCES? DetachResource will make them ordinary handled blocks. Since they would probably have to remain as part of an open resource map, how do you keep your INIT file’s resource fork open, ie. prevent the System’s INIT31 mechanism from closing it after execution? I’d like to leave certain resources in the fork open AS RESOURCES, and I’ll leave the whole file open if I must. Alternatively, is there a way to “graft” a resource onto the System file (or ROM resource map in memory) without actually explicitly AddResource - ing to the System? I’d really rather not modify people’s System files. Any suggestions would be appreciated.

From: Bob Beason

Re: Scrolling Window

I am trying to write an application that takes data from an A/D board (in a Mac II) and plots it in a window as a horizontal graph. I would like for the graph to be about 4 screens wide and as the data are plotted, for the window automatically to shift to the right so that the most recent point is at the right edge of the screen. In some cases there will be only a few msecs between values from the I/O board, so I can’t spend a lot of time redrawing the window. Does anyone have or know of any “C” routines to handle automatic scrolling along the horizontal axis?

From: Noisy

Re: Desktop Bashing

Ok...so Apple says that directly drawing into the Desktop is a BAD THING, probably because it will abuse and confuse MultiFinder. No bets. Anyone have any brilliant (or at least moderately bright) ideas on how to display icons in the Desktop (like the Trashcan) without violating wMgrPort? The infamous ‘make a window bigger than the desktop and never let the User select it’ is great under the Finder, but fails miserably under MultiFinder, ‘cause it hides all the other application windows. Displaying icons inside 32x32 windows is a cheap solution, but then you get ugly frames around them (a custom WDEF maybe?). If you’ve got the idea...I’ve got the beer.

From: Dhands

Re: Edittext items & MacApp

I noticed something odd about putting controls (i.e., Radio buttons, Check boxes, Edittext etc...) into windows. MacApp will accept most of the standard controls in a TWindow or TView except for Edittext items. Edittext items require a superview of type TDialogView, where as the other controls will work with superviews of just TWindow or TView. The problem appears to be the fTEView field of TEditText remains nil if there is no TDialogView superview. It would be nice to be able to put an Edittext into a TWindow or TView, is this possible? and what might be the reason for not allowing it?

From: Rastamon

Re: Edittext items & MacApp

TEditText depends upon TDialogView to handle things like tabbing and dismissing modal dialogs. You can use “TTEView” objects in TViews and TWindows, but you’ll have to handle the tabbing between fields yourself.

From: Jaff

Re: Need Partitioning SW

Help, anyone! I want to do a partition on a Rodime 100MB drive we have. The drive was purchased from TallGrass as a raw device; we’ve formatted it with their utility which does not support partitions. We’ve also been able to format it with CMS Utility v4.0 which does not support partitions either. We would like to be able to run A/UX and Mac OS on this drive. Both utilities which can create the partitioning we desire do not recognize the device; Apple HD SC Setup wants a SONY, and Jasmine’s DriveWare, although the Rodime “RO3000T 1.26” string appears within their resources, does not work either.

Can anyone help?

From: Gwdavis

Re: Need Partitioning SW

Rodime formatting software is available on CIS or Genie, I think. I used it to format my CMS Pro102, and it’s the same drive I think.

From: Andgroup

Re: Flushing the cache

Does anyone out there know how to flush the read disk cache? I am not referring to the file system write cache, but the caching mechanism described in tech note #81. I need to flush cache of all blocks as specified, flushing the whole cache would be a bit gauche, but I would settle with that if that is all I had..

From: Malam

Re: LocalTalk xones

Liaison can create two zones on a non-dedicated Macintosh. It’s pretty cheap, compared to the Apple Internet Router, which costs $399. As far as hardware is concerned, the AST ICP for the MacII does implement extra AppleTalk ports, especially useful under A/UX. Something to that effect...

From: Jaff

Re: Scrolling INIT

Does anyone know of an INIT that will slow up scrolling (through lists or menus) on fast machines? We have SE/30s, IIx & IIcx (soon to have IIci) and find it hard to maneuver a menu when it scrolls real fast! Please upload!

From: Mrteague

Re: Scrolling INIT

I will upload the INIT someone else mentioned - call Scroll/Limit. On standard machines (SE, II), I found the “top speed” to be TOO slow - it seems to add a lot of processing overhead as an INIT. Good luck with it.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Lyn 1.7.2 - Lightweight image browser an...
Lyn is a fast, lightweight image browser and viewer designed for photographers, graphic artists, and Web designers. Featuring an extremely versatile and aesthetically pleasing interface, it delivers... Read more
Tunnelblick 3.6.7beta02 - GUI for OpenVP...
Tunnelblick is a free, open source graphic user interface for OpenVPN on OS X. It provides easy control of OpenVPN client and/or server connections. It comes as a ready-to-use application with all... Read more
jAlbum Pro 13.4 - Organize your digital...
jAlbum Pro has all the features you love in jAlbum, but comes with a commercial license. You can create gorgeous custom photo galleries for the Web without writing a line of code! Beginner-friendly... Read more
calibre 2.65.1 - Complete e-book library...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital librarian... Read more
jAlbum 13.4 - Create custom photo galler...
With jAlbum, you can create gorgeous custom photo galleries for the Web without writing a line of code! Beginner-friendly, with pro results - Simply drag and drop photos into groups, choose a design... Read more
Backblaze 4.2.0.966 - Online backup serv...
Backblaze is an online backup service designed from the ground-up for the Mac. With unlimited storage available for $5 per month, as well as a free 15-day trial, peace of mind is within reach with... Read more
Backblaze 4.2.0.966 - Online backup serv...
Backblaze is an online backup service designed from the ground-up for the Mac. With unlimited storage available for $5 per month, as well as a free 15-day trial, peace of mind is within reach with... Read more
Tunnelblick 3.6.7beta02 - GUI for OpenVP...
Tunnelblick is a free, open source graphic user interface for OpenVPN on OS X. It provides easy control of OpenVPN client and/or server connections. It comes as a ready-to-use application with all... Read more
calibre 2.65.1 - Complete e-book library...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital librarian... Read more
jAlbum Pro 13.4 - Organize your digital...
jAlbum Pro has all the features you love in jAlbum, but comes with a commercial license. You can create gorgeous custom photo galleries for the Web without writing a line of code! Beginner-friendly... Read more

Clean Text (Productivity)
Clean Text 1.0 Device: iOS Universal Category: Productivity Price: $3.99, Version: 1.0 (iTunes) Description: | Read more »
Gemini - A Journey of Two Stars (Games)
Gemini - A Journey of Two Stars 1.0.1 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.1 (iTunes) Description: *** SPECIAL LAUNCH SALE: $2.99 (25% off) *** "A mesmerizing and unexpectedly emotional journey." -- Los... | Read more »
How to get four NFL superstars for your...
Even though you're probably well on your way to building a top notch squad for the new season in Madden NFL Mobile, let's say you could beef it up by adding Rob Gronkowski, Antonio Brown, Von Miller, and Todd Gurley to your roster. That's... | Read more »
Cartoon Network Superstar Soccer: Goal!!...
Cartoon Network Superstar Soccer: Goal!!! – Multiplayer Sports Game Starring Your Favorite Characters 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Become a soccer superstar with your... | Read more »
NFL Huddle: What's new in Topps NFL...
Can you smell that? It's the scent of pigskin in the air, which either means that cliches be damned, pigs are flying in your neck of the woods, or the new NFL season is right around the corner. [Read more] | Read more »
FarmVille: Tropic Escape tips, tricks, a...
Maybe farming is passé in mobile games now. Ah, but farming -- and doing a lot of a other things too -- in an island paradise might be a little different. At least you can work on your tan and sip some pina coladas while tending to your crops. [... | Read more »
Become the King of Avalon in FunPlus’ la...
King Arthur is dead. Considering the legend dates back to the 5th century, it would be surprising if he wasn’t. But in the context of real-time MMO game King of Avalon: Dragon Warfare, Arthur’s death plunges the kingdom into chaos. Evil sorceress... | Read more »
Nightgate (Games)
Nightgate 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: *** Launch Sale: 25% OFF for a limited time! *** In the year 2398, after a great war, a network of intelligent computers known as... | Read more »
3 best fantasy football apps to get you...
Last season didn't go the way you wanted it to in fantasy football. You were super happy following your drafts or auctions, convinced you had outsmarted everyone. You were all set to hustle on the waiver wire, work out some sweet trades, and make... | Read more »
Pokemon GO update: Take me to your leade...
The Team Leaders in Pokemon GO have had it pretty easy up until now. They show up when players reach level 5, make their cases for joining their respective teams, and that's pretty much it. Light work, as Floyd Mayweather might say. [Read more] | Read more »

Price Scanner via MacPrices.net

Global Tablet Shipments Projected to Increase...
Digitimes’ Jim Hsiao reports that global tablet shipments will increase by 16.3 percent sequentially to reach nearly 47 million units in 2016′s third quarter, but that volume will still be down over... Read more
Apple’s 2016 Back to School promotion: Free B...
Purchase a new Mac or iPad using Apple’s Education Store and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free, and... Read more
Apple refurbished iPad Air 2s available start...
Apple has Certified Refurbished iPad Air 2 available starting at $339. Apple’s one-year warranty is included with each model, and shipping is free: - 128GB Wi-Fi iPad Air 2: $499 - 64GB Wi-Fi iPad... Read more
13-inch 2.5GHz MacBook Pro available for $961...
Overstock has the 13″ 2.5GHz MacBook Pro available for $961.63 including free shipping. Their price is $138 off MSRP. Read more
Clearance 12-inch Retina MacBooks, Apple refu...
Apple has Certified Refurbished 2015 12″ Retina MacBooks available starting at $929. Apple will include a standard one-year warranty with each MacBook, and shipping is free. The following... Read more
BookBook Releases SurfacePad, BookBook &...
BookBook has released three new covers just for iPad Pro: SurfacePad, BookBook and BookBook Rutledge Edition. BookBook for iPad Pro is a gorgeous leather case reminiscent of a vintage sketchbook.... Read more
Clean Text 1.0 for iOS Reduces Text Cleanup a...
Apimac today announced availability of Clean Text for iOS, a tool for webmasters, graphic designers, developers and magazine editors to reduce text cleanup and editing time, and also for any iPhone... Read more
27-inch iMacs on sale for up to $220 off MSRP
B&H Photo has 27″ Apple iMacs on sale for up to $200 off MSRP including free shipping plus NY sales tax only: - 27″ 3.3GHz iMac 5K: $2099 $200 off MSRP - 27″ 3.2GHz/1TB Fusion iMac 5K: $1899 $100... Read more
Apple refurbished 13-inch MacBook Airs availa...
Apple has Certified Refurbished 2016 and 2015 13″ MacBook Airs now available starting at $849. An Apple one-year warranty is included with each MacBook, and shipping is free: - 2016 13″ 1.6GHz/8GB/... Read more
Apple refurbished iPad mini 2s available for...
Apple is offering Certified Refurbished iPad mini 2s for up to $80 off the cost of new minis. An Apple one-year warranty is included with each model, and shipping is free: - 16GB iPad mini 2 WiFi: $... Read more

Jobs Board

Hardware Design Validation Engineer - *Apple...
Changing the world is all in a day's work at Apple . If you love innovation, here's your chance to make a career of it. You'll work hard. But the job comes with more Read more
*Apple* /Mac Support Engineer - GFI Digital,...
FI Digital, Inc. is currently seeking candidates for a full time Apple Support Engineer to add to our Maryland Heights, Missouri IT team. Candidates must be dynamic Read more
*Apple* Solutions Consultant - Apple (United...
Apple Solutions ConsultantJob Number: 51218534Pleasant Hill, California, United StatesPosted: Aug. 18, 2016Weekly Hours: 40.00Job SummaryAs an Apple Solutions Read more
SW Engineer *Apple* TV - Apple Inc. (United...
The Apple TV team is looking for excellent software engineers with experience in hardware, media management, media playback, content delivery and a passion for Read more
*Apple* Retail - Multiple Positions (US) - A...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.