Added a global 'stdwin is active' flag.

This commit is contained in:
Jack Jansen 1995-01-26 16:40:10 +00:00
parent fdbc79e779
commit 3d7f6bd3b7
1 changed files with 3 additions and 0 deletions

View File

@ -104,6 +104,8 @@ static type_lock StdwinLock; /* Lock held when interpreter not locked */
static object *StdwinError; /* Exception stdwin.error */ static object *StdwinError; /* Exception stdwin.error */
int StdwinIsActive; /* True as soon as stdwin imported */
/* Window and menu object types declared here because of forward references */ /* Window and menu object types declared here because of forward references */
typedef struct { typedef struct {
@ -2631,6 +2633,7 @@ initstdwin()
} }
#endif #endif
inited = 1; inited = 1;
StdwinIsActive = 1;
} }
m = initmodule("stdwin", stdwin_methods); m = initmodule("stdwin", stdwin_methods);
d = getmoduledict(m); d = getmoduledict(m);