void TCalcDisplay::write( opstream& os )
{
    TView::write( os );
    os.writeBytes(&status, sizeof(status));
    os.writeString(number);
    os.writeByte(sign);
    os.writeByte(operate);
    os.writeBytes(&operand, sizeof(operand));
}

void THiddenConstField::write( opstream& os )
{
	os << stringLength;
	os << necessary;

	os.writeBytes( &devOptions, sizeof( devOptions ) );

	os << infoLevel;
	if( infoLevel > 0 )
		os << infoIndex;

	os.writeString( text );
}

void TDataBase::write( opstream& os )
{
	dataCache->flush();
	os.flush();
	indexCache->flush();
	os.flush();

	TSortedCollection::write( os );
	os.flush();
	os << indexFile;
	os.flush();
	os << dataFile;
	os.flush();
}

void TCadMultiLine::Streamer::Write(opstream& out) const
{
  WriteBaseObject((TCadObjectBase*) this, out);
  out.writeWord32(GetObject()->points.size());
  TPoints::size_type i=0;
  while (i<GetObject()->points.size()) out << GetObject()->points[i++];
}

void TProgressBar::write( opstream& os )
{
    TView::write( os );
    os.writeString( bar );
    os << backChar << total << progress << dispLen <<
          curPercent << curWidth << numOffset << charValue;
}

void
TDocument::Streamer::Write(opstream& os) const
{
  TDocument* o = GetObject();

  while (!o->CanClose())   // can't permit cancel here
    ;
  os << o->OpenMode;
  _USES_CONVERSION;
  os.fwriteString(_W2A(o->DocPath));
  os.fwriteString(_W2A(o->Title));
  os << o->Template;       // templates already streamed, must be so if static
  os << o->ParentDoc;
  os << o->ViewList;       // each view streams out the next
  os << TView::NextViewId; // insure that this static var gets set on reload
}

void TInputLine::write( opstream& os )
{
    TView::write( os );
    os << maxLen << curPos << firstPos
       << selStart << selEnd;
    os.writeString( data);
}

void TWindow::write( opstream& os )
{
    TGroup::write( os );
    os << flags << zoomRect << number << palette;
    os << frame;
    os.writeString( title );
}

//
// writes the TEditFile to the passed opstream
//
void
TEditFile::Streamer::Write(opstream& os) const
{
  TEditFile* o = GetObject();
  WriteBaseObject((TEditSearch*)o, os);
  _USES_CONVERSION;
  os.fwriteString(o->FileName ? _W2A(o->FileName) : "");
}

void TermSet::Streamer::Write(opstream& out) const
{
  out.writeWord32(GetObject()->size());
  iterator i = GetObject()->begin(), e = GetObject()->end();
  while (i!=e) {
    out << *i;
    i++;
  }
}

void tvFormStaticText::write( opstream& os )
{
    tvFormObj::write( os );
    tvFormText::write( os );

    os << (int)0x0100;

    os.writeString( text );
}

void TMenuView::writeMenu( opstream& os, TMenu *menu )
{
    uchar tok = 0xFF;
    for( TMenuItem *item = menu->items; item != 0; item = item->next )
        {
        os << tok;
        os.writeString( item->name );
        os << item->command << (int)(item->disabled)
           << item->keyCode << item->helpCtx;
        if( item->name != 0 )
            {
            if( item->command == 0 )
                writeMenu( os, item->subMenu );
            else
                os.writeString( item->param );
            }
        }
    tok = 0;
    os << tok;
}

void TStatusLine::writeItems( opstream& os, TStatusItem *ts )
{
    int count = 0;
    for( TStatusItem *t = ts; t != 0; t = t->next )
        count++;
    os << count;
    for( ; ts != 0; ts = ts->next )
        {
        os.writeString( ts->text );
        os << ts->keyCode << ts->command;
        }
}

void TOutline::writeNode(TNode *node, opstream &op) {
   uchar more = (node->next != 0) ? 1 : 0;
   uchar expand = (node->expanded) ? 1 : 0;

   op << more;
   op << expand;
   op << getNumChildren(node);
   op.writeString(node->text);

   if (node->childList != 0)
      writeNode(node->childList, op);

   if (node->next != 0)
      writeNode(node->next, op);
}

void recordReference( char *topic, opstream& s )
{
    int i;
    TReference *ref;
    TFixUp *fixUp;

    initRefTable();
    ref = refTable->getReference(topic);
    if (ref->resolved == True)
        s << ref->val.value;
    else
        {
        fixUp =  new TFixUp;
        fixUp->pos = s.tellp();
        i = -1;
        s << i;
        fixUp->next = ref->val.fixUpList;
        ref->val.fixUpList = fixUp;
        }
}

void TFileViewer::write(opstream& os)
{
    TScroller::write(os);
    os.writeString(fileName);
}

void TStaticText::write( opstream& os )
{
    TView::write( os );
    os.writeString( text );
}

void DynamicText::write( opstream& os )
{
  TView::write( os );
  os.writeString( text );
  os << (int)rightJustify;
}

void TButton::write( opstream& os )
{
    TView::write( os );
    os.writeString( title );
    os << command << flags << (int)amDefault;
}

void TDataBase::writeItem( void *obj, opstream& os )
{
	os.writeBytes( obj, sizeof( RecordDescriptor ) );
}