<div dir="ltr"><div>Oups, sorry, I've got a local change on DataStream (use uft8 for storing Stream) that messed the mcz...<br></div>Could someone delete this commit?<br>I'll issue a new one...<br></div><div class="gmail_extra">
<br><br><div class="gmail_quote">2014-07-20 22:34 GMT+02:00 <span dir="ltr"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/MorphicExtras-nice.151.mcz" target="_blank">http://source.squeak.org/trunk/MorphicExtras-nice.151.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: MorphicExtras-nice.151<br>
Author: nice<br>
Time: 20 July 2014, 10:33:57.067 pm<br>
UUID: 2d247adf-926d-4df7-9733-8aebe93007a0<br>
Ancestors: MorphicExtras-kfr.150<br>
<br>
Don't use RWBinaryOrTextStream where a simple WriteStream would perfectly do the job.<br>
<br>
=============== Diff against MorphicExtras-kfr.150 ===============<br>
<br>
Item was changed:<br>
BooklikeMorph subclass: #BookMorph<br>
instanceVariableNames: 'pages currentPage'<br>
classVariableNames: 'MethodHolders VersionNames VersionTimes'<br>
poolDictionaries: ''<br>
category: 'MorphicExtras-Books'!<br>
<br>
!BookMorph commentStamp: '<historical>' prior: 0!<br>
A collection of pages, each of which is a place to put morphs. Allows one or another page to show; orchestrates the page transitions; offers control panel for navigating among pages and for adding and deleting pages.<br>
<br>
To write a book out to the disk or to a file server, decide what folder it goes in. Construct a url to a typical page:<br>
file://myDisk/folder/myBook1.sp<br>
or<br>
<a href="ftp://aServer/folder/myBook1.sp" target="_blank">ftp://aServer/folder/myBook1.sp</a><br>
<br>
Choose "send all pages to server" from the book's menu (press the <> part of the controls). Choose "use page numbers". Paste in the url.<br>
<br>
To load an existing book, find its ".bo" file in the file list browser. Choose "load as book".<br>
<br>
To load an existing book from its url, execute:<br>
+ ¦(URLMorph grabURL: '<a href="ftp://aServer/folder/myBook1.sp" target="_blank">ftp://aServer/folder/myBook1.sp</a>') book: true.<br>
- ¦(URLMorph grabURL: '<a href="ftp://aServer/folder/myBook1.sp" target="_blank">ftp://aServer/folder/myBook1.sp</a>') book: true.<br>
<br>
Multiple people may modify a book. If other people may have changed a book you have on your screen, choose "reload all from server".<br>
<br>
Add or modify a page, and choose "send this page to server".<br>
<br>
The polite thing to do is to reload before changing a book. Then write one or all pages soon after making your changes. If you store a stale book, it will wipe out changes that other people made in the mean time.<br>
<br>
Pages may be linked to each other. To create a named link to a new page, type the name of the page in a text area in a page. Select it and do Cmd-6. Choose 'link to'. A new page of that name will be added at the back of the book. Clicking on the blue text flips to that page.<br>
To create a link to an existing page, first name the page. Go to that page and Cmd-click on it. The name of the page is below the page. Click in it and backspace and type. Return to the page you are linking from. Type the name. Cmd-6, 'link to'.<br>
<br>
Text search: Search for a set of fragments. allStrings collects text of fields. Turn to page with all fragments on it and highlight the first one. Save the container and offset in properties: #searchContainer, #searchOffset, #searchKey. Search again from there. Clear those at each page turn, or change of search key.<br>
<br>
[rules about book indexes and pages: Index and pages must live in the same directory. They have the same file prefix, followed by .bo for the index or 4.sp for a page (or x4.sp). When a book is moved to a new directory, the load routine gets the new urls for all pages and saves those in the index. Book stores index url in property #url.<br>
Allow mulitple indexes (books) on the same shared set of pages. If book has a url in same directory as pages, allow them to have different prefixes.<br>
save all pages first time, save one page first time, fromRemoteStream: (first time)<br>
save all pages normal , save one page normal, reload<br>
where I check if same dir]<br>
URLMorph holds url of both page and book.!<br>
<br>
Item was changed:<br>
----- Method: BooklikeMorph>>fullControlSpecs (in category 'page controls') -----<br>
fullControlSpecs<br>
<br>
^ {<br>
#spacer.<br>
#variableSpacer.<br>
{'-'. #deletePage. 'Delete this page' translated}.<br>
#spacer.<br>
+ {'«'. #firstPage. 'First page' translated}.<br>
- {'«'. #firstPage. 'First page' translated}.<br>
#spacer.<br>
{'<'. #previousPage. 'Previous page' translated}.<br>
#spacer.<br>
+ {'·'. #invokeBookMenu. 'Click here to get a menu of options for this book.' translated}.<br>
- {'·'. #invokeBookMenu. 'Click here to get a menu of options for this book.' translated}.<br>
#spacer.<br>
{'>'. #nextPage. 'Next page' translated}.<br>
#spacer.<br>
+ { '»'. #lastPage. 'Final page' translated}.<br>
- { '»'. #lastPage. 'Final page' translated}.<br>
#spacer.<br>
{'+'. #insertPage. 'Add a new page after this one' translated}.<br>
#variableSpacer.<br>
+ {'³'. #fewerPageControls. 'Fewer controls' translated}<br>
- {'³'. #fewerPageControls. 'Fewer controls' translated}<br>
}<br>
!<br>
<br>
Item was changed:<br>
----- Method: BooklikeMorph>>shortControlSpecs (in category 'page controls') -----<br>
shortControlSpecs<br>
^ {<br>
#spacer.<br>
#variableSpacer.<br>
{'<'. #previousPage. 'Previous page' translated}.<br>
#spacer.<br>
+ {'·'. #invokeBookMenu. 'Click here to get a menu of options for this book.' translated}.<br>
- {'·'. #invokeBookMenu. 'Click here to get a menu of options for this book.' translated}.<br>
#spacer.<br>
{'>'. #nextPage. 'Next page' translated}.<br>
#spacer.<br>
#variableSpacer.<br>
+ {'³'. #showMoreControls. 'More controls' translated}<br>
- {'³'. #showMoreControls. 'More controls' translated}<br>
}<br>
!<br>
<br>
Item was changed:<br>
SketchMorph subclass: #FatBitsPaint<br>
instanceVariableNames: 'formToEdit magnification brush brushSize brushColor lastMouse currentTools currentSelectionMorph selectionAnchor backgroundColor'<br>
classVariableNames: 'FormClipboard'<br>
poolDictionaries: ''<br>
category: 'MorphicExtras-AdditionalWidgets'!<br>
<br>
!FatBitsPaint commentStamp: '<historical>' prior: 0!<br>
Extensions to FatBitsPaint<br>
<br>
With the goal of making FatBitsPaint a fairly nifty Form fixer-upper in the Squeak/morphic environment, I have started this set of extensions. It will probably be updated as the mood strikes, so keep an eye out for new versions.<br>
<br>
First, some basic operating instructions:<br>
<br>
Get a Form and send it the message #morphEdit. To get started, you can try:<br>
<br>
(Form fromUser) morphEdit<br>
<br>
And there is the form in all its glory. Control click on the form to get theFatBitsPaint menu and choose the "keep this menu up" item. This will be your main tool/command palette. With it you can:<br>
+ ¥ Change the magnification<br>
+ ¥ Change the brush size (in original scale pixels)<br>
+ ¥ Change the brush color (via a ColorPickerMorph)<br>
- ¥ Change the magnification<br>
- ¥ Change the brush size (in original scale pixels)<br>
- ¥ Change the brush color (via a ColorPickerMorph)<br>
<br>
Now to some of the enhancements:<br>
<br>
(25 September 1999 2:38:25 pm )<br>
<br>
+ ¥ ColorPickerMorphs now have a label below that indicates their use (you might have more than one open)<br>
+ ¥ A quirk that could get the brush size out of alignment with the pixel size is fixed.<br>
+ ¥ A background has been added so that you can see the full extent of the Form and so that you can observe the effect of translucent pixels in the form.<br>
+ ¥ A menu item has been added to change the background color so that you can simulate the real environment the form will be displayed in.<br>
+ ¥ The magnification and brush size menus now highlight their current value.<br>
+ ¥ An inspect option has been added to the menu so that you can do arbitrary things to the form.<br>
+ ¥ A file out option has been added to write the form to a file.<br>
- ¥ ColorPickerMorphs now have a label below that indicates their use (you might have more than one open)<br>
- ¥ A quirk that could get the brush size out of alignment with the pixel size is fixed.<br>
- ¥ A background has been added so that you can see the full extent of the Form and so that you can observe the effect of translucent pixels in the form.<br>
- ¥ A menu item has been added to change the background color so that you can simulate the real environment the form will be displayed in.<br>
- ¥ The magnification and brush size menus now highlight their current value.<br>
- ¥ An inspect option has been added to the menu so that you can do arbitrary things to the form.<br>
- ¥ A file out option has been added to write the form to a file.<br>
<br>
(25 September 1999 10:02:13 pm )<br>
<br>
+ ¥ New menu item: Tools allows you to choose between (for now) Paint Brush (all there was before) and Selections. Selections allows you to select rectangular regions of the form where the next menu takes over.<br>
+ ¥ New menu item: Selections gives you choices:<br>
+ ¥ edit separately - opens a new editor on the selected rectangle. Useful for cropping.<br>
+ ¥ copy - copies the selection rectangle to a clipboard. Can be pasted to this or another FatBitsPaint.<br>
+ ¥ cut - does a copy and clears the selection to transparent.<br>
+ ¥ paste - paints the contents of the clipboard over the current selection. Only the starting point of the selection matters - the extent is controlled by the clipboard.<br>
- ¥ New menu item: Tools allows you to choose between (for now) Paint Brush (all there was before) and Selections. Selections allows you to select rectangular regions of the form where the next menu takes over.<br>
- ¥ New menu item: Selections gives you choices:<br>
- ¥ edit separately - opens a new editor on the selected rectangle. Useful for cropping.<br>
- ¥ copy - copies the selection rectangle to a clipboard. Can be pasted to this or another FatBitsPaint.<br>
- ¥ cut - does a copy and clears the selection to transparent.<br>
- ¥ paste - paints the contents of the clipboard over the current selection. Only the starting point of the selection matters - the extent is controlled by the clipboard.<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: GraphicalDictionaryMenu>>encodeToWorkspace (in category 'menu commands') -----<br>
encodeToWorkspace<br>
+ | stream encodedStream pict text |<br>
+ pict := formChoices at: currentIndex.<br>
+ stream := ByteArray new writeStream.<br>
+ PNGReadWriter putForm: pict onStream: stream.<br>
+ encodedStream := stream contents base64Encoded.<br>
+ text := Workspace open model.<br>
+ text contents: 'Form fromBinaryStream: (Base64MimeConverter mimeDecodeToBytes: ''', encodedStream,''' readStream)'!<br>
- | stream encodedStream pict text |<br>
- pict := formChoices at: currentIndex.<br>
- stream := RWBinaryOrTextStream on: (String new).<br>
- PNGReadWriter putForm: pict onStream: stream.<br>
- encodedStream := stream contents asByteArray base64Encoded.<br>
- text := (Workspace open) model.<br>
- text contents: 'Form fromBinaryStream: (Base64MimeConverter mimeDecodeToBytes: ''', encodedStream,''' readStream)'!<br>
<br>
Item was changed:<br>
----- Method: PostscriptEncoder class>>macToPSCharacterChart (in category 'configuring') -----<br>
macToPSCharacterChart<br>
"mac char code, PS char code"<br>
^#(<br>
+ (128 999) "Ä"<br>
+ (129 999) "Å"<br>
+ (130 999) "Ç"<br>
+ (131 999) "É"<br>
+ (132 999) "Ñ"<br>
+ (133 999) "Ö"<br>
+ (134 999) "Ü"<br>
+ (135 999) "á"<br>
+ (136 999) "à"<br>
+ (137 999) "â"<br>
+ (138 999) "ä"<br>
+ (139 999) "ã"<br>
+ (140 999) "å"<br>
+ (141 999) "ç"<br>
+ (142 999) "é"<br>
+ (143 999) "è"<br>
+ (144 999) "ê"<br>
+ (145 999) "ë"<br>
+ (146 999) "í"<br>
+ (147 999) "ì"<br>
+ (148 999) "î"<br>
+ (149 999) "ï"<br>
+ (150 999) "ñ"<br>
+ (151 999) "ó"<br>
+ (152 999) "ò"<br>
+ (153 999) "ô"<br>
+ (154 999) "ö"<br>
+ (155 999) "õ"<br>
+ (156 999) "ú"<br>
+ (157 999) "ù"<br>
+ (158 999) "û"<br>
+ (159 999) "ü"<br>
+ (160 999) "†"<br>
+ (161 202) "°"<br>
+ (162 162) "¢"<br>
+ (163 163) "£"<br>
+ (164 167) "§"<br>
+ (165 183) "·"<br>
+ (166 182) "¶"<br>
+ (167 251) "ß"<br>
+ (168 999) "®"<br>
+ (169 999) "©"<br>
+ (170 999) "™"<br>
+ (171 999) "´"<br>
+ (172 999) "¨"<br>
+ (173 999) "€"<br>
+ (174 225) "Æ"<br>
+ (175 999) "Ø"<br>
+ (176 999) " "<br>
+ (177 999) "±"<br>
+ (178 999) "Š"<br>
+ (179 999) " "<br>
+ (180 165) "¥"<br>
+ (181 999) "µ"<br>
+ (182 999) "Ž"<br>
+ (183 999) " "<br>
+ (184 999) " "<br>
+ (185 999) "š"<br>
+ (186 999) " "<br>
+ (187 227) "ª"<br>
+ (188 235) "º"<br>
+ (189 999) "ž"<br>
+ (190 241) "æ"<br>
+ (191 999) "ø"<br>
+ (192 191) "¿"<br>
+ (193 166) "¡"<br>
+ (194 999) "¬"<br>
+ (195 999) "¦"<br>
+ (196 999) "ƒ"<br>
+ (197 999) ""<br>
+ (198 999) "²"<br>
+ (199 171) "«"<br>
+ (200 187) "»"<br>
+ (201 188) "…"<br>
+ (202 999) " "<br>
+ (203 999) "À"<br>
+ (204 999) "Ã"<br>
+ (205 999) "Õ"<br>
+ (206 234) "Œ"<br>
+ (207 250) "œ"<br>
+ (208 999) "–"<br>
+ (209 999) "—"<br>
+ (210 999) "“"<br>
+ (211 999) "”"<br>
+ (212 999) "‘"<br>
+ (213 999) "’"<br>
+ (214 999) "÷"<br>
+ (215 999) "³"<br>
+ (216 999) "ÿ"<br>
+ (217 999) "Ÿ"<br>
+ (218 999) "¹"<br>
+ (219 999) "¤"<br>
+ (220 999) "‹"<br>
+ (221 999) "›"<br>
+ (222 999) "¼"<br>
+ (223 999) "½"<br>
+ (224 999) "‡"<br>
+ (225 999) "·"<br>
+ (226 999) "‚"<br>
+ (227 999) "„"<br>
+ (228 999) "‰"<br>
+ (229 999) "Â"<br>
+ (230 999) "Ê"<br>
+ (231 999) "Á"<br>
+ (232 999) "Ë"<br>
+ (233 999) "È"<br>
+ (234 999) "Í"<br>
+ (235 999) "Î"<br>
+ (236 999) "Ï"<br>
+ (237 999) "Ì"<br>
+ (238 999) "Ó"<br>
+ (239 999) "Ô"<br>
+ (240 999) "¾"<br>
+ (241 999) "Ò"<br>
+ (242 999) "Ú"<br>
+ (243 999) "Û"<br>
+ (244 999) "Ù"<br>
+ (245 999) "Ð"<br>
+ (246 999) "ˆ"<br>
+ (247 999) "˜"<br>
+ (248 999) "¯"<br>
+ (249 999) "×"<br>
+ (250 999) "Ý"<br>
+ (251 999) "Þ"<br>
+ (252 999) "¸"<br>
+ (253 999) "ð"<br>
+ (254 999) "ý"<br>
+ (255 999) "þ"<br>
- (128 999) "Ä"<br>
- (129 999) "Å"<br>
- (130 999) "Ç"<br>
- (131 999) "É"<br>
- (132 999) "Ñ"<br>
- (133 999) "Ö"<br>
- (134 999) "Ü"<br>
- (135 999) "á"<br>
- (136 999) "à"<br>
- (137 999) "â"<br>
- (138 999) "ä"<br>
- (139 999) "ã"<br>
- (140 999) "å"<br>
- (141 999) "ç"<br>
- (142 999) "é"<br>
- (143 999) "è"<br>
- (144 999) "ê"<br>
- (145 999) "ë"<br>
- (146 999) "í"<br>
- (147 999) "ì"<br>
- (148 999) "î"<br>
- (149 999) "ï"<br>
- (150 999) "ñ"<br>
- (151 999) "ó"<br>
- (152 999) "ò"<br>
- (153 999) "ô"<br>
- (154 999) "ö"<br>
- (155 999) "õ"<br>
- (156 999) "ú"<br>
- (157 999) "ù"<br>
- (158 999) "û"<br>
- (159 999) "ü"<br>
- (160 999) "†"<br>
- (161 202) "°"<br>
- (162 162) "¢"<br>
- (163 163) "£"<br>
- (164 167) "§"<br>
- (165 183) "·"<br>
- (166 182) "¶"<br>
- (167 251) "ß"<br>
- (168 999) "®"<br>
- (169 999) "©"<br>
- (170 999) "™"<br>
- (171 999) "´"<br>
- (172 999) "¨"<br>
- (173 999) "€"<br>
- (174 225) "Æ"<br>
- (175 999) "Ø"<br>
- (176 999) " "<br>
- (177 999) "±"<br>
- (178 999) "Š"<br>
- (179 999) " "<br>
- (180 165) "¥"<br>
- (181 999) "µ"<br>
- (182 999) "Ž"<br>
- (183 999) " "<br>
- (184 999) " "<br>
- (185 999) "š"<br>
- (186 999) " "<br>
- (187 227) "ª"<br>
- (188 235) "º"<br>
- (189 999) "ž"<br>
- (190 241) "æ"<br>
- (191 999) "ø"<br>
- (192 191) "¿"<br>
- (193 166) "¡"<br>
- (194 999) "¬"<br>
- (195 999) "¦"<br>
- (196 999) "ƒ"<br>
- (197 999) ""<br>
- (198 999) "²"<br>
- (199 171) "«"<br>
- (200 187) "»"<br>
- (201 188) "…"<br>
- (202 999) " "<br>
- (203 999) "À"<br>
- (204 999) "Ã"<br>
- (205 999) "Õ"<br>
- (206 234) "Œ"<br>
- (207 250) "œ"<br>
- (208 999) "–"<br>
- (209 999) "—"<br>
- (210 999) "“"<br>
- (211 999) "”"<br>
- (212 999) "‘"<br>
- (213 999) "’"<br>
- (214 999) "÷"<br>
- (215 999) "³"<br>
- (216 999) "ÿ"<br>
- (217 999) "Ÿ"<br>
- (218 999) "¹"<br>
- (219 999) "¤"<br>
- (220 999) "‹"<br>
- (221 999) "›"<br>
- (222 999) "¼"<br>
- (223 999) "½"<br>
- (224 999) "‡"<br>
- (225 999) "·"<br>
- (226 999) "‚"<br>
- (227 999) "„"<br>
- (228 999) "‰"<br>
- (229 999) "Â"<br>
- (230 999) "Ê"<br>
- (231 999) "Á"<br>
- (232 999) "Ë"<br>
- (233 999) "È"<br>
- (234 999) "Í"<br>
- (235 999) "Î"<br>
- (236 999) "Ï"<br>
- (237 999) "Ì"<br>
- (238 999) "Ó"<br>
- (239 999) "Ô"<br>
- (240 999) "¾"<br>
- (241 999) "Ò"<br>
- (242 999) "Ú"<br>
- (243 999) "Û"<br>
- (244 999) "Ù"<br>
- (245 999) "Ð"<br>
- (246 999) "ˆ"<br>
- (247 999) "˜"<br>
- (248 999) "¯"<br>
- (249 999) "×"<br>
- (250 999) "Ý"<br>
- (251 999) "Þ"<br>
- (252 999) "¸"<br>
- (253 999) "ð"<br>
- (254 999) "ý"<br>
- (255 999) "þ"<br>
)!<br>
<br>
<br>
</blockquote></div><br></div>