equal
deleted
inserted
replaced
1347 ! |
1347 ! |
1348 |
1348 |
1349 isClipBoard |
1349 isClipBoard |
1350 "returns true if current view is clip board |
1350 "returns true if current view is clip board |
1351 " |
1351 " |
1352 majorSelection notNil ifTrue:[ |
1352 majorSelection ~~ 0 ifTrue:[ |
1353 ^ (self majorList at:majorSelection) startsWith:'Clip' |
1353 ^ (self majorList at:majorSelection) startsWith:'Clip' |
1354 ]. |
1354 ]. |
1355 ^ false |
1355 ^ false |
1356 ! |
1356 ! |
1357 |
1357 |
1358 isUserBoard |
1358 isUserBoard |
1359 "returns true if current view is clip board |
1359 "returns true if current view is clip board |
1360 " |
1360 " |
1361 majorSelection notNil ifTrue:[ |
1361 majorSelection ~~ 0 ifTrue:[ |
1362 ^ (self majorList at:majorSelection) startsWith:'User' |
1362 ^ (self majorList at:majorSelection) startsWith:'User' |
1363 ]. |
1363 ]. |
1364 ^ false |
1364 ^ false |
1365 ! ! |
1365 ! ! |
1366 |
1366 |
1367 !UISelectionPanel methodsFor:'selection'! |
1367 !UISelectionPanel methodsFor:'selection'! |
1368 |
1368 |
1369 majorSelection |
1369 majorSelection |
1370 ^ majorSelection |
1370 ^ majorSelection ? 0 |
1371 ! |
1371 ! |
1372 |
1372 |
1373 majorSelection:aSelection |
1373 majorSelection:aSelection |
1374 |spec channel| |
1374 |spec channel| |
1375 |
1375 |
1376 (majorSelection == aSelection or:[aSelection isNil]) ifTrue:[ |
1376 (majorSelection == aSelection or:[aSelection == 0]) ifTrue:[ |
1377 ^ self |
1377 ^ self |
1378 ]. |
1378 ]. |
1379 (self builder componentAt:#gallery) builder:nil. |
1379 (self builder componentAt:#gallery) builder:nil. |
1380 majorSelection := aSelection. |
1380 majorSelection := aSelection. |
1381 spec := ((self class specifications) at:aSelection) last. |
1381 spec := ((self class specifications) at:aSelection) last. |
1416 ] ifFalse:[ |
1416 ] ifFalse:[ |
1417 super closeRequest. |
1417 super closeRequest. |
1418 ] |
1418 ] |
1419 |
1419 |
1420 "Modified: 28.7.1997 / 09:44:40 / cg" |
1420 "Modified: 28.7.1997 / 09:44:40 / cg" |
|
1421 ! |
|
1422 |
|
1423 initialize |
|
1424 super initialize. |
|
1425 majorSelection := 0. |
1421 ! |
1426 ! |
1422 |
1427 |
1423 openWindow |
1428 openWindow |
1424 "setup default values |
1429 "setup default values |
1425 " |
1430 " |