Karl Ramberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-kfr.22.mcz
==================== Summary ====================
Name: MorphicExtras-kfr.22
Author: kfr
Time: 17 May 2011, 5:20:57 pm
UUID: 04f524dc-934c-c141-9e2e-3c73ae7c2acc
Ancestors: MorphicExtras-kfr.21
eToys typos
http://tracker.squeakland.org/browse/SQ-922
=============== Diff against MorphicExtras-kfr.21 ===============
Item was changed:
----- Method: BookMorph>>bookMenu (in category 'menu') -----
bookMenu
"Create and answer the standard book menu."
| aMenu |
aMenu _ MenuMorph new defaultTarget: self.
aMenu addTitle: 'Book' translated.
aMenu addStayUpItem.
aMenu addTranslatedList: #(
('find...' textSearch 'search the book for word(s)')
('find again' textSearchAgain 'search for the next occurrence of a string')
-
('go to page...' goToPage 'go directly to a page, if you know its page-number')
+ ('duplicate this page' duplicatePage 'add a new page just like this one to the book.')
- ('duplicate this page' duplicatePage 'add a new page just like this one to0 the book.')
-
('revert this page' revertPage 'restore this page to its initial condition, if possible.')
('revert entire book' revertAllPages 'restore all pages of this book to their initial condition if possible.')
-) translatedNoop.
self addBookToggleItemsTo: aMenu.
aMenu addTranslatedList: #(
-
('sort pages' sortPages 'open a tool allowing you to arrange the pages of the book.')
('hand me a bookmark for this page' bookmarkForThisPage 'make a bookmark object which, when clicked, will make the book turn to this page.')
('hand me a thumbnail for this page' thumbnailForThisPage 'create an icon representing this page')
-) translatedNoop.
aMenu addLine.
self addTransitionItemsTo: aMenu.
self addSaveAndRevertItemsTo: aMenu.
self addAllPagesItemsTo: aMenu. "At the moment this one does nothing"
self addAdvancedItemsTo: aMenu.
^ aMenu
"
Disused items:
'send all pages to server' savePagesOnURL.
'send this page to server' saveOneOnURL.
'reload all from server' reload.
'keep in one file' keepTogether.
'load PPT images from slide #1' loadImagesIntoBook.
'copy page url to clipboard' copyUrl."
!
Karl Ramberg uploaded a new version of Morphic to project Etoys:
http://source.squeak.org/etoys/Morphic-kfr.55.mcz
==================== Summary ====================
Name: Morphic-kfr.55
Author: kfr
Time: 17 May 2011, 5:19:24 pm
UUID: 5d81e7f6-95dc-eb4e-a2e8-815f1bb2fedd
Ancestors: Morphic-bf.54
eToys typos
http://tracker.squeakland.org/browse/SQ-922
=============== Diff against Morphic-bf.54 ===============
Item was changed:
----- Method: PasteUpMorph>>presentCardAndStackMenu (in category 'menu & halo') -----
presentCardAndStackMenu
"Put up a menu holding card/stack-related options."
| aMenu |
aMenu _ MenuMorph new defaultTarget: self.
aMenu addStayUpItem.
+ aMenu addTitle: 'card and stack' translated.
- aMenu addTitle: 'card und stack' translated.
aMenu add: 'add new card' translated action: #insertCard.
aMenu add: 'delete this card' translated action: #deleteCard.
aMenu add: 'go to next card' translated action: #goToNextCardInStack.
aMenu add: 'go to previous card' translated action: #goToPreviousCardInStack.
aMenu addLine.
aMenu add: 'show foreground objects' translated action: #showForegroundObjects.
aMenu add: 'show background objects' translated action: #showBackgroundObjects.
aMenu add: 'show designations' translated action: #showDesignationsOfObjects.
aMenu add: 'explain designations' translated action: #explainDesignations.
aMenu popUpInWorld: (self world ifNil: [self currentWorld])!
Item was changed:
----- Method: PolygonMorph class>>additionsToViewerCategories (in category 'scripting') -----
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."
^ # (
(polygon (
(slot vertexCursor 'The index of the chosen vertex of vertices' Number readWrite Player getVertexCursor Player setVertexCursor:)
(slot verticesCount 'How many vertices are within me' Number readOnly Player getVerticesCount unused unused)
+ (slot xAtCursor 'The x coordinate value at the vertex cursor' Number readWrite Player getXAtCursor Player setXAtCursor:)
+ (slot yAtCursor 'The y coordinate value at the vertex cursor' Number readWrite Player getYAtCursor Player setYAtCursor:)
- (slot xAtCursor 'The x coodinate value at the vertex cursor' Number readWrite Player getXAtCursor Player setXAtCursor:)
- (slot yAtCursor 'The y coodinate value at the vertex cursor' Number readWrite Player getYAtCursor Player setYAtCursor:)
(slot lineOpened 'Whether the line is opened' Boolean readWrite Player getLineOpened Player setLineOpened:)
(slot lineCurved 'Whether the line is curved' Boolean readWrite Player getLineCurved Player setLineCurved:)
(slot showingHandles 'Whether the handles are showing' Boolean readWrite Player getShowingHandles Player setShowingHandles:)
(command removeAtVertexCursor 'Remove a vertex at the vertex cursor' Player)
(command shuffleVertices 'Shuffle the vertices' Player)
(command appendVertex 'Add a vertex to the end of my vertices list' Player)
(command prependVertex 'Add a vertex at the beginning of my vertices list' Player)
(command insertVertexAtCursor 'Add a vertex at my current cursor position' Player)
(command removeVertexAtCursor 'Remove the vertex at my current cursor position' Player)
(command removeAllButCursor 'Remove all vertices but my current cursor position vertex' Player)
))
)
!
Karl Ramberg uploaded a new version of WS-Sound to project Etoys:
http://source.squeak.org/etoys/WS-Sound-kfr.4.mcz
==================== Summary ====================
Name: WS-Sound-kfr.4
Author: kfr
Time: 17 May 2011, 5:09:54 pm
UUID: 9653925a-9aac-7b4f-8b0c-31505a78b50e
Ancestors: WS-Sound-bf.3
Help bubble text is wrong for color component tiles
http://tracker.squeakland.org/browse/SQ-918
=============== Diff against WS-Sound-bf.3 ===============
Item was changed:
----- Method: Morph class>>additionsToViewerCategoryColor (in category '*WS-Sound-Interface') -----
additionsToViewerCategoryColor
+ "Answer viewer additions for the 'color' category"
- "Answer viewer additions for the 'sound' category"
^#(
color
(
(slot color 'The color of the object' Color readWrite Player getColor Player setColor:)
+ (slot red 'Red value of my color from 0 to 100' Number readWrite Player getRed Player setRed:)
+ (slot green 'Green value of my color from 0 to 100' Number readWrite Player getGreen Player setGreen:)
+ (slot blue 'Blue value of my color from 0 to 100' Number readWrite Player getBlue Player setBlue:)
+ (slot alpha 'Alpha value of my color from 0 to 100' Number readWrite Player getAlpha Player setAlpha:)
+ (slot hue 'Hue value of my color from -180 to 180' Number readWrite Player getHue Player setHue:)
+ (slot saturation 'Saturation value of my color from 0 to 100' Number readWrite Player getSaturation Player setSaturation:)
+ (slot brightness 'Brightness value of my color from 0 to 100' Number readWrite Player getBrightness Player setBrightness:)
- (slot red 'Red value of my color from 0 to 1.0 as float' Number readWrite Player getRed Player setRed:)
- (slot green 'Green value of my color from 0 to 1.0 as float' Number readWrite Player getGreen Player setGreen:)
- (slot blue 'Blue value of my color from 0 to 1.0 as float' Number readWrite Player getBlue Player setBlue:)
- (slot alpha 'Alpha value of my color from 0 to 1.0 as float' Number readWrite Player getAlpha Player setAlpha:)
- (slot hue 'hue value of my color from -180 to 180 as float' Number readWrite Player getHue Player setHue:)
- (slot saturation 'Saturation value of my color from 0 to 100 as float' Number readWrite Player getSaturation Player setSaturation:)
- (slot brightness 'Brightness value of my color from 0 to 100 as float' Number readWrite Player getBrightness Player setBrightness:)
)
)
!
Karl Ramberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-kfr.21.mcz
==================== Summary ====================
Name: MorphicExtras-kfr.21
Author: kfr
Time: 17 May 2011, 11:57:31 am
UUID: 012b0288-1e48-144b-9ee6-d06b01feefaf
Ancestors: MorphicExtras-kfr.20
Default Book page controls should be "advanced" instead of short
http://tracker.squeakland.org/browse/SQ-636
=============== Diff against MorphicExtras-kfr.20 ===============
Item was changed:
----- Method: BookMorph>>pageControlsShort (in category 'uniform page size') -----
pageControlsShort
"Answer whether I am currently set up to have my page-controls be in the short form"
^ self valueOfProperty: #pageControlsShort ifAbsentPut:
+ [false]!
- [true]!
Karl Ramberg uploaded a new version of Sound to project Etoys:
http://source.squeak.org/etoys/Sound-kfr.12.mcz
==================== Summary ====================
Name: Sound-kfr.12
Author: kfr
Time: 17 May 2011, 11:32:44 am
UUID: 30375ecd-ac5a-e640-aed7-1805df305673
Ancestors: Sound-kfr.11
Fix balloon help text
=============== Diff against Sound-kfr.11 ===============
Item was changed:
----- Method: RecordingControls class>>additionsToViewerCategories (in category 'as yet unclassified') -----
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."
^ #((#'sound recorder'
((command recordButtonHit 'start recording')
(command stopButtonHit 'stop recording or playback')
+ (command playButtonHit 'play recording')
- (command playButtonHit 'go to previous page')
)))!
Karl Ramberg uploaded a new version of Sound to project Etoys:
http://source.squeak.org/etoys/Sound-kfr.11.mcz
==================== Summary ====================
Name: Sound-kfr.11
Author: kfr
Time: 17 May 2011, 11:27:10 am
UUID: bf72f065-617e-f14b-ae5c-86f1a82c83cb
Ancestors: Sound-kfr.10
Sound Recorder show does not work properly
http://tracker.squeakland.org/browse/SQ-672
=============== Diff against Sound-kfr.10 ===============
Item was changed:
----- Method: RecordingControls>>addMenuButtonItemsTo: (in category 'initialization') -----
addMenuButtonItemsTo: aMenu
"The menu button was hit, and aMenu will be put up in response. Populated the menu with the appropriate items."
aMenu title: 'Sound Recorder Options' translated.
aMenu addStayUpItem.
aMenu addUpdating: #durationString target: self selector: #yourself argumentList: #().
aMenu addTranslatedList: #(
-
('help' putUpAndOpenHelpFlap 'opens a flap which contains instructions')
-
('hand me a sound token' makeSoundMorph 'hands you a lozenge representing the current sound, which you can drop into a piano-roll or an event-roll, or later add to the sound library. Double-click on it to hear the sound')
-) translatedNoop.
Preferences eToyFriendly
ifFalse:
[aMenu addTranslatedList: #(
('trim' trim 'remove any blanks space at the beginning and/or end of the recording. Caution -- this feature seems to be broken, at least on some platforms, so use at your own risk. For safety, save this sound in its untrimmed form before venturing to trim.')) translatedNoop].
aMenu addTranslatedList: #(
('choose compression...' chooseCodec 'choose which data-compression scheme should be used to encode the recording.')
+ ('wave editor' showEditor 'open up the wave-editor tool to visualize and to edit the sound recorded')) translatedNoop!
- ('wave editor' show 'open up the wave-editor tool to visualize and to edit the sound recorded')) translatedNoop!
Item was removed:
- ----- Method: RecordingControls>>show (in category 'menu commands') -----
- show
- "Show my samples in a WaveEditor."
-
- | ed w |
- recorder verifyExistenceOfRecordedSound ifFalse: [^ self].
- recorder pause.
- ed _ WaveEditor new.
- ed data: recorder condensedSamples.
- ed samplingRate: recorder samplingRate.
- w _ self world.
- w activeHand
- ifNil: [w addMorph: ed]
- ifNotNil: [w activeHand attachMorph: ed].
-
- !
Item was added:
+ ----- Method: RecordingControls>>showEditor (in category 'menu commands') -----
+ showEditor
+ "Show my samples in a WaveEditor."
+
+ | ed w |
+ recorder verifyExistenceOfRecordedSound ifFalse: [^ self].
+ recorder pause.
+ ed _ WaveEditor new.
+ ed data: recorder condensedSamples.
+ ed samplingRate: recorder samplingRate.
+ w _ self world.
+ w activeHand
+ ifNil: [w addMorph: ed]
+ ifNotNil: [w activeHand attachMorph: ed].
+
+ !
Karl Ramberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-kfr.20.mcz
==================== Summary ====================
Name: MorphicExtras-kfr.20
Author: kfr
Time: 17 May 2011, 11:26:01 am
UUID: e407ee4e-dec6-0b49-86dc-a35202268340
Ancestors: MorphicExtras-Richo.19
Sound Recorder show does not work properly
http://tracker.squeakland.org/browse/SQ-672
=============== Diff against MorphicExtras-Richo.19 ===============
Item was changed:
----- Method: RecordingControlsMorph>>addButtonRows (in category 'initialization') -----
addButtonRows
| r fullWidth |
r _ AlignmentMorph newRow vResizing: #shrinkWrap.
r addMorphBack: (self buttonName: 'Morph' translated action: #makeSoundMorph).
r addMorphBack: (Morph new extent: 4@1; color: Color transparent).
r addMorphBack: (self buttonName: 'Tile' translated action: #makeTile).
r addMorphBack: (Morph new extent: 4@1; color: Color transparent).
r addMorphBack: (self buttonName: 'Trim' translated action: #trim).
r addMorphBack: (Morph new extent: 4@1; color: Color transparent).
+ r addMorphBack: (self buttonName: 'Show' translated action: #showEditor).
- r addMorphBack: (self buttonName: 'Show' translated action: #show).
self addMorphBack: r.
r layoutChanged.
fullWidth := r fullBounds width.
r _ AlignmentMorph newRow vResizing: #shrinkWrap.
r addMorphBack: (self buttonName: 'Record' translated action: #record).
r addMorphBack: (Morph new extent: 4@1; color: Color transparent).
r addMorphBack: (self buttonName: 'Stop' translated action: #stop).
r addMorphBack: (Morph new extent: 4@1; color: Color transparent).
r addMorphBack: (self buttonName: 'Play' translated action: #playback).
r addMorphBack: (Morph new extent: 4@1; color: Color transparent).
r addMorphBack: (self buttonName: 'Codec' translated action: #chooseCodec).
r addMorphBack: self makeStatusLight.
self addMorphBack: r.
self changeCodec: OggSpeexCodec name: 'Speex'.
r layoutChanged.
fullWidth := fullWidth max: r fullBounds width.
^ fullWidth@(r fullBounds height).
!
Item was removed:
- ----- Method: RecordingControlsMorph>>show (in category 'button commands') -----
- show
- "Show my samples in a WaveEditor."
-
- | ed w |
- recorder verifyExistenceOfRecordedSound ifFalse: [^ self].
- recorder pause.
- ed _ WaveEditor new.
- ed data: recorder condensedSamples.
- ed samplingRate: recorder samplingRate.
- w _ self world.
- w activeHand
- ifNil: [w addMorph: ed]
- ifNotNil: [w activeHand attachMorph: ed].
-
- !
Item was added:
+ ----- Method: RecordingControlsMorph>>showEditor (in category 'button commands') -----
+ showEditor
+ "Show my samples in a WaveEditor."
+
+ | ed w |
+ recorder verifyExistenceOfRecordedSound ifFalse: [^ self].
+ recorder pause.
+ ed _ WaveEditor new.
+ ed data: recorder condensedSamples.
+ ed samplingRate: recorder samplingRate.
+ w _ self world.
+ w activeHand
+ ifNil: [w addMorph: ed]
+ ifNotNil: [w activeHand attachMorph: ed].
+
+ !
Karl Ramberg uploaded a new version of GStreamer-UI to project Etoys:
http://source.squeak.org/etoys/GStreamer-UI-kfr.19.mcz
==================== Summary ====================
Name: GStreamer-UI-kfr.19
Author: kfr
Time: 17 May 2011, 9:39:55 am
UUID: f52557d8-a067-6e49-a6e6-2b8f7b193d7d
Ancestors: GStreamer-UI-JMM.18
GStreamerPlayer's Viewer throws an exception when you try to view "movie controls" category in Viewer
http://tracker.squeakland.org/browse/SQ-671
=============== Diff against GStreamer-UI-JMM.18 ===============
Item was changed:
----- Method: GStreamerDisplayMorph>>totalFrames (in category 'accessing') -----
totalFrames
"Answer the total number of frames in this movie."
+ gstreamer isNil
+ ifTrue: [^ 0].
+ gstreamer hasVideo ifFalse: [^ 0].
-
^gstreamer totalFrames!
Item was changed:
----- Method: GStreamerDisplayMorph>>totalSeconds (in category 'accessing') -----
totalSeconds
"Answer the total number of seconds in this movie."
| seconds |
+ gstreamer isNil
+ ifTrue: [^ 0].
gstreamer hasVideo ifFalse: [^ 0].
seconds := gstreamer pipeline queryDurationInSecondsOrNilAsFloat.
seconds ifNil: [^0.0].
^seconds!