equal
deleted
inserted
replaced
258 #mouseKeyColorMode |
258 #mouseKeyColorMode |
259 'Switches between left and right mouse button color.' |
259 'Switches between left and right mouse button color.' |
260 |
260 |
261 #previewView |
261 #previewView |
262 'Shows preview of the image.' |
262 'Shows preview of the image.' |
|
263 |
|
264 #settingsGridMagnification |
|
265 'Opens a dialog to change the grid magnification of the edit view.' |
263 |
266 |
264 ) |
267 ) |
265 ! ! |
268 ! ! |
266 |
269 |
267 !ImageEditor class methodsFor:'image specs'! |
270 !ImageEditor class methodsFor:'image specs'! |
414 |
417 |
415 #(#FullSpec |
418 #(#FullSpec |
416 #window: |
419 #window: |
417 #(#WindowSpec |
420 #(#WindowSpec |
418 #name: 'Image Editor' |
421 #name: 'Image Editor' |
419 #layout: #(#LayoutFrame 167 0 330 0 666 0 675 0) |
422 #layout: #(#LayoutFrame 145 0 147 0 644 0 492 0) |
420 #label: 'Image Editor' |
423 #label: 'Image Editor' |
421 #min: #(#Point 400 320) |
424 #min: #(#Point 400 320) |
422 #max: #(#Point 1152 900) |
425 #max: #(#Point 1152 900) |
423 #bounds: #(#Rectangle 167 330 667 676) |
426 #bounds: #(#Rectangle 145 147 645 493) |
424 #menu: #menu |
427 #menu: #menu |
425 #usePreferredExtent: false |
428 #usePreferredExtent: false |
426 ) |
429 ) |
427 #component: |
430 #component: |
428 #(#SpecCollection |
431 #(#SpecCollection |
477 #miniScrollerHorizontal: true |
480 #miniScrollerHorizontal: true |
478 #miniScrollerVertical: true |
481 #miniScrollerVertical: true |
479 #level: -1 |
482 #level: -1 |
480 #dataList: #listOfColors |
483 #dataList: #listOfColors |
481 #has3Dsepartors: true |
484 #has3Dsepartors: true |
|
485 #has3Dseparators: true |
482 #verticalSpacing: 1 |
486 #verticalSpacing: 1 |
483 #columns: |
487 #columns: |
484 #( |
488 #( |
485 #(#DataSetColumnSpec |
489 #(#DataSetColumnSpec |
486 #rendererType: #rowSelector |
490 #rendererType: #rowSelector |
569 #name: 'magnificationInputField' |
573 #name: 'magnificationInputField' |
570 #layout: #(#LayoutFrame -57 1 -22 1 -26 1 0 1) |
574 #layout: #(#LayoutFrame -57 1 -22 1 -26 1 0 1) |
571 #activeHelpKey: #magnificationNumber |
575 #activeHelpKey: #magnificationNumber |
572 #enableChannel: #imageIsLoaded |
576 #enableChannel: #imageIsLoaded |
573 #model: #valueOfMagnification |
577 #model: #valueOfMagnification |
574 #type: #number |
578 #type: #numberInRange |
575 #acceptOnReturn: false |
579 #acceptOnReturn: false |
576 #acceptOnTab: false |
580 #acceptOnTab: false |
577 #numChars: 2 |
581 #numChars: 2 |
|
582 #minValue: 1 |
|
583 #maxValue: 99 |
578 ) |
584 ) |
579 ) |
585 ) |
580 ) |
586 ) |
581 #level: -1 |
587 #level: -1 |
582 ) |
588 ) |
852 #translateLabel: true |
858 #translateLabel: true |
853 #submenu: |
859 #submenu: |
854 #(#Menu |
860 #(#Menu |
855 |
861 |
856 #( |
862 #( |
|
863 #(#MenuItem |
|
864 #label: 'Grid Magnification...' |
|
865 #translateLabel: true |
|
866 #value: #doChangeGridMagnification |
|
867 #activeHelpKey: #settingsGridMagnification |
|
868 ) |
|
869 #(#MenuItem |
|
870 #label: '-' |
|
871 ) |
857 #(#MenuItem |
872 #(#MenuItem |
858 #label: 'Fonts' |
873 #label: 'Fonts' |
859 #translateLabel: true |
874 #translateLabel: true |
860 #submenuChannel: #menuFont |
875 #submenuChannel: #menuFont |
861 ) |
876 ) |
1399 ! |
1414 ! |
1400 |
1415 |
1401 magnification: aValue |
1416 magnification: aValue |
1402 "sets the magnification of the image" |
1417 "sets the magnification of the image" |
1403 |
1418 |
1404 |magnification| |
1419 |magnification| |
1405 magnification := aValue asInteger asPoint. |
1420 magnification := (aValue ? 1) asPoint. |
1406 (magnification = self imageEditView magnification or: [magnification = (0@0)]) ifTrue: [^nil]. |
1421 (magnification = self imageEditView magnification or: [magnification = (0@0)]) ifTrue: [^nil]. |
1407 self imageEditView magnification: magnification |
1422 self imageEditView magnification: magnification |
1408 ! |
1423 ! |
1409 |
1424 |
1410 selectedColorIndex |
1425 selectedColorIndex |
1452 |
1467 |
1453 doBrowseClass |
1468 doBrowseClass |
1454 "opens a System Browser on the resourceClass and the resourceSelector" |
1469 "opens a System Browser on the resourceClass and the resourceSelector" |
1455 |
1470 |
1456 SystemBrowser openInClass: (Smalltalk at: self imageEditView resourceClass ifAbsent: [^nil]) class selector: self imageEditView resourceSelector |
1471 SystemBrowser openInClass: (Smalltalk at: self imageEditView resourceClass ifAbsent: [^nil]) class selector: self imageEditView resourceSelector |
|
1472 ! |
|
1473 |
|
1474 doChangeGridMagnification |
|
1475 "change grid magnification" |
|
1476 |
|
1477 self imageEditView changeGridMagnification |
1457 ! |
1478 ! |
1458 |
1479 |
1459 doFlipHorizontal |
1480 doFlipHorizontal |
1460 "flips horizontally current image" |
1481 "flips horizontally current image" |
1461 |
1482 |