equal
deleted
inserted
replaced
525 |
525 |
526 #(#FullSpec |
526 #(#FullSpec |
527 #'window:' |
527 #'window:' |
528 #(#WindowSpec |
528 #(#WindowSpec |
529 #'name:' 'Image Editor' |
529 #'name:' 'Image Editor' |
530 #'layout:' #(#LayoutFrame 189 0 240 0 688 0 585 0) |
530 #'layout:' #(#LayoutFrame 305 0 397 0 804 0 742 0) |
531 #'label:' 'Image Editor' |
531 #'label:' 'Image Editor' |
532 #'min:' #(#Point 400 320) |
532 #'min:' #(#Point 400 320) |
533 #'max:' #(#Point 1152 900) |
533 #'max:' #(#Point 1152 900) |
534 #'bounds:' #(#Rectangle 189 240 689 586) |
534 #'bounds:' #(#Rectangle 305 397 805 743) |
535 #'menu:' #menu |
535 #'menu:' #menu |
536 #'usePreferredExtent:' false |
536 #'usePreferredExtent:' false |
537 ) |
537 ) |
538 #'component:' |
538 #'component:' |
539 #(#SpecCollection |
539 #(#SpecCollection |
975 resourceSelectorInputField |
975 resourceSelectorInputField |
976 |
976 |
977 ^builder componentAt: #resourceSelectorInputField |
977 ^builder componentAt: #resourceSelectorInputField |
978 ! ! |
978 ! ! |
979 |
979 |
980 !ImageEditor methodsFor:'accessing menu'! |
|
981 |
|
982 menu |
|
983 "this window spec was automatically generated by the UI Builder" |
|
984 |
|
985 ^ self class menu |
|
986 |
|
987 |
|
988 ! |
|
989 |
|
990 menuToolbar |
|
991 "this window spec was automatically generated by the UI Builder" |
|
992 |
|
993 ^ self class menuToolbar |
|
994 |
|
995 |
|
996 ! ! |
|
997 |
|
998 !ImageEditor methodsFor:'aspects'! |
980 !ImageEditor methodsFor:'aspects'! |
999 |
981 |
1000 imageIsLoaded |
982 imageIsLoaded |
1001 |
983 |
1002 |holder| |
984 |holder| |
1325 ! |
1307 ! |
1326 |
1308 |
1327 open |
1309 open |
1328 |
1310 |
1329 super open. |
1311 super open. |
|
1312 |
1330 self imageEditView masterApplication: self. |
1313 self imageEditView masterApplication: self. |
|
1314 |
1331 self resourceClassInputField entryCompletionBlock: |
1315 self resourceClassInputField entryCompletionBlock: |
1332 [:value| |
1316 [:value| |
1333 |what| |
1317 |what| |
1334 what := Smalltalk classnameCompletion: value withoutSpaces. |
1318 what := Smalltalk classnameCompletion: value withoutSpaces. |
1335 self resourceClassInputField contents:what first. |
1319 self resourceClassInputField contents:what first. |
1336 (what at:2) size ~~ 1 ifTrue:[ |
1320 (what at:2) size ~~ 1 ifTrue:[ |
1337 Display beep |
1321 Display beep |
1338 ] |
1322 ] |
1339 ]. |
1323 ] |
1340 self resourceSelectorInputField entryCompletionBlock: |
|
1341 [:value| |
|
1342 |cls what| |
|
1343 (cls := Smalltalk at: self resourceClassInputField contents asSymbol) notNil |
|
1344 ifTrue: |
|
1345 [ |
|
1346 |firstPossibleSelector resourceType| |
|
1347 what := cls class selectorCompletion: value withoutSpaces. |
|
1348 firstPossibleSelector := what first asSymbol. |
|
1349 (cls class selectors includes: firstPossibleSelector) |
|
1350 ifTrue: |
|
1351 [ |
|
1352 resourceType := (cls class compiledMethodAt: firstPossibleSelector) resourceType. |
|
1353 ((resourceType = #image) or: [resourceType = #fileImage]) |
|
1354 ifTrue: |
|
1355 [ |
|
1356 self resourceSelectorInputField contents:firstPossibleSelector. |
|
1357 ]. |
|
1358 ]. |
|
1359 (what at:2) size ~~ 1 ifTrue:[ |
|
1360 Display beep |
|
1361 ] |
|
1362 ] |
|
1363 ]. |
|
1364 ! |
1324 ! |
1365 |
1325 |
1366 postOpenWith:aBuilder |
1326 postOpenWith:aBuilder |
1367 |
1327 |
1368 self imageEditView masterApplication: self. |
1328 self imageEditView masterApplication: self. |