|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 63090 (0xf672) Types: TextFile Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦09e486a96⟧ └─⟦this⟧
widget ApplicationShell { flag { mapped } resources { } children { widget XmMainWindow { flag { mapped } resources { } children { widget XmRowColumn { flag { mapped menu_bar } resources { } children { widget XmRowColumn { flag { mapped menu_pulldown } resources { } children { widget XmPushButton { flag { mapped } resources { activateCallback = Show (root.FileOpen); } } Open widget XmSeparator { flag { mapped } resources { } } XmSeparator0 widget XmPushButton { flag { mapped } resources { activateCallback = QuitActivate (); } } Quit } } FilePD widget XmCascadeButton { flag { mapped } resources { subMenuId = parent.FilePD } } File widget XmRowColumn { flag { mapped menu_pulldown } resources { } children { widget XmToggleButton { flag { mapped } resources { valueChangedCallback = local on;\ if (on) {\ Hide (root.Memory);\ on = !on;\ } else {\ Show (root.Memory);\ on = !on;\ } } } Memory } } ToolsPD widget XmCascadeButton { flag { mapped } resources { subMenuId = parent.ToolsPD } } Tools } } MB widget XmBulletinBoard { flag { mapped } resources { } children { widget XmFrame { flag { mapped } resources { } children { widget XmForm { flag { mapped } resources { } children { widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = A get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } A } } Register_2 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = F get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } F } } Register_3 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = B get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } B } } Register_4 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = C get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } C } } Register_5 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = D get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } D } } Register_6 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = E get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } E } } Register_7 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = H get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } H } } Register_8 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = L get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } L } } Register_9 } } Form } } Frame widget XmFrame { flag { mapped } resources { } children { widget XmForm { flag { mapped } resources { } children { widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = AP get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } AP } } Register_2 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = FP get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } FP } } Register_3 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = BP get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } BP } } Register_4 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = CP get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } CP } } Register_5 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = DP get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } DP } } Register_6 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = EP get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } EP } } Register_7 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = HP get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } HP } } Register_8 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = LP get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } LP } } Register_9 } } Form } } Frame_2 widget XmFrame { flag { mapped } resources { } children { widget XmForm { flag { mapped } resources { } children { widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = IX get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } IX } } Register_2 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = IIX set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } IIX } } Register_3 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = IY get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } IY } } Register_4 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = IIY set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } IIY } } Register_5 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = SP get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } SP } } Register_6 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = ISP set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } ISP } } Register_7 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = PC get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } PC } } Register_8 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = Instruction set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } Instruction } } Register_9 widget XmForm { flag { mapped } resources { } children { widget XmText { flag { mapped } activevalue { name = I get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } T widget XmLabel { flag { mapped } resources { bottomWidget = parent.T } } I } } Register_10 } } Form } } Frame_3 widget XmFrame { flag { mapped } resources { } children { widget XmForm { flag { mapped } resources { } children { widget XmForm { flag { mapped } resources { } children { widget XmForm { flag { mapped } resources { } children { widget XmPushButton { flag { mapped } resources { activateCallback = DeleteAllActivate (); } } "Delete All" widget XmPushButton { flag { mapped } resources { activateCallback = AddActivate (); } } Add widget XmPushButton { flag { mapped } resources { activateCallback = DeleteActivate (); } } Delete } } XmForm2 widget XmText { flag { mapped } activevalue { name = Break get = strcpy ($, String (TextGetString (self) )); } resources { } } XmText0_2 widget XmForm { flag { mapped } resources { } children { widget XmList { flag { mapped } resources { } } List } } FormList } } Break } } Form } } BreakFrame widget XmText { flag { mapped } activevalue { name = Message set = TextSetString (self, $); } resources { } } XmText0 widget XmFrame { flag { mapped } resources { } children { widget XmForm { flag { mapped } resources { } children { widget XmPushButton { flag { mapped } resources { activateCallback = ResetActivate (); } } Reset widget XmPushButton { flag { mapped } resources { activateCallback = GoActivate (); } } Go widget XmPushButton { flag { mapped } resources { activateCallback = StepActivate (); } } Step widget XmPushButton { flag { mapped } resources { activateCallback = StopActivate (); } } Stop } } XmForm4 } } XmFrame1 } } BB } } MW widget TopLevelShell { flag { popup } resources { } children { widget XmForm { flag { mapped } resources { } children { widget XmLabel { flag { mapped } resources { } } Label widget XmText { flag { mapped } activevalue { name = FileName get = strcpy ($, String (TextGetString (self) )); } resources { activateCallback = OpenOkActivate (); } } XmText0 widget XmPushButton { flag { mapped } resources { activateCallback = OpenOkActivate (); } } OK widget XmPushButton { flag { mapped } resources { activateCallback = Hide (parent.parent); } } Cancel } } Form } } FileOpen widget TopLevelShell { flag { popup } resources { } children { widget XmBulletinBoard { flag { mapped } resources { } children { widget XmPushButton { flag { mapped } resources { activateCallback = MemoryAddActivate (); } } Add widget XmPushButton { flag { mapped } resources { activateCallback = MemoryDeleteActivate (); } } Delete widget XmPushButton { flag { mapped } resources { activateCallback = MemoryDeleteAllActivate (); } } "Delete All" widget XmText { flag { mapped } activevalue { name = MemoryInput get = strcpy ($, String (TextGetString (self) )); } resources { } } MemoryInput widget XmText { flag { mapped } activevalue { name = MemoryDump get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { valueChangedCallback = ValueChangedCallback (); } } MemoryDump widget XmLabel { flag { mapped } resources { } } Label widget XmForm { flag { mapped } resources { } children { widget XmList { flag { mapped } resources { } } MemoryList } } FormList widget XmText { flag { mapped } activevalue { name = MemoryDumpAscii get = strcpy ($, String (TextGetString (self) )); set = TextSetString (self, $); } resources { } } MemoryDumpAscii widget XmLabel { flag { mapped } resources { } } Label_2 } } BB } } Memory } } Z80