equal
deleted
inserted
replaced
431 |
431 |
432 appl := self listOfApplications copy do:[:eachApp | eachApp doClose.]. |
432 appl := self listOfApplications copy do:[:eachApp | eachApp doClose.]. |
433 ! |
433 ! |
434 |
434 |
435 doCloseApplication |
435 doCloseApplication |
436 |
436 self selectedApplication doClose. |
437 | appl | |
|
438 |
|
439 appl := self listOfApplications at:tabMenuIndex. |
|
440 appl doClose. |
|
441 ! |
437 ! |
442 |
438 |
443 doRenameTab |
439 doRenameTab |
444 | newLabel | |
440 | newLabel | |
445 |
441 |
447 newLabel size == 0 ifTrue:[^ self ]. |
443 newLabel size == 0 ifTrue:[^ self ]. |
448 self privateTabList at:tabMenuIndex put:newLabel |
444 self privateTabList at:tabMenuIndex put:newLabel |
449 ! |
445 ! |
450 |
446 |
451 doSelectInList |
447 doSelectInList |
452 |
448 | fileName| |
453 | appl fileName| |
449 |
454 |
450 fileName := self selectedApplication fileName. |
455 appl := self listOfApplications at:tabMenuIndex. |
|
456 fileName := appl fileName. |
|
457 fileName notNil ifTrue:[ |
451 fileName notNil ifTrue:[ |
458 self gotoFile:fileName. |
452 self gotoFile:fileName. |
459 ]. |
453 ]. |
460 ! |
454 ! |
461 |
455 |
943 |menu| |
937 |menu| |
944 |
938 |
945 menu := Menu new fromLiteralArrayEncoding:self class tabMenu. |
939 menu := Menu new fromLiteralArrayEncoding:self class tabMenu. |
946 menu ifNil:[ ^ nil ]. |
940 menu ifNil:[ ^ nil ]. |
947 tabMenuIndex := aTab. |
941 tabMenuIndex := aTab. |
|
942 "/ self selectedApplication fileName |
948 menu receiver:self. |
943 menu receiver:self. |
949 ^ menu |
944 ^ menu |
950 ! ! |
945 ! ! |
951 |
946 |
952 !FileApplicationNoteBook methodsFor:'queries'! |
947 !FileApplicationNoteBook methodsFor:'queries'! |
985 ] |
980 ] |
986 ! |
981 ! |
987 |
982 |
988 selectedApplication |
983 selectedApplication |
989 |
984 |
990 | canvas | |
985 ^ self listOfApplications at:tabMenuIndex. |
991 |
986 |
992 canvas := self canvasHolder value. |
987 "/ | canvas | |
993 canvas isNil ifTrue:[ ^ nil]. |
988 "/ |
994 ^ canvas application. |
989 "/ canvas := self canvasHolder value. |
|
990 "/ canvas isNil ifTrue:[ ^ nil]. |
|
991 "/ ^ canvas application. |
995 ! ! |
992 ! ! |
996 |
993 |
997 !FileApplicationNoteBook methodsFor:'startup & release'! |
994 !FileApplicationNoteBook methodsFor:'startup & release'! |
998 |
995 |
999 closeRequest |
996 closeRequest |
4977 ! ! |
4974 ! ! |
4978 |
4975 |
4979 !FileApplicationNoteBook class methodsFor:'documentation'! |
4976 !FileApplicationNoteBook class methodsFor:'documentation'! |
4980 |
4977 |
4981 version |
4978 version |
4982 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.123 2003-10-27 09:29:32 penk Exp $' |
4979 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.124 2003-10-27 18:49:31 cg Exp $' |
4983 ! ! |
4980 ! ! |