[Pkg] The Trunk: Tools-kfr.604.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Apr 26 13:44:39 UTC 2015
Karl Ramberg uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-kfr.604.mcz
==================== Summary ====================
Name: Tools-kfr.604
Author: kfr
Time: 26 April 2015, 3:44:10.399 pm
UUID: d08794a4-73df-9b44-be43-17abba050abf
Ancestors: Tools-kfr.603
A little more tweaking to ArchiveViewer
=============== Diff against Tools-kfr.603 ===============
Item was changed:
----- Method: ArchiveViewer>>createButtonBar (in category 'initialization') -----
createButtonBar
+ | bar |
+
- | bar font |
- font := Preferences standardButtonFont.
bar := AlignmentMorph newRow.
bar
color: self defaultBackgroundColor;
rubberBandCells: false;
vResizing: #shrinkWrap;
cellInset: 6 @ 0.
#(#('new archive' #canCreateNewArchive #createNewArchive 'Create a new, empty archive and discard this one') #('load archive' #canOpenNewArchive #openNewArchive 'Open another archive and discard this one') #('save archive' #canSaveArchive #saveArchive 'Save this archive under a new name') #('extract all' #canExtractAll #extractAll 'Extract all this archive''s members into a directory') #('add file' #canAddMember #addMember 'Add a file to this archive') #('add clipboard' #canAddMember #addMemberFromClipboard 'Add the contents of the clipboard as a new file') #('add dir ' #canAddMember #addDirectory 'Add the entire contents of a directory, with all of its subdirectories') #('extract member' #canExtractMember #extractMember 'Extract the selected member to a file') #('delete member' #canDeleteMember #deleteMember 'Remove the selected member from this archive') #('rename member' #canRenameMember #renameMember 'Rename the selected member') #('view all' #canViewAllContents #changeViewAllContents 'Toggle the view of all the selected member''s contents'))
do:
[:arr |
| button |
(button := PluggableButtonMorph
on: self
getState: arr second
action: arr third)
+ vResizing: #spaceFill;
- vResizing: #rigid;
hResizing: #spaceFill;
onColor: self buttonOnColor offColor: self buttonOffColor;
label: arr first withCRs;
setBalloonText: arr fourth.
bar addMorphBack: button].
^bar!
Item was changed:
----- Method: ArchiveViewer>>createWindow (in category 'initialization') -----
createWindow
| list heading font text buttonBar |
font := (TextStyle named: #DefaultFixedTextStyle)
ifNotNil: [ :ts | ts fontArray first].
buttonBar := self createButtonBar.
self addMorph: buttonBar
+ fullFrame: (LayoutFrame fractions: (0 at 0 corner: 1.0 at 0.0) offsets: (0 at 0 corner: 0 at 34)).
- fullFrame: (LayoutFrame fractions: (0 at 0 corner: 1.0 at 0.0) offsets: (0 at 0 corner: 0 at 44)).
self minimumExtent: (buttonBar fullBounds width + 20) @ 230.
self extent: self minimumExtent.
heading := self createListHeadingUsingFont: font.
self addMorph: heading
+ fullFrame: (LayoutFrame fractions: (0 at 0 corner: 1.0 at 0.0) offsets: (0 at 34 corner: 0 at 44)).
- fullFrame: (LayoutFrame fractions: (0 at 0 corner: 1.0 at 0.0) offsets: (0 at 44 corner: 0 at 60)).
(list := PluggableListMorph new)
on: self list: #memberList
selected: #memberIndex changeSelected: #memberIndex:
menu: #memberMenu:shifted: keystroke: nil.
list color: self defaultBackgroundColor.
font ifNotNil: [list font: font].
self addMorph: list
+ fullFrame: (LayoutFrame fractions: (0 at 0 corner: 1.0 at 0.8) offsets: (0 at 50 corner: 0 at 0)).
- fullFrame: (LayoutFrame fractions: (0 at 0 corner: 1.0 at 0.8) offsets: (0 at 60 corner: 0 at 0)).
text := PluggableTextMorph on: self
text: #contents accept: nil
readSelection: nil menu: nil.
self addMorph: text
frame: (0 at 0.8 corner: 1.0 at 1.0).
text lock.
self setLabel: 'Ned''s Zip Viewer'!
More information about the Packages
mailing list