equal
deleted
inserted
replaced
4345 !FileApplicationNoteBook::ImageViewApplication methodsFor:'change & update'! |
4345 !FileApplicationNoteBook::ImageViewApplication methodsFor:'change & update'! |
4346 |
4346 |
4347 update:something with:aParameter from:changedObject |
4347 update:something with:aParameter from:changedObject |
4348 changedObject == self fitSize ifTrue:[ |
4348 changedObject == self fitSize ifTrue:[ |
4349 changedObject value ifTrue:[ |
4349 changedObject value ifTrue:[ |
|
4350 "/ imageView adjust:#smoothFitBig. |
4350 imageView adjust:#fitBig. |
4351 imageView adjust:#fitBig. |
4351 ] ifFalse:[ |
4352 ] ifFalse:[ |
4352 imageView adjust:nil. |
4353 imageView adjust:nil. |
4353 ]. |
4354 ]. |
4354 ^ self |
4355 ^ self |
4355 ]. |
4356 ]. |
4356 super update:something with:aParameter from:changedObject |
4357 super update:something with:aParameter from:changedObject |
|
4358 |
|
4359 "Modified: / 11-09-2017 / 09:06:40 / cg" |
4357 ! ! |
4360 ! ! |
4358 |
4361 |
4359 !FileApplicationNoteBook::ImageViewApplication methodsFor:'event handling'! |
4362 !FileApplicationNoteBook::ImageViewApplication methodsFor:'event handling'! |
4360 |
4363 |
4361 processEvent:anEvent |
4364 processEvent:anEvent |
4380 key == $q ifTrue:[ |
4383 key == $q ifTrue:[ |
4381 self doClose. |
4384 self doClose. |
4382 ^ true. |
4385 ^ true. |
4383 ]. |
4386 ]. |
4384 ((key == #Escape) or:[key == $x]) ifTrue:[ |
4387 ((key == #Escape) or:[key == $x]) ifTrue:[ |
4385 self topView collapse. |
4388 self topView perform:#collapse ifNotUnderstood:[]. |
4386 ^ true. |
4389 ^ true. |
4387 ]. |
4390 ]. |
4388 ((key == #Cut) |
4391 ((key == #Cut) |
4389 or:[(key == #BackSpace) |
4392 or:[(key == #BackSpace) |
4390 or:[key == #Delete]]) ifTrue:[ |
4393 or:[key == #Delete]]) ifTrue:[ |
4393 ]. |
4396 ]. |
4394 ^ false |
4397 ^ false |
4395 ] |
4398 ] |
4396 ]. |
4399 ]. |
4397 ^ false |
4400 ^ false |
|
4401 |
|
4402 "Modified: / 10-09-2017 / 16:52:40 / cg" |
4398 ! ! |
4403 ! ! |
4399 |
4404 |
4400 !FileApplicationNoteBook::ImageViewApplication methodsFor:'initialization & release'! |
4405 !FileApplicationNoteBook::ImageViewApplication methodsFor:'initialization & release'! |
4401 |
4406 |
4402 postBuildImageView:aWidget |
4407 postBuildImageView:aWidget |