Squeak-dev March 2015

squeak-dev@lists.squeakfoundation.org

40 participants
315 discussions

The Trunk: Tools-mt.539.mcz
by commits＠source.squeak.org 05 Mar '15

05 Mar '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.539.mcz ==================== Summary ==================== Name: Tools-mt.539 Author: mt Time: 5 March 2015, 11:44:32.854 am UUID: 5639bb02-c299-6f46-b201-1251937cc8a3 Ancestors: Tools-mt.537 Add icons to class list and message list in browsers. Can be turned off in preferences. Icons are stored in ToolIcons (like MenuIcons and HelpIcons do). =============== Diff against Tools-mt.537 =============== Item was changed: CodeHolder subclass: #Browser instanceVariableNames: 'environment systemOrganizer classOrganizer metaClassOrganizer editSelection metaClassIndicated selectedSystemCategory selectedClassName selectedMessageName selectedMessageCategoryName' + classVariableNames: 'ListClassesHierarchically RecentClasses ShowClassIcons ShowMessageIcons SortMessageCategoriesAlphabetically' - classVariableNames: 'ListClassesHierarchically RecentClasses SortMessageCategoriesAlphabetically' poolDictionaries: '' category: 'Tools-Browser'! !Browser commentStamp: 'cwp 12/27/2012 11:09' prior: 0! I represent a query path into the class descriptions, the software of the system.! Item was added: + ----- Method: Browser class>>showClassIcons (in category 'preferences') ----- + showClassIcons + <preference: 'Show class icons' + category: 'browsing' + description: 'When enabled, the class list will show icons for some standard types such as Morph and Magnitude.' + type: #Boolean> + ^ShowClassIcons ifNil: [true] + ! Item was added: + ----- Method: Browser class>>showClassIcons: (in category 'preferences') ----- + showClassIcons: aBoolean + ShowClassIcons := aBoolean.! Item was added: + ----- Method: Browser class>>showMessageIcons (in category 'preferences') ----- + showMessageIcons + <preference: 'Show message icons' + category: 'browsing' + description: 'When enabled, the message list will show icons for flags, overrides, etc.' + type: #Boolean> + ^ShowMessageIcons ifNil: [true] + ! Item was added: + ----- Method: Browser class>>showMessageIcons: (in category 'preferences') ----- + showMessageIcons: aBoolean + + ShowMessageIcons := aBoolean.! Item was changed: ----- Method: Browser>>buildClassListWith: (in category 'toolbuilder') ----- buildClassListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; + list: #classList; - list: #classList; getIndex: #classListIndex; + setIndex: #classListIndex:; + icon: #classIconAt:; - setIndex: #classListIndex:; menu: #classListMenu:shifted:; keyPress: #classListKey:from:. SystemBrowser browseWithDragNDrop ifTrue:[listSpec dragItem: #dragFromClassList:]. ^listSpec ! Item was changed: ----- Method: Browser>>buildMessageListWith: (in category 'toolbuilder') ----- buildMessageListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; list: #messageList; getIndex: #messageListIndex; setIndex: #messageListIndex:; + icon: #messageIconAt:; menu: #messageListMenu:shifted:; keyPress: #messageListKey:from:. SystemBrowser browseWithDragNDrop ifTrue:[listSpec dragItem: #dragFromMessageList:]. ^listSpec ! Item was added: + ----- Method: Browser>>classIconAt: (in category 'class list') ----- + classIconAt: anIndex + + self class showClassIcons + ifFalse: [^ nil]. + + ^ ToolIcons iconNamed: (ToolIcons iconForClass: (self classList at: anIndex) withBlanksTrimmed asSymbol)! Item was added: + ----- Method: Browser>>messageIconAt: (in category 'message list') ----- + messageIconAt: anIndex + + self class showMessageIcons + ifFalse: [^ nil]. + + ^ ToolIcons iconNamed: (ToolIcons + iconForClass: self selectedClass + selector: (self messageList at: anIndex))! Item was added: + Object subclass: #ToolIcons + instanceVariableNames: '' + classVariableNames: 'Icons' + poolDictionaries: '' + category: 'Tools-Base'! Item was added: + ----- Method: ToolIcons class>>abstract (in category 'private') ----- + abstract + + ^ (Form + extent: 12@12 + depth: 32 + fromArray: #( 165 165 165 165 165 16777215 16777215 165 165 165 165 165 16777215 16777215 165 165 16777215 2712832 2712832 16777215 165 165 165 165 165 165 165 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 165 165 165 165 165 4294967295 4284714821 4284714821 4284714821 4284714821 4284714821 4284714821 4294967295 165 165 165 16777215 4294967295 4284714821 4288074840 4288074840 4288074840 4287677545 4284714821 4294967295 16777215 165 165 16777215 4294967295 4284714821 4288074840 4287679828 4287810910 4287677545 4284714821 4294967295 16777215 165 165 16777215 4294967295 4284714821 4288074840 4287614291 4287810910 4286361178 4284714821 4294967295 16777215 165 165 16777215 4294967295 4284714821 4288074840 4287677545 4286361178 4286361178 4284714821 4294967295 16777215 165 165 165 4294967295 4284714821 4284714821 4284714821 4284714821 4284714821 4284714821 4294967295 165 165 165 165 165 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 165 165 165 165 165 165 165 16777215 2712832 2712832 16777215 165 165 165 165 165 165 165 165 165 16777215 16777215 165 165 165 165 165) + offset: 0@0)! Item was added: + ----- Method: ToolIcons class>>arrowDown (in category 'private') ----- + arrowDown + ^ ((ColorForm + extent: 12@12 + depth: 8 + fromArray: #( 185273099 185273099 185273099 185273099 185273099 185273099 185273098 168430090 168495883 185273098 151587081 168495883 185273098 151191561 168495883 185207306 151388169 168430091 185207049 151257353 151587339 185272841 328199 151653131 185273098 150997001 168495883 185273099 168364298 185273099 185273099 185207307 185273099 185273099 185273099 185273099) + offset: 0@0) + colorsFromArray: #(#(0.573 0.804 0.369) #(0.565 0.768 0.412) #(0.577 0.804 0.372) #(0.561 0.804 0.326) #(0.588 0.831 0.345) #(0.6 0.844 0.353) #(0.565 0.804 0.329) #(0.545 0.772 0.349) #(0.486 0.682 0.353) #(0.388 0.561 0.271) #(1.0 1.0 1.0) #( )))! Item was added: + ----- Method: ToolIcons class>>arrowUp (in category 'private') ----- + arrowUp + ^ ((ColorForm + extent: 12@12 + depth: 8 + fromArray: #( 185273099 185273099 185273099 185273099 185273099 185273099 185273099 185207307 185273099 185273099 168364298 185273099 185273098 150997001 168495883 185272841 328199 151653131 185207049 151257353 151587339 185207306 151388169 168430091 185273098 151191561 168495883 185273098 151587081 168495883 185273098 168430090 168495883 185273099 185273099 185273099) + offset: 0@0) + colorsFromArray: #(#(0.573 0.804 0.369) #(0.565 0.768 0.412) #(0.577 0.804 0.372) #(0.561 0.804 0.326) #(0.588 0.831 0.345) #(0.6 0.844 0.353) #(0.565 0.804 0.329) #(0.545 0.772 0.349) #(0.486 0.682 0.353) #(0.388 0.561 0.271) #(1.0 1.0 1.0) #( )))! Item was added: + ----- Method: ToolIcons class>>arrowUpAndDown (in category 'private') ----- + arrowUpAndDown + ^ ((ColorForm + extent: 12@12 + depth: 8 + fromArray: #( 185273099 185207307 185273099 185273099 167772170 185273099 185273098 262400 168495883 185272832 67699971 658187 185204736 524800 2571 185207306 459776 168430091 185207306 394240 168430091 185204736 524800 2571 185272832 67699971 658187 185273098 262400 168495883 185273099 167772170 185273099 185273099 185207307 185273099) + offset: 0@0) + colorsFromArray: #(#(0.388 0.561 0.271) #(0.486 0.682 0.353) #(0.565 0.768 0.412) #(0.545 0.772 0.349) #(0.573 0.804 0.369) #(0.577 0.804 0.372) #(0.561 0.804 0.326) #(0.565 0.804 0.329) #(0.588 0.831 0.345) #(0.6 0.844 0.353) #(1.0 1.0 1.0) #( )))! Item was added: + ----- Method: ToolIcons class>>blank (in category 'private') ----- + blank + ^ Form extent: 12 @ 12 depth: 8! Item was added: + ----- Method: ToolIcons class>>breakpoint (in category 'private') ----- + breakpoint + ^ ((ColorForm + extent: 12@12 + depth: 8 + fromArray: #( 437918234 437918234 437918234 437654804 319885069 26 437590295 404100630 100859930 437524241 269290764 100860442 437327375 235736076 67305498 437261581 218893324 67305754 437130258 303174162 84082970 436931081 134678279 196890 437918234 437918234 196890 454761243 454761242 196890 454761243 454761242 196634 454761243 454761242 26) + offset: 0@0) + colorsFromArray: #(#(0.349 0.212 0.098) #(0.329 0.2 0.094) #(0.376 0.232 0.109) #(0.694 0.462 0.271) #(0.608 0.271 0.204) #(0.545 0.185 0.113) #(0.784 0.322 0.294) #(0.721 0.023 0.023) #(0.788 0.055 0.055) #(0.848 0.106 0.106) #(0.875 0.137 0.137) #(0.914 0.208 0.208) #(0.953 0.298 0.298) #(0.953 0.318 0.318) #(0.953 0.333 0.333) #(0.953 0.349 0.349) #(0.953 0.365 0.365) #(0.953 0.388 0.388) #(0.922 0.427 0.427) #(0.953 0.482 0.482) #(0.949 0.542 0.538) #(0.957 0.592 0.592) #(0.953 0.624 0.62) #(0.984 0.879 0.879) #(0.988 0.898 0.898) #(0.992 0.918 0.918) #(1.0 1.0 1.0) #( )))! Item was added: + ----- Method: ToolIcons class>>collection (in category 'private') ----- + collection + ^ ((ColorForm + extent: 12@12 + depth: 8 + fromArray: #( 168952850 171324982 909522486 255008812 271977989 285543990 706029348 70649368 724044854 254681884 271986469 689508662 135534100 137758237 890965046 909522486 909513472 436212534 909508866 151126326 909522486 909511457 807338806 909522486 909521969 841353526 909522486 909511458 504824630 909522486 909511943 755436854 909522486 909522486 909522486 909522486) + offset: 0@0) + colorsFromArray: #(#(0.565 0.764 0.538) #(0.992 0.98 0.934) #(0.957 0.879 0.549) #(0.953 0.867 0.514) #(1.0 0.569 0.286) #(0.577 0.772 0.553) #(0.557 0.761 0.53) #(0.957 0.875 0.538) #(1.0 0.949 0.914) #(0.937 0.827 0.369) #(1.0 0.953 0.922) #(0.953 0.871 0.53) #(0.542 0.753 0.518) #(0.992 0.98 0.926) #(0.937 0.965 0.934) #(1.0 0.678 0.466) #(1.0 0.667 0.451) #(0.408 0.678 0.372) #(1.0 0.694 0.494) #(0.93 0.961 0.926) #(1.0 0.682 0.478) #(0.918 0.631 0.447) #(1.0 0.557 0.271) #(0.848 0.757 0.384) #(0.545 0.745 0.506) #(0.561 0.686 0.522) #(0.392 0.671 0.357) #(0.466 0.659 0.423) #(0.887 0.53 0.298) #(0.514 0.71 0.474) #(0.807 0.737 0.458) #(0.887 0.796 0.423) #(0.91 0.628 0.443) #(0.93 0.84 0.466) #(0.894 0.804 0.435) #(0.831 0.553 0.372) #(0.823 0.542 0.357) #(0.643 0.772 0.604) #(0.804 0.733 0.443) #(0.871 0.588 0.408) #(0.498 0.698 0.462) #(0.612 0.733 0.573) #(1.0 0.577 0.306) #(0.639 0.764 0.6) #(0.926 0.569 0.337) #(0.937 0.823 0.353) #(0.937 0.581 0.349) #(0.419 0.686 0.388) #(0.883 0.811 0.53) #(0.894 0.823 0.534) #(0.848 0.776 0.494) #(0.973 0.612 0.38) #(0.941 0.831 0.384) #(0.573 0.694 0.534) #( ) ))! Item was added: + ----- Method: ToolIcons class>>exception (in category 'private') ----- + exception + ^ ((ColorForm + extent: 12@12 + depth: 8 + fromArray: #( 1583238196 1191577949 759500554 1583225870 390089009 36066088 1578711384 857557019 906518110 1581393173 991970905 1549688414 722677332 570761514 1583242846 1327383559 1091971346 5322527 792346372 337270359 1297099812 1011548469 286015067 654532190 1583242842 941838926 1432247902 1583242763 221384798 1583242846 1583224899 1029594718 1583242846 1583231050 1583242846 1583242846) + offset: 0@0) + colorsFromArray: #(#(0.906 0.764 0.392) #(0.945 0.867 0.6) #(0.918 0.776 0.306) #(0.969 0.922 0.815) #(0.945 0.831 0.443) #(0.953 0.84 0.443) #(0.934 0.823 0.388) #(0.953 0.819 0.286) #(0.98 0.949 0.855) #(0.93 0.815 0.376) #(0.992 0.98 0.941) #(0.894 0.733 0.302) #(0.945 0.792 0.4) #(0.898 0.725 0.286) #(0.949 0.863 0.423) #(0.965 0.91 0.737) #(0.984 0.961 0.906) #(0.914 0.772 0.365) #(0.91 0.768 0.384) #(0.941 0.844 0.415) #(0.953 0.844 0.498) #(0.965 0.871 0.4) #(0.953 0.836 0.474) #(0.945 0.859 0.439) #(0.949 0.867 0.651) #(0.988 0.965 0.867) #(0.949 0.815 0.455) #(0.957 0.855 0.542) #(0.953 0.875 0.514) #(0.957 0.836 0.341) #(0.953 0.867 0.474) #(0.914 0.78 0.474) #(0.945 0.8 0.263) #(0.934 0.811 0.431) #(0.941 0.792 0.216) #(0.93 0.788 0.443) #(0.965 0.914 0.796) #(0.965 0.891 0.51) #(0.898 0.733 0.22) #(0.906 0.764 0.435) #(0.992 0.984 0.953) #(0.898 0.737 0.275) #(0.957 0.894 0.71) #(0.992 0.977 0.914) #(0.926 0.815 0.569) #(0.918 0.788 0.333) #(0.973 0.902 0.561) #(0.918 0.788 0.286) #(0.957 0.891 0.725) #(0.937 0.815 0.396) #(0.902 0.757 0.396) #(0.965 0.867 0.369) #(0.937 0.84 0.384) #(0.934 0.836 0.526) #(0.91 0.764 0.306) #(0.887 0.721 0.333) #(0.914 0.764 0.357) #(0.941 0.855 0.412) #(0.949 0.855 0.462) #(0.949 0.811 0.232) #(0.957 0.891 0.635) #(0.945 0.863 0.659) #(0.941 0.776 0.408) #(0.953 0.855 0.474) #(0.945 0.844 0.427) #(0.941 0.78 0.236) #(0.957 0.891 0.608) #(0.875 0.69 0.216) #(0.969 0.883 0.451) #(0.906 0.761 0.286) #(0.957 0.848 0.498) #(0.934 0.836 0.396) #(0.961 0.84 0.415) #(0.941 0.831 0.408) #(0.977 0.941 0.855) #(0.949 0.875 0.604) #(0.965 0.91 0.655) #(0.922 0.757 0.404) #(0.941 0.851 0.635) #(0.965 0.914 0.698) #(0.879 0.69 0.247) #(0.898 0.741 0.353) #(0.891 0.717 0.302) #(0.973 0.934 0.804) #(0.953 0.831 0.279) #(1.0 0.996 0.992) #(0.941 0.796 0.443) #(0.941 0.804 0.486) #(0.98 0.922 0.573) #(0.914 0.772 0.345) #(0.98 0.945 0.859) #(0.902 0.725 0.322) #(0.969 0.918 0.772) #(0.926 0.8 0.357) #( ) ))! Item was added: + ----- Method: ToolIcons class>>flag (in category 'private') ----- + flag + ^ ((ColorForm + extent: 12@12 + depth: 8 + fromArray: #( 437918234 437918234 437918234 436470535 101584139 387389210 436404481 17105924 303634202 436666638 218827016 35198490 437126412 185075720 1644314 437060363 168298504 1644570 436930320 269422351 370743322 437326099 320082453 387520538 437918234 437918234 387520538 454761243 454761242 387520538 454761243 454761242 387520282 454761243 454761242 387389210) + offset: 0@0) + colorsFromArray: #(#(0.22 0.396 0.585) #(0.898 0.945 0.996) #(0.228 0.498 0.761) #(0.608 0.796 0.98) #(0.635 0.804 0.98) #(0.655 0.819 0.98) #(0.47 0.729 0.973) #(0.542 0.768 0.977) #(0.251 0.631 0.961) #(0.267 0.639 0.961) #(0.275 0.643 0.961) #(0.286 0.647 0.961) #(0.302 0.659 0.965) #(0.326 0.667 0.965) #(0.353 0.678 0.965) #(0.396 0.714 0.965) #(0.419 0.729 0.969) #(0.239 0.686 0.93) #(0.243 0.624 0.772) #(0.236 0.682 0.851) #(0.228 0.667 0.788) #(0.224 0.616 0.671) #(0.384 0.228 0.082) #(0.349 0.212 0.098) #(0.329 0.2 0.094) #(0.694 0.462 0.271) #(1.0 1.0 1.0) #( )))! Item was added: + ----- Method: ToolIcons class>>iconForClass: (in category 'support') ----- + iconForClass: aClassNameSymbol + + (Smalltalk at: aClassNameSymbol) withAllSuperclassesDo: [:class | + (self class includesSelector: class name asLowercase asSymbol) + ifTrue: [^ class name asLowercase asSymbol]]. + ^ #blank! Item was added: + ----- Method: ToolIcons class>>iconForClass:selector: (in category 'support') ----- + iconForClass: aClassDescription selector: aSelector + "Answer an icon to be shown for the selector aSymbol in aClassDescription." + + aClassDescription methodDictionary at: aSelector ifPresent: [ :method | + method literalsDo: [ :literal | + (literal == #halt or: [ literal == #halt: or: [ literal == #haltIfNil or: [ literal == #haltIf: or: [ literal == #haltOnce or: [ literal == #haltOnce: or: [ literal == #haltOnCount: or: [ literal == #halt:onCount: ] ] ] ] ] ] ]) + ifTrue: [^ #breakpoint]. + (literal == #flag: or: [ literal == #needsWork or: [ literal == #notYetImplemented ] ]) + ifTrue: [^ #flag]. + + (literal == #shouldBeImplemented or: [literal == #subclassResponsibility]) + ifTrue: [^ #abstract] ] ]. + + ^ (aClassDescription isSelectorOverride: aSelector) + ifTrue: [ + (aClassDescription isSelectorOverridden: aSelector) + ifTrue: [ #arrowUp ] + ifFalse: [ #arrowUpAndDown ] ] + ifFalse: [ + (aClassDescription isSelectorOverridden: aSelector) + ifTrue: [ #arrowDown ] + ifFalse: [#blank ] ]! Item was added: + ----- Method: ToolIcons class>>iconNamed: (in category 'accessing') ----- + iconNamed: aSymbol + + ^self icons at: aSymbol ifAbsentPut: [self perform: aSymbol]! Item was added: + ----- Method: ToolIcons class>>icons (in category 'accessing') ----- + icons + + ^ Icons ifNil: [Icons := Dictionary new]! Item was added: + ----- Method: ToolIcons class>>magnitude (in category 'private') ----- + magnitude + ^ ((ColorForm + extent: 12@12 + depth: 8 + fromArray: #( 874447653 738461995 85013556 875824136 573444634 471217204 875826957 607204404 875115572 875836464 489816628 875836468 875836468 50409268 875836468 875836468 268902708 875836468 875836418 101004340 875836468 875836448 167851060 873804852 875825163 204747815 874722356 875763995 321259818 335557684 875042605 102243847 930868 875836468 875836468 875836468) + offset: 0@0) + colorsFromArray: #(#(0.372 0.372 0.372) #(0.608 0.608 0.608) #(0.961 0.961 0.961) #(0.506 0.506 0.506) #(0.588 0.588 0.588) #(0.415 0.415 0.415) #(0.419 0.419 0.419) #(0.384 0.384 0.384) #(0.745 0.745 0.745) #(0.561 0.561 0.561) #(0.447 0.447 0.447) #(0.435 0.435 0.435) #(0.427 0.427 0.427) #(0.545 0.545 0.545) #(0.522 0.522 0.522) #(0.902 0.902 0.902) #(0.761 0.761 0.761) #(0.53 0.53 0.53) #(0.686 0.686 0.686) #(0.628 0.628 0.628) #(0.181 0.181 0.181) #(0.204 0.204 0.204) #(0.604 0.604 0.604) #(0.455 0.455 0.455) #(0.408 0.408 0.408) #(0.341 0.341 0.341) #(0.659 0.659 0.659) #(0.333 0.333 0.333) #(0.663 0.663 0.663) #(0.624 0.624 0.624) #(0.396 0.396 0.396) #(0.875 0.875 0.875) #(0.542 0.542 0.542) #(0.592 0.592 0.592) #(0.569 0.569 0.569) #(0.236 0.236 0.236) #(0.565 0.565 0.565) #(0.494 0.494 0.494) #(0.62 0.62 0.62) #(0.953 0.953 0.953) #(0.733 0.733 0.733) #(0.502 0.502 0.502) #(0.298 0.298 0.298) #(0.451 0.451 0.451) #(0.585 0.585 0.585) #(0.439 0.439 0.439) #(0.698 0.698 0.698) #(0.714 0.714 0.714) #(0.721 0.721 0.721) #(0.855 0.855 0.855) #(0.474 0.474 0.474) #(0.871 0.871 0.871) #( ) ))! Item was added: + ----- Method: ToolIcons class>>morph (in category 'private') ----- + morph + ^ ((ColorForm + extent: 12@12 + depth: 8 + fromArray: #( 1578631802 292362797 539127618 1895825665 2117994270 1445606482 202325275 1997372285 33573212 859313989 1763509875 1213866361 1064308758 192424752 1645101626 793665883 476466020 85208644 1751792704 621947215 1414349622 527711064 676669009 1346794755 1617375851 1095982919 656635516 1819423020 354700362 1695037706 154613091 420699479 75263577 2139062143 2139062143 2139062143) + offset: 0@0) + colorsFromArray: #(#(0.557 0.714 0.898) #(0.526 0.686 0.887) #(0.557 0.706 0.887) #(0.494 0.604 0.796) #(0.494 0.6 0.792) #(0.585 0.811 1.0) #(0.879 0.93 0.883) #(0.514 0.671 0.867) #(0.84 0.867 0.902) #(0.581 0.667 0.804) #(0.474 0.577 0.753) #(0.729 0.851 0.674) #(0.51 0.678 0.883) #(0.565 0.71 0.918) #(0.733 0.894 1.0) #(0.538 0.694 0.883) #(0.455 0.741 1.0) #(0.553 0.69 0.871) #(0.969 0.867 0.78) #(0.506 0.635 0.815) #(0.757 0.906 1.0) #(0.851 0.879 0.922) #(0.655 0.844 1.0) #(0.836 0.918 0.992) #(0.604 0.741 0.902) #(0.518 0.631 0.804) #(0.542 0.678 0.855) #(0.549 0.698 0.883) #(0.753 0.875 0.725) #(0.815 0.894 0.823) #(0.51 0.667 0.863) #(0.639 0.733 0.91) #(0.522 0.659 0.84) #(0.686 0.757 0.867) #(0.542 0.671 0.836) #(1.0 0.949 0.612) #(0.848 0.859 0.894) #(0.988 0.949 0.918) #(1.0 0.682 0.514) #(0.984 0.871 0.415) #(1.0 0.796 0.674) #(0.977 0.914 0.867) #(0.518 0.671 0.859) #(0.585 0.776 0.518) #(0.836 0.879 0.922) #(0.534 0.671 0.851) #(0.706 0.757 0.855) #(0.643 0.745 0.879) #(0.819 0.918 1.0) #(0.827 0.871 0.906) #(0.458 0.721 0.404) #(0.62 0.737 0.891) #(0.51 0.631 0.8) #(0.577 0.663 0.848) #(0.506 0.612 0.776) #(0.565 0.671 0.84) #(0.926 0.961 0.992) #(0.581 0.659 0.792) #(0.545 0.639 0.792) #(0.4 0.686 0.353) #(0.811 0.898 0.827) #(0.561 0.706 0.883) #(0.518 0.674 0.871) #(0.659 0.757 0.891) #(0.887 0.945 0.902) #(1.0 0.84 0.717) #(0.717 0.776 0.863) #(0.678 0.745 0.859) #(0.538 0.628 0.776) #(0.898 0.945 0.992) #(1.0 0.918 0.549) #(0.996 0.961 0.757) #(0.863 0.93 0.992) #(0.474 0.628 0.827) #(0.844 0.871 0.914) #(0.62 0.807 0.581) #(0.848 0.867 0.91) #(0.988 0.977 0.898) #(0.804 0.914 1.0) #(0.98 0.977 0.934) #(0.957 0.84 0.365) #(0.961 0.93 0.714) #(0.596 0.678 0.815) #(1.0 0.6 0.314) #(0.953 0.937 0.823) #(1.0 0.538 0.243) #(0.502 0.659 0.855) #(0.498 0.596 0.768) #(0.549 0.792 0.577) #(0.612 0.682 0.807) #(0.914 0.957 0.992) #(0.706 0.863 1.0) #(0.482 0.616 0.8) #(0.498 0.624 0.792) #(0.694 0.757 0.863) #(1.0 0.737 0.569) #(0.631 0.721 0.902) #(0.522 0.772 1.0) #(0.549 0.792 1.0) #(0.553 0.647 0.823) #(0.836 0.926 1.0) #(0.84 0.863 0.891) #(0.423 0.717 0.423) #(0.788 0.898 0.733) #(0.612 0.729 0.887) #(0.918 0.953 0.922) #(0.934 0.965 0.934) #(0.616 0.831 0.628) #(0.53 0.643 0.807) #(0.545 0.686 0.863) #(0.502 0.596 0.753) #(0.616 0.702 0.823) #(0.772 0.898 1.0) #(0.581 0.686 0.844) #(0.851 0.891 0.934) #(0.937 0.965 0.992) #(0.729 0.859 0.686) #(0.671 0.745 0.879) #(0.682 0.749 0.879) #(0.545 0.698 0.898) #(0.388 0.682 0.341) #(0.534 0.639 0.8) #(0.561 0.702 0.883) #(0.553 0.706 0.91) #(0.486 0.588 0.776) #(0.542 0.698 0.887) #(0.522 0.678 0.875) #( ) ))! Item was added: + ----- Method: ToolIcons class>>string (in category 'private') ----- + string + ^ ((ColorForm + extent: 12@12 + depth: 8 + fromArray: #( 673716502 100672805 623061032 673717016 118757928 587409448 673710082 33825576 354166824 673717518 268698408 19277864 673714447 504037672 638134312 673720360 302655016 606152744 673720360 673588264 555886632 673720360 673456424 572991528 673720360 671621672 656418856 673720360 673654568 538912808 673720360 671948840 84682792 673720360 673128232 320284712) + offset: 0@0) + colorsFromArray: #(#(0.439 0.721 0.937) #(0.447 0.674 0.93) #(0.573 0.784 0.953) #(0.451 0.682 0.937) #(0.534 0.761 0.949) #(0.435 0.631 0.926) #(0.439 0.729 0.945) #(0.573 0.788 0.953) #(0.443 0.651 0.926) #(0.443 0.663 0.93) #(0.427 0.671 0.93) #(0.494 0.733 0.945) #(0.431 0.631 0.926) #(0.435 0.643 0.926) #(0.498 0.745 0.945) #(0.478 0.694 0.934) #(0.569 0.78 0.953) #(0.941 0.965 0.992) #(0.941 0.961 0.992) #(0.431 0.628 0.926) #(0.538 0.764 0.949) #(0.447 0.682 0.937) #(0.435 0.706 0.937) #(0.431 0.628 0.918) #(0.522 0.768 0.949) #(0.827 0.898 0.977) #(0.455 0.694 0.937) #(0.419 0.71 0.937) #(0.447 0.682 0.93) #(0.455 0.698 0.937) #(0.443 0.71 0.937) #(0.435 0.635 0.926) #(0.435 0.639 0.926) #(0.443 0.659 0.926) #(0.439 0.651 0.926) #(0.451 0.686 0.937) #(0.443 0.659 0.93) #(0.439 0.717 0.937) #(0.443 0.671 0.93) #(0.435 0.647 0.926) #( ) ))!

1 0

The Trunk: Morphic-mt.769.mcz
by commits＠source.squeak.org 05 Mar '15

05 Mar '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.769.mcz ==================== Summary ==================== Name: Morphic-mt.769 Author: mt Time: 5 March 2015, 11:42:26.808 am UUID: ee4fec28-7d78-7a4b-9f0e-5c7a883d0964 Ancestors: Morphic-mt.768 Fixes icon access wrt. list filtering. =============== Diff against Morphic-mt.768 =============== Item was changed: ----- Method: PluggableListMorph>>iconAt: (in category 'model access') ----- iconAt: anInteger + + | index | + index := (self hasFilter and: [list notNil]) + ifTrue: [self getFullList indexOf: (list at: anInteger)] + ifFalse: [anInteger]. + ^ getIconSelector ifNotNil: [model perform: getIconSelector with: index]! - ^ getIconSelector ifNotNil: [model perform: getIconSelector with: anInteger]!

1 0

The Trunk: Kernel-mt.909.mcz
by commits＠source.squeak.org 05 Mar '15

05 Mar '15

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.909.mcz ==================== Summary ==================== Name: Kernel-mt.909 Author: mt Time: 5 March 2015, 11:41:30.983 am UUID: bd97ddfb-65ef-9a4d-956a-7ebb84782a01 Ancestors: Kernel-ul.908 Two utility messages added to classes to find out whether a selector is an override or will be overridden in subclasses. =============== Diff against Kernel-ul.908 =============== Item was added: + ----- Method: ClassDescription>>isSelectorOverridden: (in category 'testing') ----- + isSelectorOverridden: aSelector + + (self includesSelector: aSelector) + ifFalse: [^ false]. + + self allSubclassesDo: [ :class | + (class includesSelector: aSelector) + ifTrue: [ ^ true ] ]. + ^ false! Item was added: + ----- Method: ClassDescription>>isSelectorOverride: (in category 'testing') ----- + isSelectorOverride: aSelector + + (self includesSelector: aSelector) + ifFalse: [^ false]. + + self allSuperclassesDo: [ :class | + (class includesSelector: aSelector) + ifTrue: [ ^ true ] ]. + ^ false!

1 0

Fwd: Video problem in Fedora 20 ARM
by Gustavo Duarte 05 Mar '15

05 Mar '15

---------- Forwarded message ---------- From: Gustavo Duarte <gus.duarte(a)gmail.com> Date: Wed, Mar 4, 2015 at 8:39 AM Subject: Re: Video problem in Fedora 20 ARM To: Squeak Virtual Machine Development Discussion <vm-dev(a)lists.squeakfoundation.org> The squeak version is squeak-vm-4.10.2.2614-9.fc20.armv7hl On Wed, Mar 4, 2015 at 8:35 AM, Gustavo Duarte <gus.duarte(a)gmail.com> wrote: > Hi guys, > > I'm testing Scratch and Etoys on a OLPC laptop with Fedora 20 and ARM > arch, and i'm having problems with the camera. The image of the camera > on customs dialog is showed in a wrong way. (attached you can find a > picture) > > Other app which are using the camera video is working well, so i'm > thinking the driver isn't the problem. > > Could be the squeak camera plugin the problem ? > > How can make more debugging to figure out what is the problem ? > > The source code of the camera plugin is open ? where i can find it ? > > > Thanks in advance. > > Gustavo.

2 2

The Trunk: MorphicExtras-mt.157.mcz
by commits＠source.squeak.org 04 Mar '15

04 Mar '15

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.157.mcz ==================== Summary ==================== Name: MorphicExtras-mt.157 Author: mt Time: 4 March 2015, 9:10:14.479 pm UUID: 0b806ef9-9fe4-4a42-a854-bd1a7c18f358 Ancestors: MorphicExtras-mt.156 Reverted eToys-specific changes in AnimatedImageMorph but kept its working core in #step for displaying animated gifs. =============== Diff against MorphicExtras-mt.156 =============== Item was changed: ImageMorph subclass: #AnimatedImageMorph + instanceVariableNames: 'images delays stepTime nextTime imageIndex' - instanceVariableNames: 'images delays stepTime nextTime imageIndex stepper' classVariableNames: '' poolDictionaries: '' category: 'MorphicExtras-AdditionalMorphs'! !AnimatedImageMorph commentStamp: '<historical>' prior: 0! I am an ImageMorph that can hold more than one image. Each image has its own delay time.! Item was removed: - ----- Method: AnimatedImageMorph class>>additionsToViewerCategories (in category 'class initialization') ----- - additionsToViewerCategories - "Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories." - ^ #( - - (#'graphics' - ( - (slot isGifPlaying 'Whether the gif is playing' - Boolean readWrite Player getGifPlaying Player setGifPlaying:) - (slot opaque 'Whether the gif opaque' - Boolean readWrite Player getOpaque Player setOpaque:) - - )) - - ) - ! Item was changed: ----- Method: AnimatedImageMorph class>>fromGIFFileNamed: (in category 'instance creation') ----- fromGIFFileNamed: fileName | reader | + reader := AnimatedGIFReadWriter formsFromFileNamed: fileName. - reader _ AnimatedGIFReadWriter formsFromFileNamed: fileName. ^reader forms size = 1 ifTrue: [ ImageMorph new image: reader forms first ] ifFalse: [ self new fromReader: reader ]! Item was changed: ----- Method: AnimatedImageMorph class>>fromStream: (in category 'instance creation') ----- fromStream: aStream | reader | + reader := AnimatedGIFReadWriter formsFromStream: aStream. - reader _ AnimatedGIFReadWriter formsFromStream: aStream. ^reader forms size = 1 ifTrue: [ ImageMorph new image: reader forms first ] ifFalse: [ self new fromReader: reader ]! Item was added: + ----- Method: AnimatedImageMorph class>>initialize (in category 'class initialization') ----- + initialize + "register the receiver in the global registries" + self environment + at: #FileList + ifPresent: [:cl | cl registerFileReader: self]! Item was changed: ----- Method: AnimatedImageMorph class>>serviceOpenGIFInWindow (in category 'fileIn/Out') ----- serviceOpenGIFInWindow "Answer a service for opening a gif graphic in a window" ^ (SimpleServiceEntry provider: self label: 'open the graphic as a morph' selector: #openGIFInWindow: description: 'open a GIF graphic file as a morph' + buttonLabel: 'open') - buttonLabel: 'open gif') argumentGetter: [:fileList | fileList readOnlyStream]! Item was changed: ----- Method: AnimatedImageMorph class>>services (in category 'fileIn/Out') ----- services ^ Array with: self serviceOpenGIFInWindow "with: Form serviceImageImports" + with: Form serviceImageAsBackground! - "with: Form serviceImageAsBackground"! Item was removed: - ----- Method: AnimatedImageMorph>>addCustomMenuItems:hand: (in category 'stepping and presenter') ----- - addCustomMenuItems: aMenu hand: aHand - super addCustomMenuItems: aMenu hand: aHand. - aMenu addUpdating: #steppingString action: #toggleStepping! Item was removed: - ----- Method: AnimatedImageMorph>>fromArray: (in category 'private') ----- - fromArray: reader - images := reader first. - delays := reader second. - imageIndex := 0. - self - image: (Form extent: images first extent depth: 32). - self isOpaque: true. - self step! Item was changed: ----- Method: AnimatedImageMorph>>fromReader: (in category 'private') ----- + fromReader: reader + - fromReader: reader images := reader forms. delays := reader delays. - imageIndex := 0. - self - image: (Form extent: images first extent depth: 32). self isOpaque: true. + self reset.! - self step! Item was changed: ----- Method: AnimatedImageMorph>>initialize (in category 'private') ----- initialize nextTime := Time millisecondClockValue. imageIndex := 1. stepTime := 10. - stepper :=true. super initialize! Item was added: + ----- Method: AnimatedImageMorph>>reset (in category 'private') ----- + reset + + imageIndex := 0. + self image: (Form extent: images first extent depth: 32). + self step.! Item was removed: - ----- Method: AnimatedImageMorph>>setStepping: (in category 'stepping and presenter') ----- - setStepping: aBoolean - self wantsSteps ifFalse:[^false]. - stepper := aBoolean. - stepper ifTrue:[self startStepping] - ifFalse:[self stopStepping]. - - ! Item was changed: ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') ----- step + | d form | + images isEmpty ifTrue: [^ self]. + + nextTime > Time millisecondClockValue + ifTrue: [^self]. + " self changed." + imageIndex > 0 ifTrue: [ - | form delay | - stepper ifFalse:[ self stopStepping]. - images isEmpty - ifTrue: [^ self]. - nextTime > Time millisecondClockValue - ifTrue: [^self]. - imageIndex > 0 ifTrue: [ form := images at: imageIndex. + form displayOn: self image at: 0@0 rule: (self isOpaque ifTrue: [Form paint] ifFalse: [Form erase])]. + form := images at: (imageIndex := imageIndex \\ images size + 1). + form displayOn: self image at: 0@0 rule: Form paint. + self changed. + d := (delays at: imageIndex) ifNil: [0]. + nextTime := Time millisecondClockValue + d + ! - form displayOn: self image at: 0@0 rule: - ((self isOpaque) ifTrue:[Form paint] ifFalse:[Form erase]). - ]. - imageIndex _ imageIndex \\ images size + 1. - form := images at: imageIndex. - form displayOn: self image at: 0@0 rule: Form paint. - self changed. - delay := (delays at: imageIndex) ifNil: [0]. - nextTime := Time millisecondClockValue +delay! Item was changed: ----- Method: AnimatedImageMorph>>stepTime: (in category 'stepping and presenter') ----- stepTime: anInteger + stepTime := anInteger! - stepTime _ anInteger! Item was removed: - ----- Method: AnimatedImageMorph>>steppingString (in category 'stepping and presenter') ----- - steppingString - ^ (stepper - ifTrue: ['<on>'] - ifFalse: ['<off>']), 'stepping' translated! Item was removed: - ----- Method: AnimatedImageMorph>>toggleStepping (in category 'stepping and presenter') ----- - toggleStepping - self wantsSteps - ifTrue: [stepper := stepper not]. - stepper ifTrue:[self startStepping] - ifFalse:[self stopStepping]. - - !

1 0

Re: [squeak-dev] The Trunk: MorphicExtras-mt.156.mcz
by Tobias Pape 04 Mar '15

04 Mar '15

Hi. quick review. On 04.03.2015, at 18:04, commits(a)source.squeak.org wrote: > Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: > http://source.squeak.org/trunk/MorphicExtras-mt.156.mcz > > ==================== Summary ==================== > > Name: MorphicExtras-mt.156 > Author: mt > Time: 4 March 2015, 7:04:52.068 pm > UUID: 1b149c50-aaf7-b043-86e1-ce80d88bc68b > Ancestors: MorphicExtras-mt.155 > > Uses eToys' implementation of AnimatedImageMorph, which works fine with animated GIFs now. > > =============== Diff against MorphicExtras-mt.155 =============== > > Item was changed: > ImageMorph subclass: #AnimatedImageMorph > + instanceVariableNames: 'images delays stepTime nextTime imageIndex stepper' > - instanceVariableNames: 'images delays stepTime nextTime imageIndex formsAreDiffs' > classVariableNames: '' > poolDictionaries: '' > category: 'MorphicExtras-AdditionalMorphs'! > > !AnimatedImageMorph commentStamp: '<historical>' prior: 0! > I am an ImageMorph that can hold more than one image. Each image has its own delay time.! > > Item was added: > + ----- Method: AnimatedImageMorph class>>additionsToViewerCategories (in category 'class initialization') ----- > + additionsToViewerCategories > + "Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories." > + ^ #( > + > + (#'graphics' > + ( > + (slot isGifPlaying 'Whether the gif is playing' > + Boolean readWrite Player getGifPlaying Player setGifPlaying:) > + (slot opaque 'Whether the gif opaque' > + Boolean readWrite Player getOpaque Player setOpaque:) > + > + )) > + > + ) > + ! > > Item was changed: > ----- Method: AnimatedImageMorph class>>fromGIFFileNamed: (in category 'instance creation') ----- > fromGIFFileNamed: fileName > | reader | > + reader _ AnimatedGIFReadWriter formsFromFileNamed: fileName. > - reader := AnimatedGIFReadWriter formsFromFileNamed: fileName. Should be changed back. > ^reader forms size = 1 > ifTrue: [ ImageMorph new image: reader forms first ] > ifFalse: [ self new fromReader: reader ]! > > Item was changed: > ----- Method: AnimatedImageMorph class>>fromStream: (in category 'instance creation') ----- > fromStream: aStream > | reader | > + reader _ AnimatedGIFReadWriter formsFromStream: aStream. > - reader := AnimatedGIFReadWriter formsFromStream: aStream. Should be changed back. > ^reader forms size = 1 > ifTrue: [ ImageMorph new image: reader forms first ] > ifFalse: [ self new fromReader: reader ]! > > Item was removed: > - ----- Method: AnimatedImageMorph class>>initialize (in category 'class initialization') ----- > - initialize > - "register the receiver in the global registries" > - self environment > - at: #FileList > - ifPresent: [:cl | cl registerFileReader: self]! This remove should be reverted. > > Item was changed: > ----- Method: AnimatedImageMorph class>>serviceOpenGIFInWindow (in category 'fileIn/Out') ----- > serviceOpenGIFInWindow > "Answer a service for opening a gif graphic in a window" > ^ (SimpleServiceEntry > provider: self > label: 'open the graphic as a morph' > selector: #openGIFInWindow: > description: 'open a GIF graphic file as a morph' > + buttonLabel: 'open gif') > - buttonLabel: 'open') > argumentGetter: [:fileList | fileList readOnlyStream]! > > Item was changed: > ----- Method: AnimatedImageMorph class>>services (in category 'fileIn/Out') ----- > services > ^ Array > with: self serviceOpenGIFInWindow > "with: Form serviceImageImports" > + "with: Form serviceImageAsBackground"! > - with: Form serviceImageAsBackground! While virtually no one uses services, I think this can stay without the comment > > Item was added: > + ----- Method: AnimatedImageMorph>>addCustomMenuItems:hand: (in category 'stepping and presenter') ----- > + addCustomMenuItems: aMenu hand: aHand > + super addCustomMenuItems: aMenu hand: aHand. > + aMenu addUpdating: #steppingString action: #toggleStepping! > > Item was removed: > - ----- Method: AnimatedImageMorph>>formsAreDiffs (in category 'accessing') ----- > - formsAreDiffs > - "Should the forms be drawn on top of each other to produce the frame?" > - ^ formsAreDiffs ifNil: [false]! > > Item was removed: > - ----- Method: AnimatedImageMorph>>formsAreDiffs: (in category 'accessing') ----- > - formsAreDiffs: aBoolean > - > - formsAreDiffs := aBoolean. > - self reset.! > > Item was added: > + ----- Method: AnimatedImageMorph>>fromArray: (in category 'private') ----- > + fromArray: reader > + images := reader first. > + delays := reader second. > + imageIndex := 0. > + self > + image: (Form extent: images first extent depth: 32). > + self isOpaque: true. > + self step! > > Item was changed: > ----- Method: AnimatedImageMorph>>fromReader: (in category 'private') ----- > + fromReader: reader > - fromReader: reader > - > images := reader forms. > delays := reader delays. > + imageIndex := 0. > + self > + image: (Form extent: images first extent depth: 32). > + self isOpaque: true. > + self step! > - self reset.! > > Item was changed: > ----- Method: AnimatedImageMorph>>initialize (in category 'private') ----- > initialize > nextTime := Time millisecondClockValue. > imageIndex := 1. > stepTime := 10. > + stepper :=true. > super initialize! > > Item was removed: > - ----- Method: AnimatedImageMorph>>reset (in category 'private') ----- > - reset > - > - imageIndex := 0. > - self image: (Form extent: images first extent depth: 32). > - self step.! > > Item was added: > + ----- Method: AnimatedImageMorph>>setStepping: (in category 'stepping and presenter') ----- > + setStepping: aBoolean > + self wantsSteps ifFalse:[^false]. > + stepper := aBoolean. > + stepper ifTrue:[self startStepping] > + ifFalse:[self stopStepping]. > + > + ! > > Item was changed: > ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') ----- > step > + | form delay | > + stepper ifFalse:[ self stopStepping]. > + images isEmpty > + ifTrue: [^ self]. > + nextTime > Time millisecondClockValue > + ifTrue: [^self]. > + imageIndex > 0 ifTrue: [ > + form := images at: imageIndex. > + form displayOn: self image at: 0@0 rule: > + ((self isOpaque) ifTrue:[Form paint] ifFalse:[Form erase]). > + ]. > + imageIndex _ imageIndex \\ images size + 1. > + form := images at: imageIndex. > + form displayOn: self image at: 0@0 rule: Form paint. > + self changed. > + delay := (delays at: imageIndex) ifNil: [0]. > + nextTime := Time millisecondClockValue +delay! > - | d next | > - images isEmpty ifTrue: [^ self]. > - > - nextTime > Time millisecondClockValue > - ifTrue: [^self]. > - self changed . > - next := images at: (imageIndex := imageIndex \\ images size + 1). > - self formsAreDiffs > - ifFalse: [self image: next] > - ifTrue: [self image getCanvas translucentImage: next at: next offset].. > - self changed . > - d := (delays at: imageIndex) ifNil: [0]. > - nextTime := Time millisecondClockValue + d > - ! > > Item was changed: > ----- Method: AnimatedImageMorph>>stepTime: (in category 'stepping and presenter') ----- > stepTime: anInteger > + stepTime _ anInteger! > - stepTime := anInteger! Should be changed back. > Item was added: > + ----- Method: AnimatedImageMorph>>steppingString (in category 'stepping and presenter') ----- > + steppingString > + ^ (stepper > + ifTrue: ['<on>'] > + ifFalse: ['<off>']), 'stepping' translated! > > Item was added: > + ----- Method: AnimatedImageMorph>>toggleStepping (in category 'stepping and presenter') ----- > + toggleStepping > + self wantsSteps > + ifTrue: [stepper := stepper not]. > + stepper ifTrue:[self startStepping] > + ifFalse:[self stopStepping]. > + > + ! > >

1 0

The Trunk: MorphicExtras-mt.156.mcz
by commits＠source.squeak.org 04 Mar '15

04 Mar '15

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.156.mcz ==================== Summary ==================== Name: MorphicExtras-mt.156 Author: mt Time: 4 March 2015, 7:04:52.068 pm UUID: 1b149c50-aaf7-b043-86e1-ce80d88bc68b Ancestors: MorphicExtras-mt.155 Uses eToys' implementation of AnimatedImageMorph, which works fine with animated GIFs now. =============== Diff against MorphicExtras-mt.155 =============== Item was changed: ImageMorph subclass: #AnimatedImageMorph + instanceVariableNames: 'images delays stepTime nextTime imageIndex stepper' - instanceVariableNames: 'images delays stepTime nextTime imageIndex formsAreDiffs' classVariableNames: '' poolDictionaries: '' category: 'MorphicExtras-AdditionalMorphs'! !AnimatedImageMorph commentStamp: '<historical>' prior: 0! I am an ImageMorph that can hold more than one image. Each image has its own delay time.! Item was added: + ----- Method: AnimatedImageMorph class>>additionsToViewerCategories (in category 'class initialization') ----- + additionsToViewerCategories + "Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories." + ^ #( + + (#'graphics' + ( + (slot isGifPlaying 'Whether the gif is playing' + Boolean readWrite Player getGifPlaying Player setGifPlaying:) + (slot opaque 'Whether the gif opaque' + Boolean readWrite Player getOpaque Player setOpaque:) + + )) + + ) + ! Item was changed: ----- Method: AnimatedImageMorph class>>fromGIFFileNamed: (in category 'instance creation') ----- fromGIFFileNamed: fileName | reader | + reader _ AnimatedGIFReadWriter formsFromFileNamed: fileName. - reader := AnimatedGIFReadWriter formsFromFileNamed: fileName. ^reader forms size = 1 ifTrue: [ ImageMorph new image: reader forms first ] ifFalse: [ self new fromReader: reader ]! Item was changed: ----- Method: AnimatedImageMorph class>>fromStream: (in category 'instance creation') ----- fromStream: aStream | reader | + reader _ AnimatedGIFReadWriter formsFromStream: aStream. - reader := AnimatedGIFReadWriter formsFromStream: aStream. ^reader forms size = 1 ifTrue: [ ImageMorph new image: reader forms first ] ifFalse: [ self new fromReader: reader ]! Item was removed: - ----- Method: AnimatedImageMorph class>>initialize (in category 'class initialization') ----- - initialize - "register the receiver in the global registries" - self environment - at: #FileList - ifPresent: [:cl | cl registerFileReader: self]! Item was changed: ----- Method: AnimatedImageMorph class>>serviceOpenGIFInWindow (in category 'fileIn/Out') ----- serviceOpenGIFInWindow "Answer a service for opening a gif graphic in a window" ^ (SimpleServiceEntry provider: self label: 'open the graphic as a morph' selector: #openGIFInWindow: description: 'open a GIF graphic file as a morph' + buttonLabel: 'open gif') - buttonLabel: 'open') argumentGetter: [:fileList | fileList readOnlyStream]! Item was changed: ----- Method: AnimatedImageMorph class>>services (in category 'fileIn/Out') ----- services ^ Array with: self serviceOpenGIFInWindow "with: Form serviceImageImports" + "with: Form serviceImageAsBackground"! - with: Form serviceImageAsBackground! Item was added: + ----- Method: AnimatedImageMorph>>addCustomMenuItems:hand: (in category 'stepping and presenter') ----- + addCustomMenuItems: aMenu hand: aHand + super addCustomMenuItems: aMenu hand: aHand. + aMenu addUpdating: #steppingString action: #toggleStepping! Item was removed: - ----- Method: AnimatedImageMorph>>formsAreDiffs (in category 'accessing') ----- - formsAreDiffs - "Should the forms be drawn on top of each other to produce the frame?" - ^ formsAreDiffs ifNil: [false]! Item was removed: - ----- Method: AnimatedImageMorph>>formsAreDiffs: (in category 'accessing') ----- - formsAreDiffs: aBoolean - - formsAreDiffs := aBoolean. - self reset.! Item was added: + ----- Method: AnimatedImageMorph>>fromArray: (in category 'private') ----- + fromArray: reader + images := reader first. + delays := reader second. + imageIndex := 0. + self + image: (Form extent: images first extent depth: 32). + self isOpaque: true. + self step! Item was changed: ----- Method: AnimatedImageMorph>>fromReader: (in category 'private') ----- + fromReader: reader - fromReader: reader - images := reader forms. delays := reader delays. + imageIndex := 0. + self + image: (Form extent: images first extent depth: 32). + self isOpaque: true. + self step! - self reset.! Item was changed: ----- Method: AnimatedImageMorph>>initialize (in category 'private') ----- initialize nextTime := Time millisecondClockValue. imageIndex := 1. stepTime := 10. + stepper :=true. super initialize! Item was removed: - ----- Method: AnimatedImageMorph>>reset (in category 'private') ----- - reset - - imageIndex := 0. - self image: (Form extent: images first extent depth: 32). - self step.! Item was added: + ----- Method: AnimatedImageMorph>>setStepping: (in category 'stepping and presenter') ----- + setStepping: aBoolean + self wantsSteps ifFalse:[^false]. + stepper := aBoolean. + stepper ifTrue:[self startStepping] + ifFalse:[self stopStepping]. + + ! Item was changed: ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') ----- step + | form delay | + stepper ifFalse:[ self stopStepping]. + images isEmpty + ifTrue: [^ self]. + nextTime > Time millisecondClockValue + ifTrue: [^self]. + imageIndex > 0 ifTrue: [ + form := images at: imageIndex. + form displayOn: self image at: 0@0 rule: + ((self isOpaque) ifTrue:[Form paint] ifFalse:[Form erase]). + ]. + imageIndex _ imageIndex \\ images size + 1. + form := images at: imageIndex. + form displayOn: self image at: 0@0 rule: Form paint. + self changed. + delay := (delays at: imageIndex) ifNil: [0]. + nextTime := Time millisecondClockValue +delay! - | d next | - images isEmpty ifTrue: [^ self]. - - nextTime > Time millisecondClockValue - ifTrue: [^self]. - self changed . - next := images at: (imageIndex := imageIndex \\ images size + 1). - self formsAreDiffs - ifFalse: [self image: next] - ifTrue: [self image getCanvas translucentImage: next at: next offset].. - self changed . - d := (delays at: imageIndex) ifNil: [0]. - nextTime := Time millisecondClockValue + d - ! Item was changed: ----- Method: AnimatedImageMorph>>stepTime: (in category 'stepping and presenter') ----- stepTime: anInteger + stepTime _ anInteger! - stepTime := anInteger! Item was added: + ----- Method: AnimatedImageMorph>>steppingString (in category 'stepping and presenter') ----- + steppingString + ^ (stepper + ifTrue: ['<on>'] + ifFalse: ['<off>']), 'stepping' translated! Item was added: + ----- Method: AnimatedImageMorph>>toggleStepping (in category 'stepping and presenter') ----- + toggleStepping + self wantsSteps + ifTrue: [stepper := stepper not]. + stepper ifTrue:[self startStepping] + ifFalse:[self stopStepping]. + + !

1 0

How to play animated GIFs in Squeak?
by Marcel Taeumel 04 Mar '15

04 Mar '15

Is it possible? There is an "AnimatedGIFReadWriter" class but it only produces some forms that seem not to represent frames --- but I am no expert in how GIFs are encoded at all. :) Best, Marcel -- View this message in context: http://forum.world.st/How-to-play-animated-GIFs-in-Squeak-tp4809137.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

5 9

The Trunk: Morphic-mt.768.mcz
by commits＠source.squeak.org 04 Mar '15

04 Mar '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.768.mcz ==================== Summary ==================== Name: Morphic-mt.768 Author: mt Time: 4 March 2015, 6:48:50.402 pm UUID: 2b59d13e-c425-9946-8b27-8ceef7df20c1 Ancestors: Morphic-mt.767 Fixes rounded corners and respects #gradientWindow preference in UserDialogBoxMorph. =============== Diff against Morphic-mt.767 =============== Item was added: + ----- Method: UserDialogBoxMorph>>drawSubmorphsOn: (in category 'drawing') ----- + drawSubmorphsOn: aCanvas + + super drawSubmorphsOn: aCanvas. + + self wantsRoundedCorners ifTrue: [ + "Overdraw lower part of title bar to hide bottom corners." + aCanvas + fillRectangle: (self submorphs first "titleRow" bottomLeft - (-1 @ Morph preferredCornerRadius) + corner: self submorphs first "titleRow" bottomRight - (1@0)) + color: self color].! Item was changed: ----- Method: UserDialogBoxMorph>>initialize (in category 'initialization') ----- initialize + + | titleRow cc | - | titleRow titleFill cc | super initialize. self color: Color white. self listDirection: #topToBottom; wrapCentering: #center; hResizing: #shrinkWrap; vResizing: #shrinkWrap. + self layoutInset: -1 @ -1; cellInset: 5@5. - self layoutInset: 0@0; cellInset: 5@5. self borderStyle: BorderStyle thinGray. + self + useRoundedCorners; + addDropShadow; + shadowColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.666); + shadowOffset: 1 @ 1. - self useRoundedCorners; - addDropShadow; - shadowColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.666); - shadowOffset: 1 @ 1. cc := Color gray: 0.8. titleRow := AlignmentMorph newRow. titleRow hResizing: #spaceFill; vResizing: #shrinkWrap. + titleRow useRoundedCorners. + titleRow borderStyle: BorderStyle thinGray. + titleRow layoutInset: (2@5 corner: (2@ (5 + Morph preferredCornerRadius))). - titleRow layoutInset: 2@5. titleRow color: cc. - titleFill := GradientFillStyle ramp: {0.0 -> Color white. 1 ->cc}. - titleFill radial: false; origin: titleRow topLeft; direction: 0 @ TextStyle defaultFont height. - titleRow fillStyle: titleFill. titleRow fillStyle: self titleGradient. titleMorph := StringMorph new. titleMorph emphasis: 1. titleRow addMorph: titleMorph. labelMorph := TextMorph new. labelMorph margins: 5@5. labelMorph lock. buttonRow := AlignmentMorph newRow vResizing: #shrinkWrap. buttonRow hResizing: #shrinkWrap; layoutInset: 5@5; cellInset: 5@5. buttonRow color: Color transparent. self addMorphBack: titleRow ; addMorphBack: labelMorph ; addMorphBack: buttonRow ; addDropShadow. keyMap := Dictionary new! Item was changed: ----- Method: UserDialogBoxMorph>>titleGradient (in category 'initialization') ----- titleGradient + | cc gradient | + SystemWindow gradientWindow + ifFalse: [^ SolidFillStyle color: self buttonColor]. + cc := self buttonColor. gradient := GradientFillStyle ramp: { 0.0 -> Color white. 0.33 ->(cc mixed: 0.5 with: Color white). 1.0 -> cc. }. gradient origin: 0@0. gradient direction: 0 @ (TextStyle defaultFont height + 10). ^gradient!

1 0

Video problem in Fedora 20 ARM
by Gustavo Duarte 04 Mar '15

04 Mar '15

Hi guys, I'm testing Scratch and Etoys on an OLPC laptop with Fedora 20 and ARM arch, and i'm having problems with the camera. The image showed by the camera on customs dialog isn't right, as you can see on in the following picture (https://drive.google.com/open?id=0B_AXpRp35HPfc2ZhMUUtUHdlYWc&authuser=0) Other apps which are using the camera video is working well on this machine, so i'm thinking the driver isn't the problem. Could be the squeak camera plugin the problem ? How can make more debugging to figure out what is the problem ? The source code of the camera plugin is open ? where i can find it ? Thes VM squeak version is: squeak-vm-4.10.2.2614-9.fc20.armv7hl Thanks in advance. Gustavo.

1 0

Jump to page: