1974 droppedFile:aFilename in:aComponent |
1975 droppedFile:aFilename in:aComponent |
1975 "ignored here - only sent by textView components, sometimes" |
1976 "ignored here - only sent by textView components, sometimes" |
1976 ! ! |
1977 ! ! |
1977 |
1978 |
1978 !ApplicationModel methodsFor:'easy bindings'! |
1979 !ApplicationModel methodsFor:'easy bindings'! |
1979 |
|
1980 aspectAdaptorFor: aSymbolOrCollectionOfThose on:aValueModel |
|
1981 |
|
1982 | adaptor path | |
|
1983 |
|
1984 path := aSymbolOrCollectionOfThose isSymbol |
|
1985 ifTrue:[Array with: aSymbolOrCollectionOfThose] |
|
1986 ifFalse:[aSymbolOrCollectionOfThose]. |
|
1987 adaptor := aValueModel. |
|
1988 path do: |
|
1989 [:selector| |
|
1990 adaptor := (AspectAdaptor forAspect: selector) |
|
1991 subjectChannel: adaptor]. |
|
1992 ^adaptor |
|
1993 |
|
1994 "Created: / 09-03-2010 / 08:44:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1995 "Modified: / 17-03-2010 / 19:28:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1996 ! |
|
1997 |
|
1998 aspectAt:aSymbol ifAbsentPut:aBlock |
|
1999 |
|
2000 builder ifNil:[self createBuilder]. |
|
2001 ^builder bindings at: aSymbol ifAbsentPut: aBlock |
|
2002 |
|
2003 "Created: / 09-03-2010 / 08:37:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2004 ! |
|
2005 |
1980 |
2006 registerInterestIn:aValueModel using:aSelectorOrArray |
1981 registerInterestIn:aValueModel using:aSelectorOrArray |
2007 "Register interest in a change in aValueModel using information in aSelectorOrArray. |
1982 "Register interest in a change in aValueModel using information in aSelectorOrArray. |
2008 aSelectorOrArray can be one of three things: |
1983 aSelectorOrArray can be one of three things: |
2009 |
1984 |
3965 to open another window on document as found in the pathName argument. |
3940 to open another window on document as found in the pathName argument. |
3966 Left blank (i.e. ignored) here, but can be redefined to open up another application |
3941 Left blank (i.e. ignored) here, but can be redefined to open up another application |
3967 editor window if supported." |
3942 editor window if supported." |
3968 ! |
3943 ! |
3969 |
3944 |
|
3945 processShortcut:aKeyEvent |
|
3946 "a shortcut key event as forwarded from the keyboardProcessor - if there is the |
|
3947 shortcut key defined, process the shortcut and return true - otherwise false." |
|
3948 |
|
3949 ^false |
|
3950 |
|
3951 "Created: / 23-07-2013 / 18:10:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
3952 ! |
|
3953 |
3970 requestForWindowClose |
3954 requestForWindowClose |
3971 "the applicationWindow wants to know, if a close |
3955 "the applicationWindow wants to know, if a close |
3972 is ok. Return false if not." |
3956 is ok. Return false if not." |
3973 |
3957 |
3974 |w k| |
3958 |w k| |
4008 ! ! |
3992 ! ! |
4009 |
3993 |
4010 !ApplicationModel class methodsFor:'documentation'! |
3994 !ApplicationModel class methodsFor:'documentation'! |
4011 |
3995 |
4012 version |
3996 version |
4013 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.341 2013-07-08 09:49:38 cg Exp $' |
3997 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.342 2013-07-23 17:53:23 vrany Exp $' |
4014 ! |
3998 ! |
4015 |
3999 |
4016 version_CVS |
4000 version_CVS |
4017 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.341 2013-07-08 09:49:38 cg Exp $' |
4001 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.342 2013-07-23 17:53:23 vrany Exp $' |
4018 ! ! |
4002 ! ! |
4019 |
4003 |
4020 |
4004 |
4021 ApplicationModel initialize! |
4005 ApplicationModel initialize! |