TweetFollow Us on Twitter

Dec 95 Top 10
Volume Number:11
Issue Number:12
Column Tag:Symantec Top 10

Symantec Top 10

This monthly column, written by Symantec’s Technical Support Engineers, aims to provide you with technical information based on the use of Symantec products.

By Craig Conner

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

This month, we are going to answer some questions about using the TCL class CStyleText with Visual Architect. A project demonstrating CStyleText is available on either CompuServe or America Online, or on ftp.devtools.symantec.com.

Q: How do I create a CStyleText pane in Visual Architect?

A: Since this class does not appear in the VA Base Class popup in the Classes dialog you cannot override it in the standard way. You can, however, create a class based on CEditText and use CStyleText as a Library Class.

To review how library classes work: Usually, VA produces x_class classes derived from the class specified in the Base Class popup menu. When you use a Library Class, VA bases the x_class on the library class and assumes the library class is derived from the base class.

Creating a class in this fashion causes VA to generate an x_class derived from CStyleText, which in turn is based on CEditText, so everything is right with the world. You can then assign this class to a panorama created with the normal panorama tool, not the EditText-like tool, which is actually a CDialogText pane.

Note: For the rest of this article, I will refer to this view with the name TextPane (real original, huh?) and the class as CStyledTextEditPano, for short. I also call the document class CStyledDoc, and the application class CStyleApp.

Q: I have problems aligning the pane into the window correctly. What is the best way to set this up?

A: The easy way to set up a pane or panorama to completely cover a window is to adjust the bounds using the edit boxes. You will want to overlap the pane one pixel on each side. For example, when I look in the View Info dialog for my project, it lists the Width as 471 and Height as 443. So my CStyleText panorama is positioned at (-1, -1), and has a Width of 473 and a Height of 445.

Q: How do I set up the Font, Style and Size menus?

A: The Add Menu popup for the Menu Bar dialog box contains pre-created Font, Size and Style menus. Add these menus to the current menu bar. The Style menu has commands associated with each menu item, so TCL will take care of changing styles for the current selection. Both the default Font and Size menus are empty, so we will have to add items programmatically.

To add items we must override CApplication::SetUpMenus(), and then we revert to standard Macintosh Toolbox practices to add items. For example:

 void CStyleApp::SetUpMenus()
{
    // To handle standard initialization.
 CApplication::SetUpMenus();

    // Add the system fonts the standard way
 AddResMenu(GetMHandle(MENUfont), 'FONT');

 MenuHandle sizeMenuH = GetMHandle(MENUsize);

    // I’ve got other things planned, so we might as well 
    // account for that possibility now
 short numItems = CountMItems(sizeMenuH);

 InsMenuItem(sizeMenuH, "\p9", numItems + 1);
 
    // Similarly for other sizes...

    // Now deal with keeping items highlighted and uncheck all items   
    // when Update menus called for ease of dealing with at that time.
 gBartender -> SetDimOption(MENUfont, dimNone);
 gBartender -> SetUnchecking(MENUfont, TRUE);

    // do the same for MENUsize and MENUstyle...
}

These Font and Style menus do not have commands
associated with them because of the generic way TCL handles font and size changes. Look in CAbstractText::DoCommand() and CTextStyleTask::Do() for more information.

Having added and configured the menus, we now have to handle checking the correct menu item when the menus are displayed. We do this in the CStyledDoc::UpdateMenus(), like so:

CStyledDoc::UpdateMenus()
{
 short whichAttributes = doFont | doSize | doFace;
 TextStyle theStyle;
 Str255 itemString;
 short fontNumber;
 long fontSize;
 short count;
 
 inherited::UpdateMenus();
 
 MenuHandle fontMenu = GetMHandle(MENUfont);
 count = CountMItems(fontMenu);
 
 for (int n = 1; n <= count; n++)
 {
 GetItem(fontMenu, n, itemString);
 GetFNum(itemString, &fontNumber);
 
 if(fontNumber == theStyle.tsFont)
 CheckItem(fontMenu, n, TRUE);
 }

 
 MenuHandle sizeMenu = GetMHandle(MENUsize);
 count = CountMItems(sizeMenu);
 
 for (n = 3; n <= count; n++)
 {
 GetItem(sizeMenu, n, itemString);
 StringToNum(itemString, &fontSize);
 
 if(fontSize == theStyle.tsSize)
 CheckItem(sizeMenu, n, TRUE);
 }

    // handle easy case first
 if (theStyle.tsFace == normal)
 gBartender->CheckMarkCmd(cmdPlain, TRUE);
 else
 {
    // Turn on the correct ones
 if(theStyle.tsFace & bold)
 gBartender->CheckMarkCmd(cmdBold, TRUE);
 
    // similarly for italic, underline, etc.
 } 
}

Q: What happens if I want to use a different font size than what is in the menu?

A. Well, we can add an Other menu item to the Size menu in VA, and for correctness there should be a line between this item and the font sizes, so add one of those too. These need to be at the top of the menu, so TCL does not lose track of where it is in the menu. (All items with commands need to appear in menus before items without commands associated with them.)

Create a modal dialog view that has a DialogText item in it, so we can have the user enter the size. The item should be set to be of type CIntegerText. You should also set a range in the Pane Info dialog under CIntegerText, for example from 4 to 256. Also check the showRangeOnErr checkbox to inform the user if they make a mistake. (It’s the Macintosh Way.)

Now to complete the VA part of this, create a cmdOtherSize and associate it with the Other menu item. Have the command generate code to open the newly created dialog in the CStyleText derived class.

Next, we have to add code to handle the size change. We add this to an override of ProviderChanged() in CStyledTextEditPano:

 if(reason == kFontSizeDialogEnding)
 {
 long size;
 size = ((CFontSizeDialogData *)info)
  -> fPointSizeDialog_PointSizeEditText;
 
    // To fake out the CStyleText operations and handle a 
    // non-menu item size, we throw a new item into the menu and
    // call the command, then delete menu item
 long theCmd = (MENUsize << 16) + 3;
 Str255 string;
 
 NumToString(size, string);
 gBartender->InsertMenuCmd
 (theCmd, string, MENUsize, 2);
 
    // negate the command, so TCL knows it does not have an
    // associated command and send it.
 DoCommand(-theCmd);

 gBartender->RemoveMenuCmd(theCmd);
 }
 else
 inherited::ProviderChanged(aProvider,reason,info);

Q: After generating and compiling, why isn’t the cursor in the pane when I open a view?

A: Currently, the gopher is assigned to theMainPane of the window. To associate the gopher with the style text pane, we can re-assign it:

       
       itsGopher = fTextPane_StyleTextPano;

Do this at the end of CStyleDoc::ContentsToWindow().

Q: How do I save and read in a styled text document?

A: Saving a styled text document requires saving the text, and saving the style of that text. An easy way to do this is to use the CSimpleSaver class. In VA, make CSimpleSaver a library class for CStyledDoc. You will also need to override ReadContents() and WriteContents() (they can have empty bodies) in CStyledDoc to complete the class definition.

You can save the text using the CDataFile object member of CStyledDoc, itsFile. To save the style of the text, we need to save it into a 'styl' resource with the ID number 128. This is the standard location for style information. To save into the resource you can create a CResFile object.

Add something like this to

CStyledDoc::ContentsToWindow():

 if(itsFile)
 {
    // Deal with the text first
 Handle text = 
 fTextPane_StyleTextPano->GetTextHandle();
 ((CDataFile *)itsFile)->WriteAll(text);
 
    // And now deal with the style info
 FSSpec theSpec;

 itsFile->GetFSSpec(&theSpec);
 
 CResFile theResFile;
 
 theResFile.SpecifyFSSpec(&theSpec);

 if(!theResFile.HasResFork())
 theResFile.CreateNew('ttxt','TEXT');

 theResFile.Open(fsRdWrPerm);
 
 Handle theStyle, newStyle;
 
 theStyle = GetResource('styl', 128);
 
    // as per IM:Text p. 2-52 with a little TCL thrown in
 long savedStart, savedEnd;

 fTextPane_StyleTextPano->
 GetSelection(&savedStart, &savedEnd);
 
 (*fTextPane_StyleTextPano->macTE)->selStart = 0;
 (*fTextPane_StyleTextPano->macTE)->selEnd = 
 fTextPane_StyleTextPano->GetLength();
 
 newStyle = (Handle)fTextPane_StyleTextPano ->
 GetTheStyleScrap();
 
 (*fTextPane_StyleTextPano->macTE)->selStart =
 savedStart;
 (*fTextPane_StyleTextPano->macTE)->selEnd =
 savedEnd;
 
 HLock(theStyle);
 HLock(newStyle);
 
 if(theStyle)
 {
 long len = GetHandleSize(newStyle);
 
 SetHandleSize(theStyle, len);

 BlockMove(*newStyle, *theStyle, len);
 
 ChangedResource((Handle)theStyle);
 WriteResource(theStyle);
 }
 else
 {
 AddResource(
 newStyle , 'styl', 128, "\ptext style"
 );
 WriteResource(newStyle);
 }

 HUnlock(theStyle);
 HUnlock(newStyle);
 
 theResFile.Update();
 }

Reading in a styled text document is basically the reverse of this, and left as an exercise for the reader.

Q: Why does the application crash when I try to open a currently open document?

A: In x_CStyledDoc::FailOpen(), you will see that it calls Failure() if the file is already open. You will want to override FailOpen() to open a dialog or otherwise handle the situation.

Q: How do I get the document to print?

A: TCL has code to handle this for you. Make sure you have the Print checkbox checked in the View Info dialog for the main window.

Q: When I print, why does it cut lines in half at the bottom of the page?

A: You have the fixedLineHeights checkbox checked in the Pane Info for the StyledText panorama. (I did not tell you to turn it off earlier because I would then have only nine questions.) Uncheck that and TCL will handle printing styled text correctly.

Q: When there is no current selection, changing the Font, Size, or Style menus do not affect what I type next. Why not?

A: TCL relies on the style of the current selection to set the menus when that information is needed. To change this behavior we need to create a data member of type TextStyle for our CStyledTextEditPano to save the menu choices. I called it theStyle. Then we need to save this information:

void CStyledTextEditPano::
 DoKeyDown(
 char theChar, Byte keyCode, EventRecord *macEvent
 )
{
 long selStart, selEnd;
 
 CStyleText::GetSelection(&selStart,&selEnd);
 
// The case we want to change behavior of
 if(selStart == selEnd)
 {
 short whichAttributes = doFont | doSize | doFace;
 GetTextStyle(&whichAttributes, &theStyle);
 }
 
 inherited::DoKeyDown(theChar, keyCode, macEvent);
}

and restore the correct style:

void CStyledTextEditPano::TypeChar(
 char theChar, short theModifers
)
{
 short whichAttributes = doFont | doSize | doFace;
 
 TESetStyle(
 whichAttributes, &theStyle, FALSE, macTE
 );
 
 inherited::TypeChar(theChar, theModifers);
}

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Civilization VI 1.2.4 - Next iteration o...
Sid Meier’s Civilization VI is the next entry in the popular Civilization franchise. Originally created by legendary game designer Sid Meier, Civilization is a strategy game in which you attempt to... Read more
Skype 8.52.0.138 - Voice-over-internet p...
Skype allows you to talk to friends, family and co-workers across the Internet without the inconvenience of long distance telephone charges. Using peer-to-peer data transmission technology, Skype... Read more
Bookends 13.2.6 - Reference management a...
Bookends is a full-featured bibliography/reference and information-management system for students and professionals. Bookends uses the cloud to sync reference libraries on all the Macs you use.... Read more
BusyContacts 1.4.0 - Fast, efficient con...
BusyContacts is a contact manager for OS X that makes creating, finding, and managing contacts faster and more efficient. It brings to contact management the same power, flexibility, and sharing... Read more
Chromium 77.0.3865.75 - Fast and stable...
Chromium is an open-source browser project that aims to build a safer, faster, and more stable way for all Internet users to experience the web. Version 77.0.3865.75: A list of changes is available... Read more
DiskCatalogMaker 7.5.5 - Catalog your di...
DiskCatalogMaker is a simple disk management tool which catalogs disks. Simple, light-weight, and fast Finder-like intuitive look and feel Super-fast search algorithm Can compress catalog data for... Read more
Alfred 4.0.4 - Quick launcher for apps a...
Alfred is an award-winning productivity application for OS X. Alfred saves you time when you search for files online or on your Mac. Be more productive with hotkeys, keywords, and file actions at... Read more
A Better Finder Rename 10.45 - File, pho...
A Better Finder Rename is the most complete renaming solution available on the market today. That's why, since 1996, tens of thousands of hobbyists, professionals and businesses depend on A Better... Read more
iFinance 4.5.11 - Comprehensively manage...
iFinance allows you to keep track of your income and spending -- from your lunchbreak coffee to your new car -- in the most convenient and fastest way. Clearly arranged transaction lists of all your... Read more
OmniGraffle Pro 7.11.3 - Create diagrams...
OmniGraffle Pro helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use... Read more

Latest Forum Discussions

See All

Five Nights at Freddy's AR: Special...
Five Nights at Freddy's AR: Special Delivery is a terrifying new nightmare from developer Illumix. Last week, FNAF fans were sent into a frenzy by a short teaser for what we now know to be Special Delivery. Those in the comments were quick to... | Read more »
Rush Rally 3's new live events are...
Last week, Rush Rally 3 got updated with live events, and it’s one of the best things to happen to racing games on mobile. Prior to this update, the game already had multiplayer, but live events are more convenient in the sense that it’s somewhat... | Read more »
Why your free-to-play racer sucks
It’s been this way for a while now, but playing Hot Wheels Infinite Loop really highlights a big issue with free-to-play mobile racing games: They suck. It doesn’t matter if you’re trying going for realism, cart racing, or arcade nonsense, they’re... | Read more »
Steam Link Spotlight - The Banner Saga 3
Steam Link Spotlight is a new feature where we take a look at PC games that play exceptionally well using the Steam Link app. Our last entry talked about Terry Cavanaugh’s incredible Dicey Dungeons. Read about how it’s a great mobile experience... | Read more »
PSA: GRIS has some issues
You may or may not have seen that Devolver Digital just released GRIS on the App Store, but we wanted to do a quick public service announcement to say that you might not want to hop on buying it just yet. The puzzle platformer has come to small... | Read more »
Explore the world around you in new matc...
Got a hankering for a fresh-feeling Match-3 puzzle game that offers a unique twist? You might find exactly what you’re looking for with What a Wonderful World, a new spin on the classic mobile genre which merges entertaining puzzles with global... | Read more »
Combo Quest (Games)
Combo Quest 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: Combo Quest is an epic, time tap role-playing adventure. In this unique masterpiece, you are a knight on a heroic quest to retrieve... | Read more »
Hero Emblems (Games)
Hero Emblems 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: ** 25% OFF for a limited time to celebrate the release ** ** Note for iPhone 6 user: If it doesn't run fullscreen on your device... | Read more »
Puzzle Blitz (Games)
Puzzle Blitz 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Puzzle Blitz is a frantic puzzle solving race against the clock! Solve as many puzzles as you can, before time runs out! You have... | Read more »
Sky Patrol (Games)
Sky Patrol 1.0.1 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0.1 (iTunes) Description: 'Strategic Twist On The Classic Shooter Genre' - Indie Game Mag... | Read more »

Price Scanner via MacPrices.net

Save $150-$250 on 10.2″ WiFi + Cellular iPads...
Verizon is offering $150-$250 discounts on Apple’s new 10.2″ WiFi + Cellular iPad with service. Buy the iPad itself and save $150. Save $250 on the purchase of an iPad along with an iPhone. The fine... Read more
Apple continues to offer 13″ 2.3GHz Dual-Core...
Apple has Certified Refurbished 2017 13″ 2.3GHz Dual-Core non-Touch Bar MacBook Pros available starting at $1019. An standard Apple one-year warranty is included with each model, outer cases are new... Read more
Apple restocks 2018 MacBook Airs, Certified R...
Apple has restocked Certified Refurbished 2018 13″ MacBook Airs starting at only $849. Each MacBook features a new outer case, comes with a standard Apple one-year warranty, and is shipped free. The... Read more
Sunday Sale! 2019 27″ 5K 6-Core iMacs for $20...
B&H Photo has the new 2019 27″ 5K 6-Core iMacs on stock today and on sale for up to $250 off Apple’s MSRP. Overnight shipping is free to many locations in the US. These are the same iMacs sold by... Read more
Weekend Sale! 2019 13″ MacBook Airs for $200...
Amazon has new 2019 13″ MacBook Airs on sale for $200 off Apple’s MSRP, with prices starting at $899, each including free shipping. Be sure to select Amazon as the seller during checkout, rather than... Read more
2019 15″ MacBook Pros now on sale for $350-$4...
B&H Photo has Apple’s 2019 15″ 6-Core and 8-Core MacBook Pros on sale today for $350-$400 off MSRP, starting at $2049, with free overnight shipping available to many addresses in the US: – 2019... Read more
Buy one Apple Watch Series 5 at Verizon, get...
Buy one Apple Watch Series 5 at Verizon, and get a second Watch for 50% off. Plus save $10 on your first month of service. The fine print: “Buy Apple Watch, get another up to 50% off on us. Plus $10... Read more
Sprint offers 64GB iPhone 11 for free to new...
Sprint will include the 64GB iPhone 11 for free for new customers with an eligible trade-in in of the iPhone 7 or newer through September 19, 2019. The fine print: “iPhone 11 64GB $0/mo. iPhone 11... Read more
Verizon offers new iPhone 11 models for up to...
Verizon is offering Apple’s new iPhone 11 models for $500 off MSRP to new customers with an eligible trade-in (see list below). Discount is applied via monthly bill credits over 24 months. Verizon is... Read more
AT&T offers free $300 reward card + free...
AT&T Wireless will include a second free 64GB iPhone 11 with the purchase of one eligible iPhone at full price. They will also include a free $300 rewards card. The fine print: “Buy an elig.... Read more

Jobs Board

Student Employment (Blue *Apple* Cafe) Spri...
Student Employment (Blue Apple Cafe) Spring 2019 Penn State University Campus/Location: Penn State Brandywine Campus City: Media, PA Date Announced: 12/20/2018 Date Read more
Best Buy *Apple* Computing Master - Best Bu...
**732359BR** **Job Title:** Best Buy Apple Computing Master **Job Category:** Store Associates **Location Number:** 000171-Winchester Road-Store **Job Description:** Read more
*Apple* Mobile Master - Best Buy (United Sta...
**732324BR** **Job Title:** Apple Mobile Master **Job Category:** Store Associates **Location Number:** 000013-Fargo-Store **Job Description:** **What does a Best Read more
Best Buy *Apple* Computing Master - Best Bu...
**732455BR** **Job Title:** Best Buy Apple Computing Master **Job Category:** Sales **Location Number:** 000449-Auburn Hills-Store **Job Description:** **What does a Read more
*Apple* Mobility Pro - Best Buy (United Stat...
**732490BR** **Job Title:** Apple Mobility Pro **Job Category:** Store Associates **Location Number:** 000449-Auburn Hills-Store **Job Description:** At Best Buy, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.