--- a/FBrowser.st Thu Feb 16 17:33:26 1995 +0100
+++ b/FBrowser.st Fri Feb 17 14:25:23 1995 +0100
@@ -28,7 +28,7 @@
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.27 1995-02-16 16:33:23 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.28 1995-02-17 13:24:58 claus Exp $
'!
!FileBrowser class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.27 1995-02-16 16:33:23 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.28 1995-02-17 13:24:58 claus Exp $
"
!
@@ -1623,6 +1623,8 @@
!
update:what with:someArgument from:changedObject
+ realized ifFalse:[^ self].
+
(what == #aboutToExit) ifTrue:[
"system wants to shut down this
- if text was modified, pop up, and ask user and save if requested."
@@ -1633,11 +1635,11 @@
self realize
].
self raise.
- "
- mhmh: I dont like this - need some way to tell windowGroup to handle
- all pending exposures ...
- "
- self withAllSubViewsDo:[:view | view redraw].
+"/ "
+"/ mhmh: I dont like this - need some way to tell windowGroup to handle
+"/ all pending exposures ...
+"/ "
+"/ self withAllSubViewsDo:[:view | view redraw].
self ask:(resources at:'FileBrowser:\\contents has not been saved.\\Save before exiting ?') withCRs
yesButton:'save'
--- a/FileBrowser.st Thu Feb 16 17:33:26 1995 +0100
+++ b/FileBrowser.st Fri Feb 17 14:25:23 1995 +0100
@@ -28,7 +28,7 @@
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.27 1995-02-16 16:33:23 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.28 1995-02-17 13:24:58 claus Exp $
'!
!FileBrowser class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.27 1995-02-16 16:33:23 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.28 1995-02-17 13:24:58 claus Exp $
"
!
@@ -1623,6 +1623,8 @@
!
update:what with:someArgument from:changedObject
+ realized ifFalse:[^ self].
+
(what == #aboutToExit) ifTrue:[
"system wants to shut down this
- if text was modified, pop up, and ask user and save if requested."
@@ -1633,11 +1635,11 @@
self realize
].
self raise.
- "
- mhmh: I dont like this - need some way to tell windowGroup to handle
- all pending exposures ...
- "
- self withAllSubViewsDo:[:view | view redraw].
+"/ "
+"/ mhmh: I dont like this - need some way to tell windowGroup to handle
+"/ all pending exposures ...
+"/ "
+"/ self withAllSubViewsDo:[:view | view redraw].
self ask:(resources at:'FileBrowser:\\contents has not been saved.\\Save before exiting ?') withCRs
yesButton:'save'
--- a/Make.proto Thu Feb 16 17:33:26 1995 +0100
+++ b/Make.proto Fri Feb 17 14:25:23 1995 +0100
@@ -19,22 +19,19 @@
STCOPT=$(LIBTOOL_STCOPT)
STCLOCALOPT=-Pprogramming-tools $(COMMONSYMBOLS)
-# SBROWSER_OBJ=SBrowser.$(O)
-# SBROWSER_OBJ=SBrowser_1.$(O) SBrowser_2.$(O)
-
all:: abbrev.stc objs classList.stc $(OBJTARGET)
objs:: \
$(SBROWSER_OBJ) \
- CBrowser.$(O) \
+ $(CBROWSER_OBJ) \
DebugView.$(O) \
Launcher.$(O) \
InspView.$(O) \
DictInspV.$(O) \
ConInspV.$(O) \
OCInspView.$(O) \
- FBrowser.$(O) \
- DirBrwsr.$(O)
+ $(FBROWSER_OBJ) \
+ $(DIRBROWSER_OBJ)
classList.stc: Make.proto
$(MAKE) genClassList
@@ -55,12 +52,17 @@
CLEAN:
@-rm SBrowser_1.st SBrowser_2.st
+#
+# forget that - its EXPERIMENTAL
+#
SBrowser_1.st: SBrowser.st
sed '/class category menu/,$$d' < SBrowser.st > SBrowser_1.st
SBrowser_2.st: SBrowser.st
echo "!SystemBrowser methodsFor:'class category menu'!" > SBrowser_2.st
sed '1,/class category menu/d' < SBrowser.st >> SBrowser_2.st
+
+
tar:
(cd $(TOP); tar cvf DISTRIB/libtool.tar \
libtool/.dir.info \
@@ -75,8 +77,6 @@
SBrowser.$(O):
$(MAKE) $(BIG_STFILE_RULE) BIG_FILE=SBrowser
-
-
#
# next thing I'll build into stc is a makedepend feature for this ...
#
@@ -90,14 +90,13 @@
ConInspV.$(O): ConInspV.st $(I)/InspView.H $(VIEW)
OCInspView.$(O): OCInspView.st $(I)/InspView.H $(VIEW)
-# FormEdtView.$(O): FormEdtView.st $(VIEW)
-
DebugView.$(O): DebugView.st $(STDSYSVIEW)
Launcher.$(O): Launcher.st $(STDSYSVIEW)
ProjectV.$(O): ProjectV.st $(STDSYSVIEW)
SBrowser.$(O): SBrowser.st $(STDSYSVIEW)
-SBrowser_1.$(O): SBrowser_1.st $(STDSYSVIEW)
-SBrowser_2.$(O): SBrowser_2.st $(STDSYSVIEW)
CBrowser.$(O): CBrowser.st $(STDSYSVIEW)
FBrowser.$(O): FBrowser.st $(STDSYSVIEW)
DirBrwsr.$(O): DirBrwsr.st $(STDSYSVIEW)
+
+SBrowser_1.$(O): SBrowser_1.st $(STDSYSVIEW)
+SBrowser_2.$(O): SBrowser_2.st $(STDSYSVIEW)