]> git.saurik.com Git - wxWidgets.git/blame - src/common/resource.cpp
projects / wxWidgets.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Reverted change to DrawLine so it doesn't draw the last point (sorry!)
[wxWidgets.git] / src / common / resource.cpp
CommitLineData
aad5220b
JS		 1/////////////////////////////////////////////////////////////////////////////
2// Name: resource.cpp
3// Purpose: Resource system
4// Author: Julian Smart
5// Modified by:
6// Created: 04/01/98
7// RCS-ID: $Id$
8// Copyright: (c) Julian Smart and Markus Holzem
e17e4f28 9// Licence: wxWindows license
aad5220b
JS		 10/////////////////////////////////////////////////////////////////////////////
11
12#ifdef __GNUG__
13#pragma implementation "resource.h"
14#endif
15
16// For compilers that support precompilation, includes "wx.h".
17#include "wx/wxprec.h"
18
19#ifdef __BORLANDC__
20#pragma hdrstop
21#endif
22
fd3f686c
VZ		 23#if wxUSE_WX_RESOURCES
24
3f4a0c5b 25#ifdef __VISUALC__
fd3f686c
VZ		 26 #pragma warning(disable:4706) // assignment within conditional expression
27#endif // VC++
28
aad5220b
JS		 29#ifndef WX_PRECOMP
30#include "wx/defs.h"
31#include "wx/setup.h"
32#include "wx/list.h"
33#include "wx/hash.h"
34#include "wx/gdicmn.h"
35#include "wx/utils.h"
36#include "wx/types.h"
37#include "wx/menu.h"
38#include "wx/stattext.h"
39#include "wx/button.h"
6de97a3b 40#include "wx/bmpbuttn.h"
aad5220b
JS		 41#include "wx/radiobox.h"
42#include "wx/listbox.h"
43#include "wx/choice.h"
44#include "wx/checkbox.h"
75ed1d15 45#include "wx/settings.h"
aad5220b 46#include "wx/slider.h"
0c589ad0 47#include "wx/icon.h"
aad5220b 48#include "wx/statbox.h"
2432b92d 49#include "wx/statbmp.h"
aad5220b 50#include "wx/gauge.h"
aad5220b 51#include "wx/textctrl.h"
6de97a3b
RR		 52#include "wx/msgdlg.h"
53#include "wx/intl.h"
aad5220b
JS		 54#endif
55
c693edf3 56#if wxUSE_RADIOBTN
06cfab17
RR		 57#include "wx/radiobut.h"
58#endif
59
47d67540 60#if wxUSE_SCROLLBAR
aad5220b
JS		 61#include "wx/scrolbar.h"
62#endif
63
47d67540 64#if wxUSE_COMBOBOX
aad5220b
JS		 65#include "wx/combobox.h"
66#endif
67
68#include "wx/validate.h"
69
e17e4f28
VZ		 70#include "wx/log.h"
71
aad5220b
JS		 72#include <ctype.h>
73#include <math.h>
74#include <stdlib.h>
75#include <string.h>
76
77#include "wx/resource.h"
78#include "wx/string.h"
79#include "wx/wxexpr.h"
80
03f38c58 81#include "wx/settings.h"
37e2cb08 82#include "wx/stream.h"
03f38c58 83
aad5220b 84// Forward (private) declarations
fd71308f
JS		 85bool wxResourceInterpretResources(wxResourceTable& table, wxExprDatabase& db);
86wxItemResource *wxResourceInterpretDialog(wxResourceTable& table, wxExpr *expr, bool isPanel = FALSE);
87wxItemResource *wxResourceInterpretControl(wxResourceTable& table, wxExpr *expr);
88wxItemResource *wxResourceInterpretMenu(wxResourceTable& table, wxExpr *expr);
89wxItemResource *wxResourceInterpretMenuBar(wxResourceTable& table, wxExpr *expr);
90wxItemResource *wxResourceInterpretString(wxResourceTable& table, wxExpr *expr);
91wxItemResource *wxResourceInterpretBitmap(wxResourceTable& table, wxExpr *expr);
92wxItemResource *wxResourceInterpretIcon(wxResourceTable& table, wxExpr *expr);
aad5220b 93// Interpret list expression
fd71308f 94wxFont wxResourceInterpretFontSpec(wxExpr *expr);
aad5220b 95
fd71308f 96bool wxResourceReadOneResource(FILE *fd, wxExprDatabase& db, bool *eof, wxResourceTable *table = (wxResourceTable *) NULL);
37e2cb08 97bool wxResourceReadOneResource(wxInputStream *fd, wxExprDatabase& db, bool *eof, wxResourceTable *table) ;
fd71308f 98bool wxResourceParseIncludeFile(const wxString& f, wxResourceTable *table = (wxResourceTable *) NULL);
aad5220b 99
c67daf87 100wxResourceTable *wxDefaultResourceTable = (wxResourceTable *) NULL;
aad5220b 101
3b1de9c2
JS		 102char *wxResourceBuffer = (char *) NULL;
103long wxResourceBufferSize = 0;
104long wxResourceBufferCount = 0;
105int wxResourceStringPtr = 0;
aad5220b 106
fd71308f 107void wxInitializeResourceSystem()
aad5220b
JS		 108{
109 wxDefaultResourceTable = new wxResourceTable;
110}
111
fd71308f 112void wxCleanUpResourceSystem()
aad5220b
JS		 113{
114 delete wxDefaultResourceTable;
4c444f19
JS		 115 if (wxResourceBuffer)
116 delete[] wxResourceBuffer;
aad5220b
JS		 117}
118
e17e4f28 119void wxLogWarning(char *msg)
aad5220b 120{
1a5a8367 121 wxMessageBox(msg, _("Warning"), wxOK);
aad5220b
JS		 122}
123
aad5220b
JS		 124IMPLEMENT_DYNAMIC_CLASS(wxItemResource, wxObject)
125IMPLEMENT_DYNAMIC_CLASS(wxResourceTable, wxHashTable)
aad5220b 126
fd71308f 127wxItemResource::wxItemResource()
aad5220b 128{
fd71308f
JS		 129 m_itemType = "";
130 m_title = "";
131 m_name = "";
132 m_windowStyle = 0;
133 m_x = m_y = m_width = m_height = 0;
134 m_value1 = m_value2 = m_value3 = m_value5 = 0;
135 m_value4 = "";
aad5220b 136 m_windowId = 0;
fd71308f 137 m_exStyle = 0;
aad5220b
JS		 138}
139
fd71308f 140wxItemResource::~wxItemResource()
aad5220b 141{
fd71308f 142 wxNode *node = m_children.First();
aad5220b
JS		 143 while (node)
144 {
145 wxItemResource *item = (wxItemResource *)node->Data();
146 delete item;
147 delete node;
fd71308f 148 node = m_children.First();
aad5220b
JS		 149 }
150}
151
aad5220b
JS		 152/*
153 * Resource table
154 */
8bbe427f 155
fd71308f 156wxResourceTable::wxResourceTable():wxHashTable(wxKEY_STRING), identifiers(wxKEY_STRING)
aad5220b
JS		 157{
158}
159
fd71308f 160wxResourceTable::~wxResourceTable()
aad5220b
JS		 161{
162 ClearTable();
163}
8bbe427f 164
aad5220b
JS		 165wxItemResource *wxResourceTable::FindResource(const wxString& name) const
166{
d44f866a 167 wxItemResource *item = (wxItemResource *)Get(WXSTRINGCAST name);
aad5220b
JS		 168 return item;
169}
170
171void wxResourceTable::AddResource(wxItemResource *item)
172{
fd71308f 173 wxString name = item->GetName();
223d09f6 174 if (name == wxT(""))
aad5220b 175 name = item->GetTitle();
223d09f6
KB		 176 if (name == wxT(""))
177 name = wxT("no name");
aad5220b
JS		 178
179 // Delete existing resource, if any.
180 Delete(name);
181
182 Put(name, item);
183}
184
185bool wxResourceTable::DeleteResource(const wxString& name)
186{
d44f866a 187 wxItemResource *item = (wxItemResource *)Delete(WXSTRINGCAST name);
aad5220b
JS		 188 if (item)
189 {
190 // See if any resource has this as its child; if so, delete from
191 // parent's child list.
192 BeginFind();
c67daf87 193 wxNode *node = (wxNode *) NULL;
913df6f2
DW		 194 node = Next();
195 while (node != NULL)
aad5220b
JS		 196 {
197 wxItemResource *parent = (wxItemResource *)node->Data();
198 if (parent->GetChildren().Member(item))
199 {
200 parent->GetChildren().DeleteObject(item);
201 break;
202 }
913df6f2 203 node = Next();
aad5220b 204 }
8bbe427f 205
aad5220b
JS		 206 delete item;
207 return TRUE;
208 }
209 else
210 return FALSE;
211}
212
37e2cb08
SC		 213bool wxResourceTable::ParseResourceFile( wxInputStream *is )
214{
215 wxExprDatabase db;
216 int len = is->StreamSize() ;
217
218 bool eof = FALSE;
219 while ( is->TellI() + 10 < len) // it's a hack because the streams dont support EOF
220 {
221 wxResourceReadOneResource(is, db, &eof, this) ;
222 }
223 return wxResourceInterpretResources(*this, db);
224}
225
fd71308f 226bool wxResourceTable::ParseResourceFile(const wxString& filename)
aad5220b 227{
fd71308f 228 wxExprDatabase db;
aad5220b 229
7c74e7fe
SC		 230#ifdef __WXMAC__
231 FILE *fd = fopen(wxUnix2MacFilename(filename.fn_str()), "r");
232#else
d44f866a 233 FILE *fd = fopen(filename.fn_str(), "r");
7c74e7fe 234#endif
aad5220b
JS		 235 if (!fd)
236 return FALSE;
237 bool eof = FALSE;
238 while (wxResourceReadOneResource(fd, db, &eof, this) && !eof)
239 {
240 // Loop
241 }
242 fclose(fd);
243 return wxResourceInterpretResources(*this, db);
244}
245
fd71308f 246bool wxResourceTable::ParseResourceData(const wxString& data)
aad5220b 247{
fd71308f
JS		 248 wxExprDatabase db;
249 if (!db.ReadFromString(data))
aad5220b 250 {
e17e4f28 251 wxLogWarning(_("Ill-formed resource file syntax."));
aad5220b
JS		 252 return FALSE;
253 }
254
255 return wxResourceInterpretResources(*this, db);
256}
257
fd71308f 258bool wxResourceTable::RegisterResourceBitmapData(const wxString& name, char bits[], int width, int height)
aad5220b
JS		 259{
260 // Register pre-loaded bitmap data
261 wxItemResource *item = new wxItemResource;
262// item->SetType(wxRESOURCE_TYPE_XBM_DATA);
223d09f6 263 item->SetType(wxT("wxXBMData"));
aad5220b
JS		 264 item->SetName(name);
265 item->SetValue1((long)bits);
266 item->SetValue2((long)width);
267 item->SetValue3((long)height);
268 AddResource(item);
269 return TRUE;
270}
271
fd71308f 272bool wxResourceTable::RegisterResourceBitmapData(const wxString& name, char **data)
aad5220b
JS		 273{
274 // Register pre-loaded bitmap data
275 wxItemResource *item = new wxItemResource;
276// item->SetType(wxRESOURCE_TYPE_XPM_DATA);
223d09f6 277 item->SetType(wxT("wxXPMData"));
aad5220b
JS		 278 item->SetName(name);
279 item->SetValue1((long)data);
280 AddResource(item);
281 return TRUE;
282}
283
fd71308f 284bool wxResourceTable::SaveResource(const wxString& WXUNUSED(filename))
aad5220b
JS		 285{
286 return FALSE;
287}
288
fd71308f 289void wxResourceTable::ClearTable()
aad5220b
JS		 290{
291 BeginFind();
292 wxNode *node = Next();
293 while (node)
294 {
295 wxNode *next = Next();
296 wxItemResource *item = (wxItemResource *)node->Data();
297 delete item;
298 delete node;
299 node = next;
300 }
301}
302
fd71308f 303wxControl *wxResourceTable::CreateItem(wxWindow *parent, const wxItemResource* childResource, const wxItemResource* parentResource) const
aad5220b
JS		 304{
305 int id = childResource->GetId();
306 if ( id == 0 )
e17e4f28 307 id = -1;
aad5220b 308
fd71308f
JS		 309 bool dlgUnits = ((parentResource->GetResourceStyle() & wxRESOURCE_DIALOG_UNITS) != 0);
310
c67daf87 311 wxControl *control = (wxControl *) NULL;
aad5220b 312 wxString itemType(childResource->GetType());
fd71308f
JS		 313
314 wxPoint pos;
315 wxSize size;
316 if (dlgUnits)
317 {
318 pos = parent->ConvertDialogToPixels(wxPoint(childResource->GetX(), childResource->GetY()));
319 size = parent->ConvertDialogToPixels(wxSize(childResource->GetWidth(), childResource->GetHeight()));
320 }
321 else
322 {
323 pos = wxPoint(childResource->GetX(), childResource->GetY());
324 size = wxSize(childResource->GetWidth(), childResource->GetHeight());
325 }
326
223d09f6 327 if (itemType == wxString(wxT("wxButton")) || itemType == wxString(wxT("wxBitmapButton")))
aad5220b 328 {
223d09f6 329 if (childResource->GetValue4() != wxT(""))
aad5220b
JS		 330 {
331 // Bitmap button
fd71308f
JS		 332 wxBitmap bitmap = childResource->GetBitmap();
333 if (!bitmap.Ok())
aad5220b
JS		 334 {
335 bitmap = wxResourceCreateBitmap(childResource->GetValue4(), (wxResourceTable *)this);
fd71308f 336 ((wxItemResource*) childResource)->SetBitmap(bitmap);
aad5220b 337 }
fd71308f
JS		 338 if (bitmap.Ok())
339 control = new wxBitmapButton(parent, id, bitmap, pos, size,
d0b223a1 340 childResource->GetStyle() | wxBU_AUTODRAW, wxDefaultValidator, childResource->GetName());
aad5220b
JS		 341 }
342 else
343 // Normal, text button
fd71308f 344 control = new wxButton(parent, id, childResource->GetTitle(), pos, size,
aad5220b
JS		 345 childResource->GetStyle(), wxDefaultValidator, childResource->GetName());
346 }
223d09f6
KB		 347 else if (itemType == wxString(wxT("wxMessage")) || itemType == wxString(wxT("wxStaticText")) ||
348 itemType == wxString(wxT("wxStaticBitmap")))
aad5220b 349 {
d1e418ea 350 if (childResource->GetValue4() != wxT("") || itemType == wxString(wxT("wxStaticBitmap")) )
aad5220b
JS		 351 {
352 // Bitmap message
fd71308f
JS		 353 wxBitmap bitmap = childResource->GetBitmap();
354 if (!bitmap.Ok())
aad5220b
JS		 355 {
356 bitmap = wxResourceCreateBitmap(childResource->GetValue4(), (wxResourceTable *)this);
fd71308f 357 ((wxItemResource*) childResource)->SetBitmap(bitmap);
aad5220b 358 }
47d67540 359#if wxUSE_BITMAP_MESSAGE
d1e418ea
JS		 360#ifdef __WXMSW__
361 // Use a default bitmap
362 if (!bitmap.Ok())
363 bitmap.LoadFile("cross_bmp", wxBITMAP_TYPE_BMP_RESOURCE);
364#endif
365
fd71308f
JS		 366 if (bitmap.Ok())
367 control = new wxStaticBitmap(parent, id, bitmap, pos, size,
aad5220b
JS		 368 childResource->GetStyle(), childResource->GetName());
369#endif
370 }
371 else
372 {
fd71308f 373 control = new wxStaticText(parent, id, childResource->GetTitle(), pos, size,
aad5220b
JS		 374 childResource->GetStyle(), childResource->GetName());
375 }
376 }
223d09f6 377 else if (itemType == wxString(wxT("wxText")) || itemType == wxString(wxT("wxTextCtrl")) || itemType == wxString(wxT("wxMultiText")))
aad5220b 378 {
fd71308f 379 control = new wxTextCtrl(parent, id, childResource->GetValue4(), pos, size,
aad5220b
JS		 380 childResource->GetStyle(), wxDefaultValidator, childResource->GetName());
381 }
223d09f6 382 else if (itemType == wxString(wxT("wxCheckBox")))
aad5220b 383 {
fd71308f 384 control = new wxCheckBox(parent, id, childResource->GetTitle(), pos, size,
aad5220b
JS		 385 childResource->GetStyle(), wxDefaultValidator, childResource->GetName());
386
387 ((wxCheckBox *)control)->SetValue((childResource->GetValue1() != 0));
388 }
47d67540 389#if wxUSE_GAUGE
223d09f6 390 else if (itemType == wxString(wxT("wxGauge")))
aad5220b 391 {
fd71308f 392 control = new wxGauge(parent, id, (int)childResource->GetValue2(), pos, size,
aad5220b
JS		 393 childResource->GetStyle(), wxDefaultValidator, childResource->GetName());
394
395 ((wxGauge *)control)->SetValue((int)childResource->GetValue1());
396 }
397#endif
c693edf3 398#if wxUSE_RADIOBTN
223d09f6 399 else if (itemType == wxString(wxT("wxRadioButton")))
aad5220b
JS		 400 {
401 control = new wxRadioButton(parent, id, childResource->GetTitle(), // (int)childResource->GetValue1(),
fd71308f 402 pos, size,
aad5220b
JS		 403 childResource->GetStyle(), wxDefaultValidator, childResource->GetName());
404 }
405#endif
47d67540 406#if wxUSE_SCROLLBAR
223d09f6 407 else if (itemType == wxString(wxT("wxScrollBar")))
aad5220b 408 {
fd71308f 409 control = new wxScrollBar(parent, id, pos, size,
aad5220b 410 childResource->GetStyle(), wxDefaultValidator, childResource->GetName());
f5419957 411/*
aad5220b
JS		 412 ((wxScrollBar *)control)->SetValue((int)childResource->GetValue1());
413 ((wxScrollBar *)control)->SetPageSize((int)childResource->GetValue2());
414 ((wxScrollBar *)control)->SetObjectLength((int)childResource->GetValue3());
415 ((wxScrollBar *)control)->SetViewLength((int)(long)childResource->GetValue5());
f5419957
JS		 416*/
417 ((wxScrollBar *)control)->SetScrollbar((int)childResource->GetValue1(),(int)childResource->GetValue2(),
418 (int)childResource->GetValue3(),(int)(long)childResource->GetValue5(),FALSE);
419
aad5220b
JS		 420 }
421#endif
223d09f6 422 else if (itemType == wxString(wxT("wxSlider")))
aad5220b
JS		 423 {
424 control = new wxSlider(parent, id, (int)childResource->GetValue1(),
fd71308f 425 (int)childResource->GetValue2(), (int)childResource->GetValue3(), pos, size,
aad5220b
JS		 426 childResource->GetStyle(), wxDefaultValidator, childResource->GetName());
427 }
223d09f6 428 else if (itemType == wxString(wxT("wxGroupBox")) || itemType == wxString(wxT("wxStaticBox")))
aad5220b 429 {
fd71308f 430 control = new wxStaticBox(parent, id, childResource->GetTitle(), pos, size,
aad5220b
JS		 431 childResource->GetStyle(), childResource->GetName());
432 }
223d09f6 433 else if (itemType == wxString(wxT("wxListBox")))
aad5220b 434 {
fd71308f 435 wxStringList& stringList = childResource->GetStringValues();
c67daf87 436 wxString *strings = (wxString *) NULL;
aad5220b 437 int noStrings = 0;
fd71308f 438 if (stringList.Number() > 0)
aad5220b 439 {
fd71308f 440 noStrings = stringList.Number();
aad5220b 441 strings = new wxString[noStrings];
fd71308f 442 wxNode *node = stringList.First();
aad5220b
JS		 443 int i = 0;
444 while (node)
445 {
d44f866a 446 strings[i] = (wxChar *)node->Data();
aad5220b
JS		 447 i ++;
448 node = node->Next();
449 }
450 }
fd71308f 451 control = new wxListBox(parent, id, pos, size,
aad5220b
JS		 452 noStrings, strings, childResource->GetStyle(), wxDefaultValidator, childResource->GetName());
453
454 if (strings)
455 delete[] strings;
456 }
223d09f6 457 else if (itemType == wxString(wxT("wxChoice")))
aad5220b 458 {
fd71308f 459 wxStringList& stringList = childResource->GetStringValues();
c67daf87 460 wxString *strings = (wxString *) NULL;
aad5220b 461 int noStrings = 0;
fd71308f 462 if (stringList.Number() > 0)
aad5220b 463 {
fd71308f 464 noStrings = stringList.Number();
aad5220b 465 strings = new wxString[noStrings];
fd71308f 466 wxNode *node = stringList.First();
aad5220b
JS		 467 int i = 0;
468 while (node)
469 {
d44f866a 470 strings[i] = (wxChar *)node->Data();
aad5220b
JS		 471 i ++;
472 node = node->Next();
473 }
474 }
fd71308f 475 control = new wxChoice(parent, id, pos, size,
aad5220b
JS		 476 noStrings, strings, childResource->GetStyle(), wxDefaultValidator, childResource->GetName());
477
478 if (strings)
479 delete[] strings;
480 }
47d67540 481#if wxUSE_COMBOBOX
223d09f6 482 else if (itemType == wxString(wxT("wxComboBox")))
aad5220b 483 {
fd71308f 484 wxStringList& stringList = childResource->GetStringValues();
c67daf87 485 wxString *strings = (wxString *) NULL;
aad5220b 486 int noStrings = 0;
fd71308f 487 if (stringList.Number() > 0)
aad5220b 488 {
fd71308f 489 noStrings = stringList.Number();
aad5220b 490 strings = new wxString[noStrings];
fd71308f 491 wxNode *node = stringList.First();
aad5220b
JS		 492 int i = 0;
493 while (node)
494 {
d44f866a 495 strings[i] = (wxChar *)node->Data();
aad5220b
JS		 496 i ++;
497 node = node->Next();
498 }
499 }
fd71308f 500 control = new wxComboBox(parent, id, childResource->GetValue4(), pos, size,
aad5220b
JS		 501 noStrings, strings, childResource->GetStyle(), wxDefaultValidator, childResource->GetName());
502
503 if (strings)
504 delete[] strings;
505 }
506#endif
223d09f6 507 else if (itemType == wxString(wxT("wxRadioBox")))
aad5220b 508 {
fd71308f 509 wxStringList& stringList = childResource->GetStringValues();
c67daf87 510 wxString *strings = (wxString *) NULL;
aad5220b 511 int noStrings = 0;
fd71308f 512 if (stringList.Number() > 0)
aad5220b 513 {
fd71308f 514 noStrings = stringList.Number();
aad5220b 515 strings = new wxString[noStrings];
fd71308f 516 wxNode *node = stringList.First();
aad5220b
JS		 517 int i = 0;
518 while (node)
519 {
d44f866a 520 strings[i] = (wxChar *)node->Data();
aad5220b
JS		 521 i ++;
522 node = node->Next();
523 }
524 }
fd71308f 525 control = new wxRadioBox(parent, (wxWindowID) id, wxString(childResource->GetTitle()), pos, size,
aad5220b 526 noStrings, strings, (int)childResource->GetValue1(), childResource->GetStyle(), wxDefaultValidator,
e17e4f28 527 childResource->GetName());
aad5220b
JS		 528
529 if (strings)
530 delete[] strings;
531 }
532
fd71308f
JS		 533 if ((parentResource->GetResourceStyle() & wxRESOURCE_USE_DEFAULTS) != 0)
534 {
535 // Don't set font; will be inherited from parent.
536 }
537 else
538 {
539 if (control && childResource->GetFont().Ok())
30b5fc11 540 {
fd71308f 541 control->SetFont(childResource->GetFont());
30b5fc11
JS		 542
543#ifdef __WXMSW__
544 // Force the layout algorithm since the size changes the layout
545 if (control->IsKindOf(CLASSINFO(wxRadioBox)))
546 {
30b5fc11
JS		 547 control->SetSize(-1, -1, -1, -1, wxSIZE_AUTO_WIDTH|wxSIZE_AUTO_HEIGHT);
548 }
549#endif
550 }
fd71308f 551 }
aad5220b
JS		 552 return control;
553}
554
555/*
556 * Interpret database as a series of resources
557 */
558
fd71308f 559bool wxResourceInterpretResources(wxResourceTable& table, wxExprDatabase& db)
aad5220b
JS		 560{
561 wxNode *node = db.First();
562 while (node)
563 {
fd71308f 564 wxExpr *clause = (wxExpr *)node->Data();
e17e4f28 565 wxString functor(clause->Functor());
aad5220b 566
c67daf87 567 wxItemResource *item = (wxItemResource *) NULL;
223d09f6 568 if (functor == wxT("dialog"))
aad5220b 569 item = wxResourceInterpretDialog(table, clause);
223d09f6 570 else if (functor == wxT("panel"))
aad5220b 571 item = wxResourceInterpretDialog(table, clause, TRUE);
223d09f6 572 else if (functor == wxT("menubar"))
aad5220b 573 item = wxResourceInterpretMenuBar(table, clause);
223d09f6 574 else if (functor == wxT("menu"))
aad5220b 575 item = wxResourceInterpretMenu(table, clause);
223d09f6 576 else if (functor == wxT("string"))
aad5220b 577 item = wxResourceInterpretString(table, clause);
223d09f6 578 else if (functor == wxT("bitmap"))
aad5220b 579 item = wxResourceInterpretBitmap(table, clause);
223d09f6 580 else if (functor == wxT("icon"))
aad5220b
JS		 581 item = wxResourceInterpretIcon(table, clause);
582
583 if (item)
584 {
585 // Remove any existing resource of same name
223d09f6 586 if (item->GetName() != wxT(""))
aad5220b
JS		 587 table.DeleteResource(item->GetName());
588 table.AddResource(item);
589 }
590 node = node->Next();
591 }
592 return TRUE;
593}
594
d44f866a 595static const wxChar *g_ValidControlClasses[] =
09914df7 596{
223d09f6
KB		 597 wxT("wxButton"),
598 wxT("wxBitmapButton"),
599 wxT("wxMessage"),
600 wxT("wxStaticText"),
601 wxT("wxStaticBitmap"),
602 wxT("wxText"),
603 wxT("wxTextCtrl"),
604 wxT("wxMultiText"),
605 wxT("wxListBox"),
606 wxT("wxRadioBox"),
607 wxT("wxRadioButton"),
608 wxT("wxCheckBox"),
609 wxT("wxBitmapCheckBox"),
610 wxT("wxGroupBox"),
611 wxT("wxStaticBox"),
612 wxT("wxSlider"),
613 wxT("wxGauge"),
614 wxT("wxScrollBar"),
615 wxT("wxChoice"),
616 wxT("wxComboBox")
09914df7 617};
aad5220b
JS		 618
619static bool wxIsValidControlClass(const wxString& c)
620{
09914df7 621 for ( size_t i = 0; i < WXSIZEOF(g_ValidControlClasses); i++ )
e17e4f28
VZ		 622 {
623 if ( c == g_ValidControlClasses[i] )
624 return TRUE;
625 }
626 return FALSE;
aad5220b
JS		 627}
628
fd71308f 629wxItemResource *wxResourceInterpretDialog(wxResourceTable& table, wxExpr *expr, bool isPanel)
aad5220b
JS		 630{
631 wxItemResource *dialogItem = new wxItemResource;
632 if (isPanel)
223d09f6 633 dialogItem->SetType(wxT("wxPanel"));
aad5220b 634 else
223d09f6
KB		 635 dialogItem->SetType(wxT("wxDialog"));
636 wxString style = wxT("");
637 wxString title = wxT("");
638 wxString name = wxT("");
639 wxString backColourHex = wxT("");
640 wxString labelColourHex = wxT("");
641 wxString buttonColourHex = wxT("");
aad5220b
JS		 642
643 long windowStyle = wxDEFAULT_DIALOG_STYLE;
644 if (isPanel)
645 windowStyle = 0;
8bbe427f 646
aad5220b
JS		 647 int x = 0; int y = 0; int width = -1; int height = -1;
648 int isModal = 0;
fd71308f
JS		 649 wxExpr *labelFontExpr = (wxExpr *) NULL;
650 wxExpr *buttonFontExpr = (wxExpr *) NULL;
651 wxExpr *fontExpr = (wxExpr *) NULL;
223d09f6
KB		 652 expr->GetAttributeValue(wxT("style"), style);
653 expr->GetAttributeValue(wxT("name"), name);
654 expr->GetAttributeValue(wxT("title"), title);
655 expr->GetAttributeValue(wxT("x"), x);
656 expr->GetAttributeValue(wxT("y"), y);
657 expr->GetAttributeValue(wxT("width"), width);
658 expr->GetAttributeValue(wxT("height"), height);
659 expr->GetAttributeValue(wxT("modal"), isModal);
660 expr->GetAttributeValue(wxT("label_font"), &labelFontExpr);
661 expr->GetAttributeValue(wxT("button_font"), &buttonFontExpr);
662 expr->GetAttributeValue(wxT("font"), &fontExpr);
663 expr->GetAttributeValue(wxT("background_colour"), backColourHex);
664 expr->GetAttributeValue(wxT("label_colour"), labelColourHex);
665 expr->GetAttributeValue(wxT("button_colour"), buttonColourHex);
fd71308f
JS		 666
667 int useDialogUnits = 0;
223d09f6 668 expr->GetAttributeValue(wxT("use_dialog_units"), useDialogUnits);
fd71308f
JS		 669 if (useDialogUnits != 0)
670 dialogItem->SetResourceStyle(dialogItem->GetResourceStyle() | wxRESOURCE_DIALOG_UNITS);
671
672 int useDefaults = 0;
223d09f6 673 expr->GetAttributeValue(wxT("use_system_defaults"), useDefaults);
fd71308f
JS		 674 if (useDefaults != 0)
675 dialogItem->SetResourceStyle(dialogItem->GetResourceStyle() | wxRESOURCE_USE_DEFAULTS);
aad5220b 676
13111b2a 677 int id = 0;
223d09f6 678 expr->GetAttributeValue(wxT("id"), id);
bbcdf8bc
JS		 679 dialogItem->SetId(id);
680
223d09f6 681 if (style != wxT(""))
aad5220b
JS		 682 {
683 windowStyle = wxParseWindowStyle(style);
684 }
685 dialogItem->SetStyle(windowStyle);
686 dialogItem->SetValue1(isModal);
794005c0
JS		 687 if (windowStyle & wxDIALOG_MODAL) // Uses style in wxWin 2
688 dialogItem->SetValue1(TRUE);
689
fd71308f
JS		 690 dialogItem->SetName(name);
691 dialogItem->SetTitle(title);
aad5220b 692 dialogItem->SetSize(x, y, width, height);
8bbe427f 693
223d09f6 694 if (backColourHex != wxT(""))
aad5220b
JS		 695 {
696 int r = 0;
697 int g = 0;
698 int b = 0;
fd71308f
JS		 699 r = wxHexToDec(backColourHex.Mid(0, 2));
700 g = wxHexToDec(backColourHex.Mid(2, 2));
701 b = wxHexToDec(backColourHex.Mid(4, 2));
702 dialogItem->SetBackgroundColour(wxColour((unsigned char)r,(unsigned char)g,(unsigned char)b));
aad5220b 703 }
223d09f6 704 if (labelColourHex != wxT(""))
aad5220b
JS		 705 {
706 int r = 0;
707 int g = 0;
708 int b = 0;
fd71308f
JS		 709 r = wxHexToDec(labelColourHex.Mid(0, 2));
710 g = wxHexToDec(labelColourHex.Mid(2, 2));
711 b = wxHexToDec(labelColourHex.Mid(4, 2));
712 dialogItem->SetLabelColour(wxColour((unsigned char)r,(unsigned char)g,(unsigned char)b));
aad5220b 713 }
223d09f6 714 if (buttonColourHex != wxT(""))
aad5220b
JS		 715 {
716 int r = 0;
717 int g = 0;
718 int b = 0;
fd71308f
JS		 719 r = wxHexToDec(buttonColourHex.Mid(0, 2));
720 g = wxHexToDec(buttonColourHex.Mid(2, 2));
721 b = wxHexToDec(buttonColourHex.Mid(4, 2));
722 dialogItem->SetButtonColour(wxColour((unsigned char)r,(unsigned char)g,(unsigned char)b));
aad5220b
JS		 723 }
724
aad5220b
JS		 725 if (fontExpr)
726 dialogItem->SetFont(wxResourceInterpretFontSpec(fontExpr));
727 else if (buttonFontExpr)
728 dialogItem->SetFont(wxResourceInterpretFontSpec(buttonFontExpr));
729 else if (labelFontExpr)
730 dialogItem->SetFont(wxResourceInterpretFontSpec(labelFontExpr));
731
732 // Now parse all controls
fd71308f 733 wxExpr *controlExpr = expr->GetFirst();
aad5220b
JS		 734 while (controlExpr)
735 {
736 if (controlExpr->Number() == 3)
737 {
738 wxString controlKeyword(controlExpr->Nth(1)->StringValue());
223d09f6 739 if (controlKeyword != wxT("") && controlKeyword == wxT("control"))
aad5220b
JS		 740 {
741 // The value part: always a list.
fd71308f 742 wxExpr *listExpr = controlExpr->Nth(2);
aad5220b
JS		 743 if (listExpr->Type() == PrologList)
744 {
745 wxItemResource *controlItem = wxResourceInterpretControl(table, listExpr);
746 if (controlItem)
747 {
748 dialogItem->GetChildren().Append(controlItem);
749 }
750 }
751 }
752 }
753 controlExpr = controlExpr->GetNext();
754 }
755 return dialogItem;
756}
757
fd71308f 758wxItemResource *wxResourceInterpretControl(wxResourceTable& table, wxExpr *expr)
aad5220b
JS		 759{
760 wxItemResource *controlItem = new wxItemResource;
761
762 // First, find the standard features of a control definition:
763 // [optional integer/string id], control name, title, style, name, x, y, width, height
764
765 wxString controlType;
766 wxString style;
767 wxString title;
768 wxString name;
769 int id = 0;
770 long windowStyle = 0;
771 int x = 0; int y = 0; int width = -1; int height = -1;
772 int count = 0;
773
fd71308f 774 wxExpr *expr1 = expr->Nth(0);
aad5220b
JS		 775
776 if ( expr1->Type() == PrologString || expr1->Type() == PrologWord )
777 {
e17e4f28
VZ		 778 if ( wxIsValidControlClass(expr1->StringValue()) )
779 {
780 count = 1;
781 controlType = expr1->StringValue();
782 }
783 else
784 {
47fa7969 785 wxString str(expr1->StringValue());
fd71308f 786 id = wxResourceGetIdentifier(str, &table);
aad5220b
JS		 787 if (id == 0)
788 {
e17e4f28
VZ		 789 wxLogWarning(_("Could not resolve control class or id '%s'. "
790 "Use (non-zero) integer instead\n or provide #define "
791 "(see manual for caveats)"),
d44f866a 792 (const wxChar*) expr1->StringValue());
e17e4f28 793 delete controlItem;
c67daf87 794 return (wxItemResource *) NULL;
aad5220b 795 }
e17e4f28
VZ		 796 else
797 {
798 // Success - we have an id, so the 2nd element must be the control class.
799 controlType = expr->Nth(1)->StringValue();
800 count = 2;
801 }
802 }
aad5220b
JS		 803 }
804 else if (expr1->Type() == PrologInteger)
805 {
806 id = (int)expr1->IntegerValue();
e17e4f28
VZ		 807 // Success - we have an id, so the 2nd element must be the control class.
808 controlType = expr->Nth(1)->StringValue();
809 count = 2;
aad5220b
JS		 810 }
811
812 expr1 = expr->Nth(count);
813 count ++;
814 if ( expr1 )
e17e4f28 815 title = expr1->StringValue();
aad5220b
JS		 816
817 expr1 = expr->Nth(count);
818 count ++;
819 if (expr1)
820 {
821 style = expr1->StringValue();
fd71308f 822 windowStyle = wxParseWindowStyle(style);
aad5220b
JS		 823 }
824
825 expr1 = expr->Nth(count);
826 count ++;
827 if (expr1)
828 name = expr1->StringValue();
829
830 expr1 = expr->Nth(count);
831 count ++;
832 if (expr1)
833 x = (int)expr1->IntegerValue();
834
835 expr1 = expr->Nth(count);
836 count ++;
837 if (expr1)
838 y = (int)expr1->IntegerValue();
839
840 expr1 = expr->Nth(count);
841 count ++;
842 if (expr1)
843 width = (int)expr1->IntegerValue();
844
845 expr1 = expr->Nth(count);
846 count ++;
847 if (expr1)
848 height = (int)expr1->IntegerValue();
849
850 controlItem->SetStyle(windowStyle);
fd71308f
JS		 851 controlItem->SetName(name);
852 controlItem->SetTitle(title);
aad5220b 853 controlItem->SetSize(x, y, width, height);
fd71308f 854 controlItem->SetType(controlType);
aad5220b
JS		 855 controlItem->SetId(id);
856
223d09f6 857 if (controlType == wxT("wxButton"))
3013b6f4
JS		 858 {
859 // Check for bitmap resource name (in case loading old-style resource file)
860 if (expr->Nth(count) && ((expr->Nth(count)->Type() == PrologString) || (expr->Nth(count)->Type() == PrologWord)))
861 {
ab6e89de 862 wxString str(expr->Nth(count)->StringValue());
b29518f8 863 count ++;
ab6e89de 864
223d09f6 865 if (str != wxT(""))
ab6e89de
JS		 866 {
867 controlItem->SetValue4(str);
223d09f6 868 controlItem->SetType(wxT("wxBitmapButton"));
ab6e89de 869 }
3013b6f4
JS		 870 }
871 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
872 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
873 }
223d09f6 874 else if (controlType == wxT("wxBitmapButton"))
aad5220b
JS		 875 {
876 // Check for bitmap resource name
877 if (expr->Nth(count) && ((expr->Nth(count)->Type() == PrologString) || (expr->Nth(count)->Type() == PrologWord)))
878 {
47fa7969 879 wxString str(expr->Nth(count)->StringValue());
fd71308f 880 controlItem->SetValue4(str);
47fa7969
JS		 881 count ++;
882 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
883 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
aad5220b
JS		 884 }
885 }
223d09f6 886 else if (controlType == wxT("wxCheckBox"))
aad5220b
JS		 887 {
888 // Check for default value
889 if (expr->Nth(count) && (expr->Nth(count)->Type() == PrologInteger))
e17e4f28 890 {
aad5220b 891 controlItem->SetValue1(expr->Nth(count)->IntegerValue());
e17e4f28 892 count ++;
aad5220b
JS		 893 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
894 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
895 }
896 }
c693edf3 897#if wxUSE_RADIOBTN
223d09f6 898 else if (controlType == wxT("wxRadioButton"))
aad5220b
JS		 899 {
900 // Check for default value
901 if (expr->Nth(count) && (expr->Nth(count)->Type() == PrologInteger))
e17e4f28 902 {
aad5220b 903 controlItem->SetValue1(expr->Nth(count)->IntegerValue());
e17e4f28 904 count ++;
aad5220b
JS		 905 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
906 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
907 }
908 }
909#endif
223d09f6 910 else if (controlType == wxT("wxText") || controlType == wxT("wxTextCtrl") || controlType == wxT("wxMultiText"))
aad5220b
JS		 911 {
912 // Check for default value
913 if (expr->Nth(count) && ((expr->Nth(count)->Type() == PrologString) || (expr->Nth(count)->Type() == PrologWord)))
e17e4f28 914 {
47fa7969 915 wxString str(expr->Nth(count)->StringValue());
fd71308f 916 controlItem->SetValue4(str);
e17e4f28 917 count ++;
aad5220b
JS		 918
919 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
e17e4f28 920 {
76a4f50d
JS		 921 // controlItem->SetLabelFont(wxResourceInterpretFontSpec(expr->Nth(count)));
922 // Skip past the obsolete label font spec if there are two consecutive specs
923 if (expr->Nth(count+1) && expr->Nth(count+1)->Type() == PrologList)
924 count ++;
925 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
e17e4f28
VZ		 926 }
927 }
aad5220b 928 }
223d09f6 929 else if (controlType == wxT("wxMessage") || controlType == wxT("wxStaticText"))
3013b6f4
JS		 930 {
931 // Check for bitmap resource name (in case it's an old-style .wxr file)
932 if (expr->Nth(count) && ((expr->Nth(count)->Type() == PrologString) || (expr->Nth(count)->Type() == PrologWord)))
933 {
934 wxString str(expr->Nth(count)->StringValue());
935 controlItem->SetValue4(str);
936 count ++;
223d09f6 937 controlItem->SetType(wxT("wxStaticText"));
3013b6f4
JS		 938 }
939 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
940 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
941 }
223d09f6 942 else if (controlType == wxT("wxStaticBitmap"))
aad5220b
JS		 943 {
944 // Check for bitmap resource name
945 if (expr->Nth(count) && ((expr->Nth(count)->Type() == PrologString) || (expr->Nth(count)->Type() == PrologWord)))
946 {
47fa7969 947 wxString str(expr->Nth(count)->StringValue());
fd71308f 948 controlItem->SetValue4(str);
aad5220b 949 count ++;
aad5220b 950 }
3013b6f4
JS		 951 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
952 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
aad5220b 953 }
223d09f6 954 else if (controlType == wxT("wxGroupBox") || controlType == wxT("wxStaticBox"))
aad5220b
JS		 955 {
956 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
957 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
958 }
223d09f6 959 else if (controlType == wxT("wxGauge"))
aad5220b
JS		 960 {
961 // Check for default value
962 if (expr->Nth(count) && (expr->Nth(count)->Type() == PrologInteger))
e17e4f28 963 {
aad5220b 964 controlItem->SetValue1(expr->Nth(count)->IntegerValue());
e17e4f28 965 count ++;
aad5220b
JS		 966
967 // Check for range
968 if (expr->Nth(count) && (expr->Nth(count)->Type() == PrologInteger))
e17e4f28 969 {
aad5220b 970 controlItem->SetValue2(expr->Nth(count)->IntegerValue());
e17e4f28 971 count ++;
aad5220b
JS		 972
973 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
974 {
30b5fc11
JS		 975 // Skip past the obsolete label font spec if there are two consecutive specs
976 if (expr->Nth(count+1) && expr->Nth(count+1)->Type() == PrologList)
977 count ++;
978 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
e17e4f28
VZ		 979 }
980 }
981 }
aad5220b 982 }
223d09f6 983 else if (controlType == wxT("wxSlider"))
aad5220b
JS		 984 {
985 // Check for default value
986 if (expr->Nth(count) && (expr->Nth(count)->Type() == PrologInteger))
e17e4f28 987 {
aad5220b 988 controlItem->SetValue1(expr->Nth(count)->IntegerValue());
e17e4f28 989 count ++;
aad5220b
JS		 990
991 // Check for min
992 if (expr->Nth(count) && (expr->Nth(count)->Type() == PrologInteger))
e17e4f28 993 {
aad5220b 994 controlItem->SetValue2(expr->Nth(count)->IntegerValue());
e17e4f28 995 count ++;
aad5220b
JS		 996
997 // Check for max
998 if (expr->Nth(count) && (expr->Nth(count)->Type() == PrologInteger))
e17e4f28 999 {
aad5220b 1000 controlItem->SetValue3(expr->Nth(count)->IntegerValue());
e17e4f28 1001 count ++;
aad5220b
JS		 1002
1003 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
e17e4f28 1004 {
aad5220b 1005 // controlItem->SetLabelFont(wxResourceInterpretFontSpec(expr->Nth(count)));
e17e4f28
VZ		 1006 // do nothing
1007 count ++;
aad5220b
JS		 1008
1009 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
1010 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
e17e4f28
VZ		 1011 }
1012 }
1013 }
1014 }
aad5220b 1015 }
223d09f6 1016 else if (controlType == wxT("wxScrollBar"))
aad5220b
JS		 1017 {
1018 // DEFAULT VALUE
1019 if (expr->Nth(count) && (expr->Nth(count)->Type() == PrologInteger))
e17e4f28 1020 {
aad5220b 1021 controlItem->SetValue1(expr->Nth(count)->IntegerValue());
e17e4f28 1022 count ++;
aad5220b
JS		 1023
1024 // PAGE LENGTH
1025 if (expr->Nth(count) && (expr->Nth(count)->Type() == PrologInteger))
e17e4f28 1026 {
aad5220b 1027 controlItem->SetValue2(expr->Nth(count)->IntegerValue());
e17e4f28 1028 count ++;
aad5220b
JS		 1029
1030 // OBJECT LENGTH
1031 if (expr->Nth(count) && (expr->Nth(count)->Type() == PrologInteger))
e17e4f28 1032 {
aad5220b 1033 controlItem->SetValue3(expr->Nth(count)->IntegerValue());
e17e4f28 1034 count ++;
aad5220b
JS		 1035
1036 // VIEW LENGTH
1037 if (expr->Nth(count) && (expr->Nth(count)->Type() == PrologInteger))
1038 controlItem->SetValue5(expr->Nth(count)->IntegerValue());
e17e4f28
VZ		 1039 }
1040 }
1041 }
aad5220b 1042 }
223d09f6 1043 else if (controlType == wxT("wxListBox"))
aad5220b 1044 {
fd71308f 1045 wxExpr *valueList = (wxExpr *) NULL;
aad5220b
JS		 1046
1047 if ((valueList = expr->Nth(count)) && (valueList->Type() == PrologList))
1048 {
fd71308f
JS		 1049 wxStringList stringList;
1050 wxExpr *stringExpr = valueList->GetFirst();
aad5220b
JS		 1051 while (stringExpr)
1052 {
fd71308f 1053 stringList.Add(stringExpr->StringValue());
aad5220b
JS		 1054 stringExpr = stringExpr->GetNext();
1055 }
1056 controlItem->SetStringValues(stringList);
e17e4f28 1057 count ++;
386af6a2 1058// This is now obsolete: it's in the window style.
aad5220b 1059 // Check for wxSINGLE/wxMULTIPLE
fd71308f 1060 wxExpr *mult = (wxExpr *) NULL;
386af6a2 1061/*
aad5220b 1062 controlItem->SetValue1(wxLB_SINGLE);
386af6a2 1063*/
aad5220b
JS		 1064 if ((mult = expr->Nth(count)) && ((mult->Type() == PrologString)||(mult->Type() == PrologWord)))
1065 {
386af6a2 1066/*
aad5220b 1067 wxString m(mult->StringValue());
386af6a2 1068 if (m == "wxLB_MULTIPLE")
aad5220b 1069 controlItem->SetValue1(wxLB_MULTIPLE);
386af6a2 1070 else if (m == "wxLB_EXTENDED")
aad5220b 1071 controlItem->SetValue1(wxLB_EXTENDED);
386af6a2
JS		 1072*/
1073 // Ignore the value
e17e4f28 1074 count ++;
386af6a2
JS		 1075 }
1076 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
1077 {
30b5fc11
JS		 1078 // Skip past the obsolete label font spec if there are two consecutive specs
1079 if (expr->Nth(count+1) && expr->Nth(count+1)->Type() == PrologList)
1080 count ++;
1081 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
386af6a2 1082 }
e17e4f28 1083 }
aad5220b 1084 }
223d09f6 1085 else if (controlType == wxT("wxChoice"))
aad5220b 1086 {
fd71308f 1087 wxExpr *valueList = (wxExpr *) NULL;
aad5220b
JS		 1088 // Check for default value list
1089 if ((valueList = expr->Nth(count)) && (valueList->Type() == PrologList))
1090 {
fd71308f
JS		 1091 wxStringList stringList;
1092 wxExpr *stringExpr = valueList->GetFirst();
aad5220b
JS		 1093 while (stringExpr)
1094 {
fd71308f 1095 stringList.Add(stringExpr->StringValue());
aad5220b
JS		 1096 stringExpr = stringExpr->GetNext();
1097 }
1098 controlItem->SetStringValues(stringList);
1099
e17e4f28 1100 count ++;
aad5220b
JS		 1101
1102 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
e17e4f28 1103 {
30b5fc11
JS		 1104 // Skip past the obsolete label font spec if there are two consecutive specs
1105 if (expr->Nth(count+1) && expr->Nth(count+1)->Type() == PrologList)
1106 count ++;
1107 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
e17e4f28
VZ		 1108 }
1109 }
aad5220b 1110 }
47d67540 1111#if wxUSE_COMBOBOX
223d09f6 1112 else if (controlType == wxT("wxComboBox"))
aad5220b 1113 {
fd71308f 1114 wxExpr *textValue = expr->Nth(count);
aad5220b 1115 if (textValue && (textValue->Type() == PrologString || textValue->Type() == PrologWord))
e17e4f28 1116 {
47fa7969 1117 wxString str(textValue->StringValue());
fd71308f 1118 controlItem->SetValue4(str);
aad5220b 1119
e17e4f28 1120 count ++;
8bbe427f 1121
fd71308f 1122 wxExpr *valueList = (wxExpr *) NULL;
aad5220b
JS		 1123 // Check for default value list
1124 if ((valueList = expr->Nth(count)) && (valueList->Type() == PrologList))
1125 {
fd71308f
JS		 1126 wxStringList stringList;
1127 wxExpr *stringExpr = valueList->GetFirst();
aad5220b
JS		 1128 while (stringExpr)
1129 {
fd71308f 1130 stringList.Add(stringExpr->StringValue());
aad5220b
JS		 1131 stringExpr = stringExpr->GetNext();
1132 }
1133 controlItem->SetStringValues(stringList);
1134
e17e4f28 1135 count ++;
aad5220b
JS		 1136
1137 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
e17e4f28 1138 {
30b5fc11
JS		 1139 // Skip past the obsolete label font spec if there are two consecutive specs
1140 if (expr->Nth(count+1) && expr->Nth(count+1)->Type() == PrologList)
1141 count ++;
1142 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
e17e4f28
VZ		 1143 }
1144 }
1145 }
aad5220b
JS		 1146 }
1147#endif
c058d771 1148#if 1
223d09f6 1149 else if (controlType == wxT("wxRadioBox"))
aad5220b 1150 {
fd71308f 1151 wxExpr *valueList = (wxExpr *) NULL;
aad5220b
JS		 1152 // Check for default value list
1153 if ((valueList = expr->Nth(count)) && (valueList->Type() == PrologList))
1154 {
fd71308f
JS		 1155 wxStringList stringList;
1156 wxExpr *stringExpr = valueList->GetFirst();
aad5220b
JS		 1157 while (stringExpr)
1158 {
fd71308f 1159 stringList.Add(stringExpr->StringValue());
aad5220b
JS		 1160 stringExpr = stringExpr->GetNext();
1161 }
1162 controlItem->SetStringValues(stringList);
e17e4f28 1163 count ++;
aad5220b
JS		 1164
1165 // majorDim (number of rows or cols)
1166 if (expr->Nth(count) && (expr->Nth(count)->Type() == PrologInteger))
e17e4f28 1167 {
aad5220b 1168 controlItem->SetValue1(expr->Nth(count)->IntegerValue());
e17e4f28
VZ		 1169 count ++;
1170 }
aad5220b
JS		 1171 else
1172 controlItem->SetValue1(0);
1173
1174 if (expr->Nth(count) && expr->Nth(count)->Type() == PrologList)
e17e4f28 1175 {
30b5fc11
JS		 1176 // Skip past the obsolete label font spec if there are two consecutive specs
1177 if (expr->Nth(count+1) && expr->Nth(count+1)->Type() == PrologList)
1178 count ++;
1179 controlItem->SetFont(wxResourceInterpretFontSpec(expr->Nth(count)));
e17e4f28
VZ		 1180 }
1181 }
aad5220b
JS		 1182 }
1183#endif
1184 else
1185 {
1186 delete controlItem;
c67daf87 1187 return (wxItemResource *) NULL;
aad5220b
JS		 1188 }
1189 return controlItem;
1190}
1191
8bbe427f 1192// Forward declaration
fd71308f 1193wxItemResource *wxResourceInterpretMenu1(wxResourceTable& table, wxExpr *expr);
aad5220b
JS		 1194
1195/*
1196 * Interpet a menu item
1197 */
1198
fd71308f 1199wxItemResource *wxResourceInterpretMenuItem(wxResourceTable& table, wxExpr *expr)
aad5220b
JS		 1200{
1201 wxItemResource *item = new wxItemResource;
8bbe427f 1202
fd71308f
JS		 1203 wxExpr *labelExpr = expr->Nth(0);
1204 wxExpr *idExpr = expr->Nth(1);
1205 wxExpr *helpExpr = expr->Nth(2);
1206 wxExpr *checkableExpr = expr->Nth(3);
aad5220b
JS		 1207
1208 // Further keywords/attributes to follow sometime...
1209 if (expr->Number() == 0)
1210 {
1211// item->SetType(wxRESOURCE_TYPE_SEPARATOR);
223d09f6 1212 item->SetType(wxT("wxMenuSeparator"));
aad5220b
JS		 1213 return item;
1214 }
1215 else
1216 {
1217// item->SetType(wxTYPE_MENU); // Well, menu item, but doesn't matter.
223d09f6 1218 item->SetType(wxT("wxMenu")); // Well, menu item, but doesn't matter.
aad5220b
JS		 1219 if (labelExpr)
1220 {
47fa7969 1221 wxString str(labelExpr->StringValue());
fd71308f 1222 item->SetTitle(str);
aad5220b
JS		 1223 }
1224 if (idExpr)
1225 {
1226 int id = 0;
1227 // If a string or word, must look up in identifier table.
1228 if ((idExpr->Type() == PrologString) || (idExpr->Type() == PrologWord))
1229 {
47fa7969 1230 wxString str(idExpr->StringValue());
fd71308f 1231 id = wxResourceGetIdentifier(str, &table);
aad5220b
JS		 1232 if (id == 0)
1233 {
e17e4f28
VZ		 1234 wxLogWarning(_("Could not resolve menu id '%s'. "
1235 "Use (non-zero) integer instead\n"
1236 "or provide #define (see manual for caveats)"),
d44f866a 1237 (const wxChar*) idExpr->StringValue());
aad5220b
JS		 1238 }
1239 }
1240 else if (idExpr->Type() == PrologInteger)
1241 id = (int)idExpr->IntegerValue();
1242 item->SetValue1(id);
1243 }
1244 if (helpExpr)
1245 {
47fa7969 1246 wxString str(helpExpr->StringValue());
fd71308f 1247 item->SetValue4(str);
aad5220b
JS		 1248 }
1249 if (checkableExpr)
1250 item->SetValue2(checkableExpr->IntegerValue());
1251
1252 // Find the first expression that's a list, for submenu
fd71308f 1253 wxExpr *subMenuExpr = expr->GetFirst();
aad5220b
JS		 1254 while (subMenuExpr && (subMenuExpr->Type() != PrologList))
1255 subMenuExpr = subMenuExpr->GetNext();
8bbe427f 1256
aad5220b
JS		 1257 while (subMenuExpr)
1258 {
1259 wxItemResource *child = wxResourceInterpretMenuItem(table, subMenuExpr);
1260 item->GetChildren().Append(child);
1261 subMenuExpr = subMenuExpr->GetNext();
1262 }
1263 }
1264 return item;
1265}
1266
1267/*
1268 * Interpret a nested list as a menu
1269 */
1270/*
fd71308f 1271wxItemResource *wxResourceInterpretMenu1(wxResourceTable& table, wxExpr *expr)
aad5220b
JS		 1272{
1273 wxItemResource *menu = new wxItemResource;
1274// menu->SetType(wxTYPE_MENU);
1275 menu->SetType("wxMenu");
fd71308f 1276 wxExpr *element = expr->GetFirst();
aad5220b
JS		 1277 while (element)
1278 {
1279 wxItemResource *item = wxResourceInterpretMenuItem(table, element);
1280 if (item)
1281 menu->GetChildren().Append(item);
1282 element = element->GetNext();
1283 }
1284 return menu;
1285}
1286*/
1287
fd71308f 1288wxItemResource *wxResourceInterpretMenu(wxResourceTable& table, wxExpr *expr)
aad5220b 1289{
fd71308f 1290 wxExpr *listExpr = (wxExpr *) NULL;
223d09f6 1291 expr->GetAttributeValue(wxT("menu"), &listExpr);
aad5220b 1292 if (!listExpr)
c67daf87 1293 return (wxItemResource *) NULL;
8bbe427f 1294
aad5220b
JS		 1295 wxItemResource *menuResource = wxResourceInterpretMenuItem(table, listExpr);
1296
1297 if (!menuResource)
c67daf87 1298 return (wxItemResource *) NULL;
fd71308f
JS		 1299
1300 wxString name;
223d09f6 1301 if (expr->GetAttributeValue(wxT("name"), name))
aad5220b
JS		 1302 {
1303 menuResource->SetName(name);
aad5220b 1304 }
8bbe427f 1305
aad5220b
JS		 1306 return menuResource;
1307}
1308
fd71308f 1309wxItemResource *wxResourceInterpretMenuBar(wxResourceTable& table, wxExpr *expr)
aad5220b 1310{
fd71308f 1311 wxExpr *listExpr = (wxExpr *) NULL;
223d09f6 1312 expr->GetAttributeValue(wxT("menu"), &listExpr);
aad5220b 1313 if (!listExpr)
c67daf87 1314 return (wxItemResource *) NULL;
aad5220b
JS		 1315
1316 wxItemResource *resource = new wxItemResource;
223d09f6 1317 resource->SetType(wxT("wxMenu"));
aad5220b 1318// resource->SetType(wxTYPE_MENU);
8bbe427f 1319
fd71308f 1320 wxExpr *element = listExpr->GetFirst();
aad5220b
JS		 1321 while (element)
1322 {
1323 wxItemResource *menuResource = wxResourceInterpretMenuItem(table, listExpr);
1324 resource->GetChildren().Append(menuResource);
1325 element = element->GetNext();
1326 }
1327
fd71308f 1328 wxString name;
223d09f6 1329 if (expr->GetAttributeValue(wxT("name"), name))
aad5220b
JS		 1330 {
1331 resource->SetName(name);
aad5220b 1332 }
8bbe427f 1333
aad5220b
JS		 1334 return resource;
1335}
1336
fd71308f 1337wxItemResource *wxResourceInterpretString(wxResourceTable& WXUNUSED(table), wxExpr *WXUNUSED(expr))
aad5220b 1338{
c67daf87 1339 return (wxItemResource *) NULL;
aad5220b
JS		 1340}
1341
fd71308f 1342wxItemResource *wxResourceInterpretBitmap(wxResourceTable& WXUNUSED(table), wxExpr *expr)
aad5220b
JS		 1343{
1344 wxItemResource *bitmapItem = new wxItemResource;
1345// bitmapItem->SetType(wxTYPE_BITMAP);
223d09f6 1346 bitmapItem->SetType(wxT("wxBitmap"));
fd71308f 1347 wxString name;
223d09f6 1348 if (expr->GetAttributeValue(wxT("name"), name))
aad5220b
JS		 1349 {
1350 bitmapItem->SetName(name);
aad5220b
JS		 1351 }
1352 // Now parse all bitmap specifications
fd71308f 1353 wxExpr *bitmapExpr = expr->GetFirst();
aad5220b
JS		 1354 while (bitmapExpr)
1355 {
1356 if (bitmapExpr->Number() == 3)
1357 {
1358 wxString bitmapKeyword(bitmapExpr->Nth(1)->StringValue());
223d09f6 1359 if (bitmapKeyword == wxT("bitmap") || bitmapKeyword == wxT("icon"))
aad5220b
JS		 1360 {
1361 // The value part: always a list.
fd71308f 1362 wxExpr *listExpr = bitmapExpr->Nth(2);
aad5220b
JS		 1363 if (listExpr->Type() == PrologList)
1364 {
1365 wxItemResource *bitmapSpec = new wxItemResource;
1366// bitmapSpec->SetType(wxTYPE_BITMAP);
223d09f6 1367 bitmapSpec->SetType(wxT("wxBitmap"));
aad5220b
JS		 1368
1369 // List is of form: [filename, bitmaptype, platform, colours, xresolution, yresolution]
1370 // where everything after 'filename' is optional.
fd71308f
JS		 1371 wxExpr *nameExpr = listExpr->Nth(0);
1372 wxExpr *typeExpr = listExpr->Nth(1);
1373 wxExpr *platformExpr = listExpr->Nth(2);
1374 wxExpr *coloursExpr = listExpr->Nth(3);
1375 wxExpr *xresExpr = listExpr->Nth(4);
1376 wxExpr *yresExpr = listExpr->Nth(5);
223d09f6 1377 if (nameExpr && nameExpr->StringValue() != wxT(""))
47fa7969 1378 {
fd71308f 1379 bitmapSpec->SetName(nameExpr->StringValue());
47fa7969 1380 }
223d09f6 1381 if (typeExpr && typeExpr->StringValue() != wxT(""))
47fa7969 1382 {
fd71308f 1383 bitmapSpec->SetValue1(wxParseWindowStyle(typeExpr->StringValue()));
47fa7969 1384 }
aad5220b
JS		 1385 else
1386 bitmapSpec->SetValue1(0);
8bbe427f 1387
223d09f6 1388 if (platformExpr && platformExpr->StringValue() != wxT(""))
aad5220b
JS		 1389 {
1390 wxString plat(platformExpr->StringValue());
223d09f6 1391 if (plat == wxT("windows") || plat == wxT("WINDOWS"))
aad5220b 1392 bitmapSpec->SetValue2(RESOURCE_PLATFORM_WINDOWS);
223d09f6 1393 else if (plat == wxT("x") || plat == wxT("X"))
aad5220b 1394 bitmapSpec->SetValue2(RESOURCE_PLATFORM_X);
223d09f6 1395 else if (plat == wxT("mac") || plat == wxT("MAC"))
aad5220b
JS		 1396 bitmapSpec->SetValue2(RESOURCE_PLATFORM_MAC);
1397 else
1398 bitmapSpec->SetValue2(RESOURCE_PLATFORM_ANY);
1399 }
1400 else
1401 bitmapSpec->SetValue2(RESOURCE_PLATFORM_ANY);
1402
1403 if (coloursExpr)
1404 bitmapSpec->SetValue3(coloursExpr->IntegerValue());
1405 int xres = 0;
1406 int yres = 0;
1407 if (xresExpr)
1408 xres = (int)xresExpr->IntegerValue();
1409 if (yresExpr)
1410 yres = (int)yresExpr->IntegerValue();
1411 bitmapSpec->SetSize(0, 0, xres, yres);
8bbe427f 1412
aad5220b
JS		 1413 bitmapItem->GetChildren().Append(bitmapSpec);
1414 }
1415 }
1416 }
1417 bitmapExpr = bitmapExpr->GetNext();
1418 }
8bbe427f 1419
aad5220b
JS		 1420 return bitmapItem;
1421}
1422
fd71308f 1423wxItemResource *wxResourceInterpretIcon(wxResourceTable& table, wxExpr *expr)
aad5220b
JS		 1424{
1425 wxItemResource *item = wxResourceInterpretBitmap(table, expr);
1426 if (item)
1427 {
1428// item->SetType(wxTYPE_ICON);
223d09f6 1429 item->SetType(wxT("wxIcon"));
aad5220b
JS		 1430 return item;
1431 }
1432 else
c67daf87 1433 return (wxItemResource *) NULL;
aad5220b
JS		 1434}
1435
1436// Interpret list expression as a font
fd71308f 1437wxFont wxResourceInterpretFontSpec(wxExpr *expr)
aad5220b
JS		 1438{
1439 if (expr->Type() != PrologList)
fd71308f 1440 return wxNullFont;
aad5220b
JS		 1441
1442 int point = 10;
1443 int family = wxSWISS;
1444 int style = wxNORMAL;
1445 int weight = wxNORMAL;
1446 int underline = 0;
223d09f6 1447 wxString faceName(wxT(""));
8bbe427f 1448
fd71308f
JS		 1449 wxExpr *pointExpr = expr->Nth(0);
1450 wxExpr *familyExpr = expr->Nth(1);
1451 wxExpr *styleExpr = expr->Nth(2);
1452 wxExpr *weightExpr = expr->Nth(3);
1453 wxExpr *underlineExpr = expr->Nth(4);
1454 wxExpr *faceNameExpr = expr->Nth(5);
aad5220b
JS		 1455 if (pointExpr)
1456 point = (int)pointExpr->IntegerValue();
47fa7969
JS		 1457
1458 wxString str;
aad5220b 1459 if (familyExpr)
47fa7969
JS		 1460 {
1461 str = familyExpr->StringValue();
fd71308f 1462 family = (int)wxParseWindowStyle(str);
47fa7969 1463 }
aad5220b 1464 if (styleExpr)
47fa7969
JS		 1465 {
1466 str = styleExpr->StringValue();
fd71308f 1467 style = (int)wxParseWindowStyle(str);
47fa7969 1468 }
aad5220b 1469 if (weightExpr)
47fa7969
JS		 1470 {
1471 str = weightExpr->StringValue();
fd71308f 1472 weight = (int)wxParseWindowStyle(str);
47fa7969 1473 }
aad5220b
JS		 1474 if (underlineExpr)
1475 underline = (int)underlineExpr->IntegerValue();
1476 if (faceNameExpr)
1477 faceName = faceNameExpr->StringValue();
1478
fd71308f 1479 wxFont font(point, family, style, weight, (underline != 0), faceName);
aad5220b
JS		 1480 return font;
1481}
1482
3b1de9c2
JS		 1483// Separate file for the remainder of this, for BC++/Win16
1484
3d05544e 1485#if !((defined(__BORLANDC__) || defined(__SC__)) && defined(__WIN16__))
aad5220b
JS		 1486/*
1487 * (Re)allocate buffer for reading in from resource file
1488 */
1489
fd71308f 1490bool wxReallocateResourceBuffer()
aad5220b
JS		 1491{
1492 if (!wxResourceBuffer)
1493 {
1494 wxResourceBufferSize = 1000;
1495 wxResourceBuffer = new char[wxResourceBufferSize];
1496 return TRUE;
1497 }
1498 if (wxResourceBuffer)
1499 {
1500 long newSize = wxResourceBufferSize + 1000;
1501 char *tmp = new char[(int)newSize];
1502 strncpy(tmp, wxResourceBuffer, (int)wxResourceBufferCount);
1503 delete[] wxResourceBuffer;
1504 wxResourceBuffer = tmp;
1505 wxResourceBufferSize = newSize;
1506 }
1507 return TRUE;
1508}
1509
1510static bool wxEatWhiteSpace(FILE *fd)
1511{
631cefff 1512 int ch = 0;
aad5220b 1513
631cefff 1514 while ((ch = getc(fd)) != EOF)
aad5220b 1515 {
631cefff
BM		 1516 switch (ch)
1517 {
1518 case ' ':
1519 case 0x0a:
1520 case 0x0d:
1521 case 0x09:
1522 break;
1523 case '/':
1524 {
1525 int prev_ch = ch;
1526 ch = getc(fd);
1527 if (ch == EOF)
1528 {
1529 ungetc(prev_ch, fd);
1530 return TRUE;
1531 }
1532
1533 if (ch == '*')
1534 {
1535 // Eat C comment
1536 prev_ch = 0;
1537 while ((ch = getc(fd)) != EOF)
1538 {
1539 if (ch == '/' && prev_ch == '*')
1540 break;
1541 prev_ch = ch;
1542 }
1543 }
1544 else if (ch == '/')
1545 {
1546 // Eat C++ comment
1547 static char buffer[255];
1548 fgets(buffer, 255, fd);
1549 }
1550 else
1551 {
1552 ungetc(prev_ch, fd);
1553 ungetc(ch, fd);
1554 return TRUE;
1555 }
1556 }
1557 break;
1558 default:
1559 ungetc(ch, fd);
1560 return TRUE;
913df6f2 1561
631cefff 1562 }
aad5220b 1563 }
631cefff 1564 return FALSE;
aad5220b 1565}
37e2cb08
SC		 1566static bool wxEatWhiteSpace(wxInputStream *is)
1567{
1568 int ch = is->GetC() ;
1569 if ((ch != ' ') && (ch != '/') && (ch != ' ') && (ch != 10) && (ch != 13) && (ch != 9))
1570 {
1571 is->Ungetch(ch);
1572 return TRUE;
1573 }
1574
1575 // Eat whitespace
1576 while (ch == ' ' || ch == 10 || ch == 13 || ch == 9)
1577 ch = is->GetC();
1578 // Check for comment
1579 if (ch == '/')
1580 {
1581 ch = is->GetC();
1582 if (ch == '*')
1583 {
1584 bool finished = FALSE;
1585 while (!finished)
1586 {
1587 ch = is->GetC();
1588 if (ch == EOF)
1589 return FALSE;
1590 if (ch == '*')
1591 {
1592 int newCh = is->GetC();
1593 if (newCh == '/')
1594 finished = TRUE;
1595 else
1596 {
1597 is->Ungetch(ch);
1598 }
1599 }
1600 }
1601 }
1602 else // False alarm
1603 return FALSE;
1604 }
1605 else
1606 is->Ungetch(ch);
1607 return wxEatWhiteSpace(is);
1608}
aad5220b
JS		 1609
1610bool wxGetResourceToken(FILE *fd)
1611{
1612 if (!wxResourceBuffer)
1613 wxReallocateResourceBuffer();
1614 wxResourceBuffer[0] = 0;
1615 wxEatWhiteSpace(fd);
1616
1617 int ch = getc(fd);
1618 if (ch == '"')
1619 {
1620 // Get string
1621 wxResourceBufferCount = 0;
1622 ch = getc(fd);
1623 while (ch != '"')
1624 {
1625 int actualCh = ch;
1626 if (ch == EOF)
1627 {
1628 wxResourceBuffer[wxResourceBufferCount] = 0;
1629 return FALSE;
1630 }
1631 // Escaped characters
1632 else if (ch == '\\')
1633 {
1634 int newCh = getc(fd);
1635 if (newCh == '"')
1636 actualCh = '"';
1637 else if (newCh == 10)
1638 actualCh = 10;
1639 else
1640 {
1641 ungetc(newCh, fd);
1642 }
1643 }
1644
1645 if (wxResourceBufferCount >= wxResourceBufferSize-1)
1646 wxReallocateResourceBuffer();
1647 wxResourceBuffer[wxResourceBufferCount] = (char)actualCh;
1648 wxResourceBufferCount ++;
1649 ch = getc(fd);
1650 }
1651 wxResourceBuffer[wxResourceBufferCount] = 0;
1652 }
1653 else
1654 {
1655 wxResourceBufferCount = 0;
1656 // Any other token
1657 while (ch != ' ' && ch != EOF && ch != ' ' && ch != 13 && ch != 9 && ch != 10)
1658 {
1659 if (wxResourceBufferCount >= wxResourceBufferSize-1)
1660 wxReallocateResourceBuffer();
1661 wxResourceBuffer[wxResourceBufferCount] = (char)ch;
1662 wxResourceBufferCount ++;
8bbe427f 1663
aad5220b
JS		 1664 ch = getc(fd);
1665 }
1666 wxResourceBuffer[wxResourceBufferCount] = 0;
1667 if (ch == EOF)
1668 return FALSE;
1669 }
1670 return TRUE;
1671}
1672
37e2cb08
SC		 1673bool wxGetResourceToken(wxInputStream *is)
1674{
1675 if (!wxResourceBuffer)
1676 wxReallocateResourceBuffer();
1677 wxResourceBuffer[0] = 0;
1678 wxEatWhiteSpace(is);
1679
1680 int ch = is->GetC() ;
1681 if (ch == '"')
1682 {
1683 // Get string
1684 wxResourceBufferCount = 0;
1685 ch = is->GetC();
1686 while (ch != '"')
1687 {
1688 int actualCh = ch;
1689 if (ch == EOF)
1690 {
1691 wxResourceBuffer[wxResourceBufferCount] = 0;
1692 return FALSE;
1693 }
1694 // Escaped characters
1695 else if (ch == '\\')
1696 {
1697 int newCh = is->GetC();
1698 if (newCh == '"')
1699 actualCh = '"';
1700 else if (newCh == 10)
1701 actualCh = 10;
1702 else if (newCh == 13) // mac
1703 actualCh = 10;
1704 else
1705 {
1706 is->Ungetch(newCh);
1707 }
1708 }
1709
1710 if (wxResourceBufferCount >= wxResourceBufferSize-1)
1711 wxReallocateResourceBuffer();
1712 wxResourceBuffer[wxResourceBufferCount] = (char)actualCh;
1713 wxResourceBufferCount ++;
1714 ch = is->GetC();
1715 }
1716 wxResourceBuffer[wxResourceBufferCount] = 0;
1717 }
1718 else
1719 {
1720 wxResourceBufferCount = 0;
1721 // Any other token
1722 while (ch != ' ' && ch != EOF && ch != ' ' && ch != 13 && ch != 9 && ch != 10)
1723 {
1724 if (wxResourceBufferCount >= wxResourceBufferSize-1)
1725 wxReallocateResourceBuffer();
1726 wxResourceBuffer[wxResourceBufferCount] = (char)ch;
1727 wxResourceBufferCount ++;
1728
1729 ch = is->GetC();
1730 }
1731 wxResourceBuffer[wxResourceBufferCount] = 0;
1732 if (ch == EOF)
1733 return FALSE;
1734 }
1735 return TRUE;
1736}
1737
aad5220b
JS		 1738/*
1739 * Files are in form:
1740 static char *name = "....";
1741 with possible comments.
1742 */
8bbe427f 1743
fd71308f 1744bool wxResourceReadOneResource(FILE *fd, wxExprDatabase& db, bool *eof, wxResourceTable *table)
aad5220b
JS		 1745{
1746 if (!table)
1747 table = wxDefaultResourceTable;
8bbe427f 1748
aad5220b
JS		 1749 // static or #define
1750 if (!wxGetResourceToken(fd))
1751 {
1752 *eof = TRUE;
1753 return FALSE;
1754 }
1755
1756 if (strcmp(wxResourceBuffer, "#define") == 0)
1757 {
1758 wxGetResourceToken(fd);
dcf924a3 1759 wxChar *name = copystring(wxConvCurrent->cMB2WX(wxResourceBuffer));
aad5220b 1760 wxGetResourceToken(fd);
dcf924a3 1761 wxChar *value = copystring(wxConvCurrent->cMB2WX(wxResourceBuffer));
33bbfe4b 1762 if (wxIsdigit(value[0]))
aad5220b 1763 {
d44f866a 1764 int val = (int)wxAtol(value);
aad5220b
JS		 1765 wxResourceAddIdentifier(name, val, table);
1766 }
1767 else
1768 {
e17e4f28 1769 wxLogWarning(_("#define %s must be an integer."), name);
aad5220b
JS		 1770 delete[] name;
1771 delete[] value;
1772 return FALSE;
1773 }
1774 delete[] name;
1775 delete[] value;
8bbe427f 1776
aad5220b
JS		 1777 return TRUE;
1778 }
1779 else if (strcmp(wxResourceBuffer, "#include") == 0)
1780 {
1781 wxGetResourceToken(fd);
dcf924a3 1782 wxChar *name = copystring(wxConvCurrent->cMB2WX(wxResourceBuffer));
d44f866a 1783 wxChar *actualName = name;
223d09f6 1784 if (name[0] == wxT('"'))
aad5220b 1785 actualName = name + 1;
d44f866a 1786 int len = wxStrlen(name);
223d09f6 1787 if ((len > 0) && (name[len-1] == wxT('"')))
aad5220b
JS		 1788 name[len-1] = 0;
1789 if (!wxResourceParseIncludeFile(actualName, table))
1790 {
e17e4f28 1791 wxLogWarning(_("Could not find resource include file %s."), actualName);
aad5220b
JS		 1792 }
1793 delete[] name;
1794 return TRUE;
1795 }
1796 else if (strcmp(wxResourceBuffer, "static") != 0)
1797 {
d44f866a
OK		 1798 wxChar buf[300];
1799 wxStrcpy(buf, _("Found "));
dcf924a3 1800 wxStrncat(buf, wxConvCurrent->cMB2WX(wxResourceBuffer), 30);
d44f866a 1801 wxStrcat(buf, _(", expected static, #include or #define\nwhilst parsing resource."));
e17e4f28 1802 wxLogWarning(buf);
aad5220b
JS		 1803 return FALSE;
1804 }
1805
1806 // char
1807 if (!wxGetResourceToken(fd))
1808 {
e17e4f28 1809 wxLogWarning(_("Unexpected end of file whilst parsing resource."));
aad5220b
JS		 1810 *eof = TRUE;
1811 return FALSE;
1812 }
1813
1814 if (strcmp(wxResourceBuffer, "char") != 0)
1815 {
e17e4f28 1816 wxLogWarning(_("Expected 'char' whilst parsing resource."));
aad5220b
JS		 1817 return FALSE;
1818 }
8bbe427f 1819
aad5220b
JS		 1820 // *name
1821 if (!wxGetResourceToken(fd))
1822 {
e17e4f28 1823 wxLogWarning(_("Unexpected end of file whilst parsing resource."));
aad5220b
JS		 1824 *eof = TRUE;
1825 return FALSE;
1826 }
1827
1828 if (wxResourceBuffer[0] != '*')
1829 {
e17e4f28 1830 wxLogWarning(_("Expected '*' whilst parsing resource."));
aad5220b
JS		 1831 return FALSE;
1832 }
d44f866a
OK		 1833 wxChar nameBuf[100];
1834 wxMB2WX(nameBuf, wxResourceBuffer+1, 99);
1835 nameBuf[99] = 0;
8bbe427f 1836
aad5220b
JS		 1837 // =
1838 if (!wxGetResourceToken(fd))
1839 {
e17e4f28 1840 wxLogWarning(_("Unexpected end of file whilst parsing resource."));
aad5220b
JS		 1841 *eof = TRUE;
1842 return FALSE;
1843 }
1844
1845 if (strcmp(wxResourceBuffer, "=") != 0)
1846 {
e17e4f28 1847 wxLogWarning(_("Expected '=' whilst parsing resource."));
37e2cb08
SC		 1848 return FALSE;
1849 }
1850
1851 // String
1852 if (!wxGetResourceToken(fd))
1853 {
1854 wxLogWarning(_("Unexpected end of file whilst parsing resource."));
1855 *eof = TRUE;
1856 return FALSE;
1857 }
1858 else
1859 {
1860 if (!db.ReadPrologFromString(wxResourceBuffer))
1861 {
1862 wxLogWarning(_("%s: ill-formed resource file syntax."), nameBuf);
1863 return FALSE;
1864 }
1865 }
1866 // Semicolon
1867 if (!wxGetResourceToken(fd))
1868 {
1869 *eof = TRUE;
1870 }
1871 return TRUE;
1872}
1873
1874bool wxResourceReadOneResource(wxInputStream *fd, wxExprDatabase& db, bool *eof, wxResourceTable *table)
1875{
1876 if (!table)
1877 table = wxDefaultResourceTable;
1878
1879 // static or #define
1880 if (!wxGetResourceToken(fd))
1881 {
1882 *eof = TRUE;
1883 return FALSE;
1884 }
1885
1886 if (strcmp(wxResourceBuffer, "#define") == 0)
1887 {
1888 wxGetResourceToken(fd);
1889 char *name = copystring(wxResourceBuffer);
1890 wxGetResourceToken(fd);
1891 char *value = copystring(wxResourceBuffer);
1892 if (isalpha(value[0]))
1893 {
1894 int val = (int)atol(value);
1895 wxResourceAddIdentifier(name, val, table);
1896 }
1897 else
1898 {
1899 wxLogWarning(_("#define %s must be an integer."), name);
1900 delete[] name;
1901 delete[] value;
1902 return FALSE;
1903 }
1904 delete[] name;
1905 delete[] value;
1906
1907 return TRUE;
1908 }
1909 else if (strcmp(wxResourceBuffer, "#include") == 0)
1910 {
1911 wxGetResourceToken(fd);
1912 char *name = copystring(wxResourceBuffer);
1913 char *actualName = name;
1914 if (name[0] == '"')
1915 actualName = name + 1;
1916 int len = strlen(name);
1917 if ((len > 0) && (name[len-1] == '"'))
1918 name[len-1] = 0;
1919 if (!wxResourceParseIncludeFile(actualName, table))
1920 {
1921 wxLogWarning(_("Could not find resource include file %s."), actualName);
1922 }
1923 delete[] name;
1924 return TRUE;
1925 }
1926 else if (strcmp(wxResourceBuffer, "static") != 0)
1927 {
1928 char buf[300];
1929 strcpy(buf, _("Found "));
1930 strncat(buf, wxResourceBuffer, 30);
1931 strcat(buf, _(", expected static, #include or #define\nwhilst parsing resource."));
1932 wxLogWarning(buf);
1933 return FALSE;
1934 }
1935
1936 // char
1937 if (!wxGetResourceToken(fd))
1938 {
1939 wxLogWarning(_("Unexpected end of file whilst parsing resource."));
1940 *eof = TRUE;
1941 return FALSE;
1942 }
1943
1944 if (strcmp(wxResourceBuffer, "char") != 0)
1945 {
1946 wxLogWarning(_("Expected 'char' whilst parsing resource."));
1947 return FALSE;
1948 }
1949
1950 // *name
1951 if (!wxGetResourceToken(fd))
1952 {
1953 wxLogWarning(_("Unexpected end of file whilst parsing resource."));
1954 *eof = TRUE;
1955 return FALSE;
1956 }
1957
1958 if (wxResourceBuffer[0] != '*')
1959 {
1960 wxLogWarning(_("Expected '*' whilst parsing resource."));
1961 return FALSE;
1962 }
1963 char nameBuf[100];
1964 strncpy(nameBuf, wxResourceBuffer+1, 99);
1965
1966 // =
1967 if (!wxGetResourceToken(fd))
1968 {
1969 wxLogWarning(_("Unexpected end of file whilst parsing resource."));
1970 *eof = TRUE;
1971 return FALSE;
1972 }
1973
1974 if (strcmp(wxResourceBuffer, "=") != 0)
1975 {
1976 wxLogWarning(_("Expected '=' whilst parsing resource."));
aad5220b
JS		 1977 return FALSE;
1978 }
1979
1980 // String
1981 if (!wxGetResourceToken(fd))
1982 {
e17e4f28 1983 wxLogWarning(_("Unexpected end of file whilst parsing resource."));
aad5220b
JS		 1984 *eof = TRUE;
1985 return FALSE;
1986 }
1987 else
1988 {
1989 if (!db.ReadPrologFromString(wxResourceBuffer))
1990 {
e17e4f28 1991 wxLogWarning(_("%s: ill-formed resource file syntax."), nameBuf);
aad5220b
JS		 1992 return FALSE;
1993 }
1994 }
1995 // Semicolon
1996 if (!wxGetResourceToken(fd))
1997 {
1998 *eof = TRUE;
1999 }
2000 return TRUE;
2001}
2002
2003/*
2004 * Parses string window style into integer window style
2005 */
8bbe427f 2006
aad5220b
JS		 2007/*
2008 * Style flag parsing, e.g.
2009 * "wxSYSTEM_MENU | wxBORDER" -> integer
2010 */
2011
d44f866a 2012wxChar* wxResourceParseWord(wxChar*s, int *i)
aad5220b
JS		 2013{
2014 if (!s)
d44f866a 2015 return (wxChar*) NULL;
aad5220b 2016
d44f866a
OK		 2017 static wxChar buf[150];
2018 int len = wxStrlen(s);
aad5220b
JS		 2019 int j = 0;
2020 int ii = *i;
223d09f6 2021 while ((ii < len) && (wxIsalpha(s[ii]) || (s[ii] == wxT('_'))))
aad5220b
JS		 2022 {
2023 buf[j] = s[ii];
2024 j ++;
2025 ii ++;
2026 }
2027 buf[j] = 0;
2028
2029 // Eat whitespace and conjunction characters
2030 while ((ii < len) &&
223d09f6 2031 ((s[ii] == wxT(' ')) || (s[ii] == wxT('|')) || (s[ii] == wxT(','))))
aad5220b
JS		 2032 {
2033 ii ++;
2034 }
2035 *i = ii;
2036 if (j == 0)
d44f866a 2037 return (wxChar*) NULL;
aad5220b
JS		 2038 else
2039 return buf;
2040}
2041
2042struct wxResourceBitListStruct
2043{
d44f866a 2044 wxChar *word;
aad5220b
JS		 2045 long bits;
2046};
2047
2048static wxResourceBitListStruct wxResourceBitListTable[] =
2049{
2050 /* wxListBox */
223d09f6
KB		 2051 { wxT("wxSINGLE"), wxLB_SINGLE },
2052 { wxT("wxMULTIPLE"), wxLB_MULTIPLE },
2053 { wxT("wxEXTENDED"), wxLB_EXTENDED },
2054 { wxT("wxLB_SINGLE"), wxLB_SINGLE },
2055 { wxT("wxLB_MULTIPLE"), wxLB_MULTIPLE },
2056 { wxT("wxLB_EXTENDED"), wxLB_EXTENDED },
2057 { wxT("wxLB_NEEDED_SB"), wxLB_NEEDED_SB },
2058 { wxT("wxLB_ALWAYS_SB"), wxLB_ALWAYS_SB },
2059 { wxT("wxLB_SORT"), wxLB_SORT },
2060 { wxT("wxLB_OWNERDRAW"), wxLB_OWNERDRAW },
2061 { wxT("wxLB_HSCROLL"), wxLB_HSCROLL },
8bbe427f 2062
aad5220b 2063 /* wxComboxBox */
223d09f6
KB		 2064 { wxT("wxCB_SIMPLE"), wxCB_SIMPLE },
2065 { wxT("wxCB_DROPDOWN"), wxCB_DROPDOWN },
2066 { wxT("wxCB_READONLY"), wxCB_READONLY },
2067 { wxT("wxCB_SORT"), wxCB_SORT },
8bbe427f 2068
aad5220b 2069 /* wxGauge */
223d09f6
KB		 2070 { wxT("wxGA_PROGRESSBAR"), wxGA_PROGRESSBAR },
2071 { wxT("wxGA_HORIZONTAL"), wxGA_HORIZONTAL },
2072 { wxT("wxGA_VERTICAL"), wxGA_VERTICAL },
aad5220b
JS		 2073
2074 /* wxTextCtrl */
223d09f6
KB		 2075 { wxT("wxPASSWORD"), wxPASSWORD},
2076 { wxT("wxPROCESS_ENTER"), wxPROCESS_ENTER},
2077 { wxT("wxTE_PASSWORD"), wxTE_PASSWORD},
2078 { wxT("wxTE_READONLY"), wxTE_READONLY},
2079 { wxT("wxTE_PROCESS_ENTER"), wxTE_PROCESS_ENTER},
2080 { wxT("wxTE_MULTILINE"), wxTE_MULTILINE},
2081 { wxT("wxTE_NO_VSCROLL"), wxTE_NO_VSCROLL},
aad5220b 2082
607d9061 2083 /* wxRadioBox/wxRadioButton */
223d09f6
KB		 2084 { wxT("wxRB_GROUP"), wxRB_GROUP },
2085 { wxT("wxRA_SPECIFY_COLS"), wxRA_SPECIFY_COLS },
2086 { wxT("wxRA_SPECIFY_ROWS"), wxRA_SPECIFY_ROWS },
2087 { wxT("wxRA_HORIZONTAL"), wxRA_HORIZONTAL },
2088 { wxT("wxRA_VERTICAL"), wxRA_VERTICAL },
607d9061
JS		 2089
2090 /* wxSlider */
223d09f6
KB		 2091 { wxT("wxSL_HORIZONTAL"), wxSL_HORIZONTAL },
2092 { wxT("wxSL_VERTICAL"), wxSL_VERTICAL },
2093 { wxT("wxSL_AUTOTICKS"), wxSL_AUTOTICKS },
2094 { wxT("wxSL_LABELS"), wxSL_LABELS },
2095 { wxT("wxSL_LEFT"), wxSL_LEFT },
2096 { wxT("wxSL_TOP"), wxSL_TOP },
2097 { wxT("wxSL_RIGHT"), wxSL_RIGHT },
2098 { wxT("wxSL_BOTTOM"), wxSL_BOTTOM },
2099 { wxT("wxSL_BOTH"), wxSL_BOTH },
2100 { wxT("wxSL_SELRANGE"), wxSL_SELRANGE },
607d9061
JS		 2101
2102 /* wxScrollBar */
223d09f6
KB		 2103 { wxT("wxSB_HORIZONTAL"), wxSB_HORIZONTAL },
2104 { wxT("wxSB_VERTICAL"), wxSB_VERTICAL },
607d9061
JS		 2105
2106 /* wxButton */
223d09f6
KB		 2107 { wxT("wxBU_AUTODRAW"), wxBU_AUTODRAW },
2108 { wxT("wxBU_NOAUTODRAW"), wxBU_NOAUTODRAW },
607d9061
JS		 2109
2110 /* wxTreeCtrl */
223d09f6
KB		 2111 { wxT("wxTR_HAS_BUTTONS"), wxTR_HAS_BUTTONS },
2112 { wxT("wxTR_EDIT_LABELS"), wxTR_EDIT_LABELS },
2113 { wxT("wxTR_LINES_AT_ROOT"), wxTR_LINES_AT_ROOT },
607d9061
JS		 2114
2115 /* wxListCtrl */
223d09f6
KB		 2116 { wxT("wxLC_ICON"), wxLC_ICON },
2117 { wxT("wxLC_SMALL_ICON"), wxLC_SMALL_ICON },
2118 { wxT("wxLC_LIST"), wxLC_LIST },
2119 { wxT("wxLC_REPORT"), wxLC_REPORT },
2120 { wxT("wxLC_ALIGN_TOP"), wxLC_ALIGN_TOP },
2121 { wxT("wxLC_ALIGN_LEFT"), wxLC_ALIGN_LEFT },
2122 { wxT("wxLC_AUTOARRANGE"), wxLC_AUTOARRANGE },
2123 { wxT("wxLC_USER_TEXT"), wxLC_USER_TEXT },
2124 { wxT("wxLC_EDIT_LABELS"), wxLC_EDIT_LABELS },
2125 { wxT("wxLC_NO_HEADER"), wxLC_NO_HEADER },
2126 { wxT("wxLC_NO_SORT_HEADER"), wxLC_NO_SORT_HEADER },
2127 { wxT("wxLC_SINGLE_SEL"), wxLC_SINGLE_SEL },
2128 { wxT("wxLC_SORT_ASCENDING"), wxLC_SORT_ASCENDING },
2129 { wxT("wxLC_SORT_DESCENDING"), wxLC_SORT_DESCENDING },
607d9061
JS		 2130
2131 /* wxSpinButton */
223d09f6
KB		 2132 { wxT("wxSP_VERTICAL"), wxSP_VERTICAL},
2133 { wxT("wxSP_HORIZONTAL"), wxSP_HORIZONTAL},
2134 { wxT("wxSP_ARROW_KEYS"), wxSP_ARROW_KEYS},
2135 { wxT("wxSP_WRAP"), wxSP_WRAP},
607d9061
JS		 2136
2137 /* wxSplitterWnd */
223d09f6
KB		 2138 { wxT("wxSP_NOBORDER"), wxSP_NOBORDER},
2139 { wxT("wxSP_3D"), wxSP_3D},
2140 { wxT("wxSP_BORDER"), wxSP_BORDER},
607d9061
JS		 2141
2142 /* wxTabCtrl */
223d09f6
KB		 2143 { wxT("wxTC_MULTILINE"), wxTC_MULTILINE},
2144 { wxT("wxTC_RIGHTJUSTIFY"), wxTC_RIGHTJUSTIFY},
2145 { wxT("wxTC_FIXEDWIDTH"), wxTC_FIXEDWIDTH},
2146 { wxT("wxTC_OWNERDRAW"), wxTC_OWNERDRAW},
607d9061
JS		 2147
2148 /* wxStatusBar95 */
223d09f6 2149 { wxT("wxST_SIZEGRIP"), wxST_SIZEGRIP},
607d9061
JS		 2150
2151 /* wxControl */
223d09f6
KB		 2152 { wxT("wxFIXED_LENGTH"), wxFIXED_LENGTH},
2153 { wxT("wxALIGN_LEFT"), wxALIGN_LEFT},
2154 { wxT("wxALIGN_CENTER"), wxALIGN_CENTER},
2155 { wxT("wxALIGN_CENTRE"), wxALIGN_CENTRE},
2156 { wxT("wxALIGN_RIGHT"), wxALIGN_RIGHT},
2157 { wxT("wxCOLOURED"), wxCOLOURED},
8bbe427f 2158
aad5220b 2159 /* wxToolBar */
223d09f6
KB		 2160 { wxT("wxTB_3DBUTTONS"), wxTB_3DBUTTONS},
2161 { wxT("wxTB_HORIZONTAL"), wxTB_HORIZONTAL},
2162 { wxT("wxTB_VERTICAL"), wxTB_VERTICAL},
2163 { wxT("wxTB_FLAT"), wxTB_FLAT},
aad5220b 2164
794005c0 2165 /* wxDialog */
223d09f6 2166 { wxT("wxDIALOG_MODAL"), wxDIALOG_MODAL },
794005c0 2167
aad5220b 2168 /* Generic */
223d09f6
KB		 2169 { wxT("wxVSCROLL"), wxVSCROLL },
2170 { wxT("wxHSCROLL"), wxHSCROLL },
2171 { wxT("wxCAPTION"), wxCAPTION },
2172 { wxT("wxSTAY_ON_TOP"), wxSTAY_ON_TOP},
2173 { wxT("wxICONIZE"), wxICONIZE},
2174 { wxT("wxMINIMIZE"), wxICONIZE},
2175 { wxT("wxMAXIMIZE"), wxMAXIMIZE},
2176 { wxT("wxSDI"), 0},
2177 { wxT("wxMDI_PARENT"), 0},
2178 { wxT("wxMDI_CHILD"), 0},
2179 { wxT("wxTHICK_FRAME"), wxTHICK_FRAME},
2180 { wxT("wxRESIZE_BORDER"), wxRESIZE_BORDER},
2181 { wxT("wxSYSTEM_MENU"), wxSYSTEM_MENU},
2182 { wxT("wxMINIMIZE_BOX"), wxMINIMIZE_BOX},
2183 { wxT("wxMAXIMIZE_BOX"), wxMAXIMIZE_BOX},
2184 { wxT("wxRESIZE_BOX"), wxRESIZE_BOX},
2185 { wxT("wxDEFAULT_FRAME_STYLE"), wxDEFAULT_FRAME_STYLE},
2186 { wxT("wxDEFAULT_FRAME"), wxDEFAULT_FRAME_STYLE},
2187 { wxT("wxDEFAULT_DIALOG_STYLE"), wxDEFAULT_DIALOG_STYLE},
2188 { wxT("wxBORDER"), wxBORDER},
2189 { wxT("wxRETAINED"), wxRETAINED},
2190 { wxT("wxNATIVE_IMPL"), 0},
2191 { wxT("wxEXTENDED_IMPL"), 0},
2192 { wxT("wxBACKINGSTORE"), wxBACKINGSTORE},
2193// { wxT("wxFLAT"), wxFLAT},
2194// { wxT("wxMOTIF_RESIZE"), wxMOTIF_RESIZE},
2195 { wxT("wxFIXED_LENGTH"), 0},
2196 { wxT("wxDOUBLE_BORDER"), wxDOUBLE_BORDER},
2197 { wxT("wxSUNKEN_BORDER"), wxSUNKEN_BORDER},
2198 { wxT("wxRAISED_BORDER"), wxRAISED_BORDER},
2199 { wxT("wxSIMPLE_BORDER"), wxSIMPLE_BORDER},
2200 { wxT("wxSTATIC_BORDER"), wxSTATIC_BORDER},
2201 { wxT("wxTRANSPARENT_WINDOW"), wxTRANSPARENT_WINDOW},
2202 { wxT("wxNO_BORDER"), wxNO_BORDER},
2203 { wxT("wxCLIP_CHILDREN"), wxCLIP_CHILDREN},
2204 { wxT("wxTAB_TRAVERSAL"), 0}, // Compatibility only
2205
2206 { wxT("wxTINY_CAPTION_HORIZ"), wxTINY_CAPTION_HORIZ},
2207 { wxT("wxTINY_CAPTION_VERT"), wxTINY_CAPTION_VERT},
aad5220b
JS		 2208
2209 // Text font families
223d09f6
KB		 2210 { wxT("wxDEFAULT"), wxDEFAULT},
2211 { wxT("wxDECORATIVE"), wxDECORATIVE},
2212 { wxT("wxROMAN"), wxROMAN},
2213 { wxT("wxSCRIPT"), wxSCRIPT},
2214 { wxT("wxSWISS"), wxSWISS},
2215 { wxT("wxMODERN"), wxMODERN},
2216 { wxT("wxTELETYPE"), wxTELETYPE},
2217 { wxT("wxVARIABLE"), wxVARIABLE},
2218 { wxT("wxFIXED"), wxFIXED},
2219 { wxT("wxNORMAL"), wxNORMAL},
2220 { wxT("wxLIGHT"), wxLIGHT},
2221 { wxT("wxBOLD"), wxBOLD},
2222 { wxT("wxITALIC"), wxITALIC},
2223 { wxT("wxSLANT"), wxSLANT},
2224 { wxT("wxSOLID"), wxSOLID},
2225 { wxT("wxDOT"), wxDOT},
2226 { wxT("wxLONG_DASH"), wxLONG_DASH},
2227 { wxT("wxSHORT_DASH"), wxSHORT_DASH},
2228 { wxT("wxDOT_DASH"), wxDOT_DASH},
2229 { wxT("wxUSER_DASH"), wxUSER_DASH},
2230 { wxT("wxTRANSPARENT"), wxTRANSPARENT},
2231 { wxT("wxSTIPPLE"), wxSTIPPLE},
2232 { wxT("wxBDIAGONAL_HATCH"), wxBDIAGONAL_HATCH},
2233 { wxT("wxCROSSDIAG_HATCH"), wxCROSSDIAG_HATCH},
2234 { wxT("wxFDIAGONAL_HATCH"), wxFDIAGONAL_HATCH},
2235 { wxT("wxCROSS_HATCH"), wxCROSS_HATCH},
2236 { wxT("wxHORIZONTAL_HATCH"), wxHORIZONTAL_HATCH},
2237 { wxT("wxVERTICAL_HATCH"), wxVERTICAL_HATCH},
2238 { wxT("wxJOIN_BEVEL"), wxJOIN_BEVEL},
2239 { wxT("wxJOIN_MITER"), wxJOIN_MITER},
2240 { wxT("wxJOIN_ROUND"), wxJOIN_ROUND},
2241 { wxT("wxCAP_ROUND"), wxCAP_ROUND},
2242 { wxT("wxCAP_PROJECTING"), wxCAP_PROJECTING},
2243 { wxT("wxCAP_BUTT"), wxCAP_BUTT},
aad5220b
JS		 2244
2245 // Logical ops
223d09f6
KB		 2246 { wxT("wxCLEAR"), wxCLEAR},
2247 { wxT("wxXOR"), wxXOR},
2248 { wxT("wxINVERT"), wxINVERT},
2249 { wxT("wxOR_REVERSE"), wxOR_REVERSE},
2250 { wxT("wxAND_REVERSE"), wxAND_REVERSE},
2251 { wxT("wxCOPY"), wxCOPY},
2252 { wxT("wxAND"), wxAND},
2253 { wxT("wxAND_INVERT"), wxAND_INVERT},
2254 { wxT("wxNO_OP"), wxNO_OP},
2255 { wxT("wxNOR"), wxNOR},
2256 { wxT("wxEQUIV"), wxEQUIV},
2257 { wxT("wxSRC_INVERT"), wxSRC_INVERT},
2258 { wxT("wxOR_INVERT"), wxOR_INVERT},
2259 { wxT("wxNAND"), wxNAND},
2260 { wxT("wxOR"), wxOR},
2261 { wxT("wxSET"), wxSET},
2262
2263 { wxT("wxFLOOD_SURFACE"), wxFLOOD_SURFACE},
2264 { wxT("wxFLOOD_BORDER"), wxFLOOD_BORDER},
2265 { wxT("wxODDEVEN_RULE"), wxODDEVEN_RULE},
2266 { wxT("wxWINDING_RULE"), wxWINDING_RULE},
2267 { wxT("wxHORIZONTAL"), wxHORIZONTAL},
2268 { wxT("wxVERTICAL"), wxVERTICAL},
2269 { wxT("wxBOTH"), wxBOTH},
2270 { wxT("wxCENTER_FRAME"), wxCENTER_FRAME},
2271 { wxT("wxOK"), wxOK},
2272 { wxT("wxYES_NO"), wxYES_NO},
2273 { wxT("wxCANCEL"), wxCANCEL},
2274 { wxT("wxYES"), wxYES},
2275 { wxT("wxNO"), wxNO},
2276 { wxT("wxICON_EXCLAMATION"), wxICON_EXCLAMATION},
2277 { wxT("wxICON_HAND"), wxICON_HAND},
2278 { wxT("wxICON_QUESTION"), wxICON_QUESTION},
2279 { wxT("wxICON_INFORMATION"), wxICON_INFORMATION},
2280 { wxT("wxICON_STOP"), wxICON_STOP},
2281 { wxT("wxICON_ASTERISK"), wxICON_ASTERISK},
2282 { wxT("wxICON_MASK"), wxICON_MASK},
2283 { wxT("wxCENTRE"), wxCENTRE},
2284 { wxT("wxCENTER"), wxCENTRE},
2285 { wxT("wxUSER_COLOURS"), wxUSER_COLOURS},
2286 { wxT("wxVERTICAL_LABEL"), 0},
2287 { wxT("wxHORIZONTAL_LABEL"), 0},
aad5220b
JS		 2288
2289 // Bitmap types (not strictly styles)
223d09f6
KB		 2290 { wxT("wxBITMAP_TYPE_XPM"), wxBITMAP_TYPE_XPM},
2291 { wxT("wxBITMAP_TYPE_XBM"), wxBITMAP_TYPE_XBM},
2292 { wxT("wxBITMAP_TYPE_BMP"), wxBITMAP_TYPE_BMP},
2293 { wxT("wxBITMAP_TYPE_RESOURCE"), wxBITMAP_TYPE_BMP_RESOURCE},
2294 { wxT("wxBITMAP_TYPE_BMP_RESOURCE"), wxBITMAP_TYPE_BMP_RESOURCE},
2295 { wxT("wxBITMAP_TYPE_GIF"), wxBITMAP_TYPE_GIF},
2296 { wxT("wxBITMAP_TYPE_TIF"), wxBITMAP_TYPE_TIF},
2297 { wxT("wxBITMAP_TYPE_ICO"), wxBITMAP_TYPE_ICO},
2298 { wxT("wxBITMAP_TYPE_ICO_RESOURCE"), wxBITMAP_TYPE_ICO_RESOURCE},
2299 { wxT("wxBITMAP_TYPE_CUR"), wxBITMAP_TYPE_CUR},
2300 { wxT("wxBITMAP_TYPE_CUR_RESOURCE"), wxBITMAP_TYPE_CUR_RESOURCE},
2301 { wxT("wxBITMAP_TYPE_XBM_DATA"), wxBITMAP_TYPE_XBM_DATA},
2302 { wxT("wxBITMAP_TYPE_XPM_DATA"), wxBITMAP_TYPE_XPM_DATA},
2303 { wxT("wxBITMAP_TYPE_ANY"), wxBITMAP_TYPE_ANY}
aad5220b
JS		 2304};
2305
2306static int wxResourceBitListCount = (sizeof(wxResourceBitListTable)/sizeof(wxResourceBitListStruct));
2307
fd71308f 2308long wxParseWindowStyle(const wxString& bitListString)
aad5220b
JS		 2309{
2310 int i = 0;
d44f866a 2311 wxChar *word;
aad5220b 2312 long bitList = 0;
913df6f2
DW		 2313 word = wxResourceParseWord(WXSTRINGCAST bitListString, &i);
2314 while (word != NULL)
aad5220b
JS		 2315 {
2316 bool found = FALSE;
2317 int j;
2318 for (j = 0; j < wxResourceBitListCount; j++)
d44f866a 2319 if (wxStrcmp(wxResourceBitListTable[j].word, word) == 0)
aad5220b
JS		 2320 {
2321 bitList |= wxResourceBitListTable[j].bits;
2322 found = TRUE;
2323 break;
2324 }
2325 if (!found)
2326 {
e17e4f28 2327 wxLogWarning(_("Unrecognized style %s whilst parsing resource."), word);
aad5220b
JS		 2328 return 0;
2329 }
913df6f2 2330 word = wxResourceParseWord(WXSTRINGCAST bitListString, &i);
aad5220b
JS		 2331 }
2332 return bitList;
2333}
2334
2335/*
2336 * Load a bitmap from a wxWindows resource, choosing an optimum
2337 * depth and appropriate type.
2338 */
8bbe427f 2339
fd71308f 2340wxBitmap wxResourceCreateBitmap(const wxString& resource, wxResourceTable *table)
aad5220b
JS		 2341{
2342 if (!table)
2343 table = wxDefaultResourceTable;
8bbe427f 2344
aad5220b
JS		 2345 wxItemResource *item = table->FindResource(resource);
2346 if (item)
2347 {
223d09f6 2348 if ((item->GetType() == wxT("")) || (item->GetType() != wxT("wxBitmap")))
aad5220b 2349 {
d44f866a 2350 wxLogWarning(_("%s not a bitmap resource specification."), (const wxChar*) resource);
fd71308f 2351 return wxNullBitmap;
aad5220b
JS		 2352 }
2353 int thisDepth = wxDisplayDepth();
2354 long thisNoColours = (long)pow(2.0, (double)thisDepth);
2355
c67daf87 2356 wxItemResource *optResource = (wxItemResource *) NULL;
8bbe427f 2357
aad5220b
JS		 2358 // Try to find optimum bitmap for this platform/colour depth
2359 wxNode *node = item->GetChildren().First();
2360 while (node)
2361 {
2362 wxItemResource *child = (wxItemResource *)node->Data();
2363 int platform = (int)child->GetValue2();
2364 int noColours = (int)child->GetValue3();
2365/*
2366 char *name = child->GetName();
2367 int bitmapType = (int)child->GetValue1();
2368 int xRes = child->GetWidth();
2369 int yRes = child->GetHeight();
2370*/
2371
2372 switch (platform)
2373 {
2374 case RESOURCE_PLATFORM_ANY:
2375 {
2376 if (!optResource && ((noColours == 0) || (noColours <= thisNoColours)))
2377 optResource = child;
2378 else
2379 {
2380 // Maximise the number of colours.
2381 // If noColours is zero (unspecified), then assume this
2382 // is the right one.
2383 if ((noColours == 0) || ((noColours <= thisNoColours) && (noColours > optResource->GetValue3())))
2384 optResource = child;
2385 }
2386 break;
2387 }
2049ba38 2388#ifdef __WXMSW__
aad5220b
JS		 2389 case RESOURCE_PLATFORM_WINDOWS:
2390 {
2391 if (!optResource && ((noColours == 0) || (noColours <= thisNoColours)))
2392 optResource = child;
2393 else
2394 {
2395 // Maximise the number of colours
2396 if ((noColours > 0) || ((noColours <= thisNoColours) && (noColours > optResource->GetValue3())))
2397 optResource = child;
2398 }
2399 break;
2400 }
2401#endif
6de97a3b 2402#ifdef __WXGTK__
aad5220b
JS		 2403 case RESOURCE_PLATFORM_X:
2404 {
2405 if (!optResource && ((noColours == 0) || (noColours <= thisNoColours)))
2406 optResource = child;
2407 else
2408 {
2409 // Maximise the number of colours
2410 if ((noColours == 0) || ((noColours <= thisNoColours) && (noColours > optResource->GetValue3())))
2411 optResource = child;
2412 }
2413 break;
2414 }
2415#endif
2416#ifdef wx_max
2417 case RESOURCE_PLATFORM_MAC:
2418 {
2419 if (!optResource && ((noColours == 0) || (noColours <= thisNoColours)))
2420 optResource = child;
2421 else
2422 {
2423 // Maximise the number of colours
2424 if ((noColours == 0) || ((noColours <= thisNoColours) && (noColours > optResource->GetValue3())))
2425 optResource = child;
2426 }
2427 break;
2428 }
2429#endif
2430 default:
2431 break;
2432 }
2433 node = node->Next();
2434 }
2435 // If no matching resource, fail.
2436 if (!optResource)
fd71308f 2437 return wxNullBitmap;
aad5220b 2438
fd71308f 2439 wxString name = optResource->GetName();
aad5220b 2440 int bitmapType = (int)optResource->GetValue1();
aad5220b
JS		 2441 switch (bitmapType)
2442 {
2443 case wxBITMAP_TYPE_XBM_DATA:
2444 {
6de97a3b 2445#ifdef __WXGTK__
aad5220b
JS		 2446 wxItemResource *item = table->FindResource(name);
2447 if (!item)
2448 {
e17e4f28 2449 wxLogWarning(_("Failed to find XBM resource %s.\n"
d44f866a 2450 "Forgot to use wxResourceLoadBitmapData?"), (const wxChar*) name);
8bbe427f 2451 return wxNullBitmap;
aad5220b 2452 }
fd71308f 2453 return wxBitmap(item->GetValue1(), (int)item->GetValue2(), (int)item->GetValue3()) ;
aad5220b 2454#else
e17e4f28 2455 wxLogWarning(_("No XBM facility available!"));
aad5220b 2456 break;
13111b2a 2457#endif
aad5220b
JS		 2458 }
2459 case wxBITMAP_TYPE_XPM_DATA:
2460 {
47d67540 2461#if (defined(__WXGTK__)) || (defined(__WXMSW__) && wxUSE_XPM_IN_MSW)
aad5220b
JS		 2462 wxItemResource *item = table->FindResource(name);
2463 if (!item)
2464 {
e17e4f28 2465 wxLogWarning(_("Failed to find XPM resource %s.\n"
d44f866a 2466 "Forgot to use wxResourceLoadBitmapData?"), (const wxChar*) name);
8bbe427f 2467 return wxNullBitmap;
aad5220b 2468 }
45b776d4 2469 return wxBitmap((char **)item->GetValue1());
aad5220b 2470#else
e17e4f28 2471 wxLogWarning(_("No XPM facility available!"));
aad5220b 2472 break;
13111b2a 2473#endif
aad5220b
JS		 2474 }
2475 default:
2476 {
fd71308f 2477 return wxBitmap(name, bitmapType);
aad5220b
JS		 2478 }
2479 }
fd71308f 2480 return wxNullBitmap;
aad5220b
JS		 2481 }
2482 else
2483 {
d44f866a 2484 wxLogWarning(_("Bitmap resource specification %s not found."), (const wxChar*) resource);
fd71308f 2485 return wxNullBitmap;
aad5220b
JS		 2486 }
2487}
2488
2489/*
2490 * Load an icon from a wxWindows resource, choosing an optimum
2491 * depth and appropriate type.
2492 */
8bbe427f 2493
fd71308f 2494wxIcon wxResourceCreateIcon(const wxString& resource, wxResourceTable *table)
aad5220b
JS		 2495{
2496 if (!table)
fd71308f 2497 table = wxDefaultResourceTable;
8bbe427f 2498
aad5220b
JS		 2499 wxItemResource *item = table->FindResource(resource);
2500 if (item)
2501 {
223d09f6 2502 if ((item->GetType() == wxT("")) || wxStrcmp(item->GetType(), wxT("wxIcon")) != 0)
aad5220b 2503 {
d44f866a 2504 wxLogWarning(_("%s not an icon resource specification."), (const wxChar*) resource);
fd71308f 2505 return wxNullIcon;
aad5220b
JS		 2506 }
2507 int thisDepth = wxDisplayDepth();
2508 long thisNoColours = (long)pow(2.0, (double)thisDepth);
2509
c67daf87 2510 wxItemResource *optResource = (wxItemResource *) NULL;
8bbe427f 2511
aad5220b
JS		 2512 // Try to find optimum icon for this platform/colour depth
2513 wxNode *node = item->GetChildren().First();
2514 while (node)
2515 {
2516 wxItemResource *child = (wxItemResource *)node->Data();
2517 int platform = (int)child->GetValue2();
2518 int noColours = (int)child->GetValue3();
2519/*
2520 char *name = child->GetName();
2521 int bitmapType = (int)child->GetValue1();
2522 int xRes = child->GetWidth();
2523 int yRes = child->GetHeight();
2524*/
2525
2526 switch (platform)
2527 {
2528 case RESOURCE_PLATFORM_ANY:
2529 {
2530 if (!optResource && ((noColours == 0) || (noColours <= thisNoColours)))
2531 optResource = child;
2532 else
2533 {
2534 // Maximise the number of colours.
2535 // If noColours is zero (unspecified), then assume this
2536 // is the right one.
2537 if ((noColours == 0) || ((noColours <= thisNoColours) && (noColours > optResource->GetValue3())))
2538 optResource = child;
2539 }
2540 break;
2541 }
2049ba38 2542#ifdef __WXMSW__
aad5220b
JS		 2543 case RESOURCE_PLATFORM_WINDOWS:
2544 {
2545 if (!optResource && ((noColours == 0) || (noColours <= thisNoColours)))
2546 optResource = child;
2547 else
2548 {
2549 // Maximise the number of colours
2550 if ((noColours > 0) || ((noColours <= thisNoColours) && (noColours > optResource->GetValue3())))
2551 optResource = child;
2552 }
2553 break;
2554 }
2555#endif
6de97a3b 2556#ifdef __WXGTK__
aad5220b
JS		 2557 case RESOURCE_PLATFORM_X:
2558 {
2559 if (!optResource && ((noColours == 0) || (noColours <= thisNoColours)))
2560 optResource = child;
2561 else
2562 {
2563 // Maximise the number of colours
2564 if ((noColours == 0) || ((noColours <= thisNoColours) && (noColours > optResource->GetValue3())))
2565 optResource = child;
2566 }
2567 break;
2568 }
2569#endif
2570#ifdef wx_max
2571 case RESOURCE_PLATFORM_MAC:
2572 {
2573 if (!optResource && ((noColours == 0) || (noColours <= thisNoColours)))
2574 optResource = child;
2575 else
2576 {
2577 // Maximise the number of colours
2578 if ((noColours == 0) || ((noColours <= thisNoColours) && (noColours > optResource->GetValue3())))
2579 optResource = child;
2580 }
2581 break;
2582 }
2583#endif
2584 default:
2585 break;
2586 }
2587 node = node->Next();
2588 }
2589 // If no matching resource, fail.
2590 if (!optResource)
fd71308f 2591 return wxNullIcon;
aad5220b 2592
fd71308f 2593 wxString name = optResource->GetName();
aad5220b 2594 int bitmapType = (int)optResource->GetValue1();
aad5220b
JS		 2595 switch (bitmapType)
2596 {
2597 case wxBITMAP_TYPE_XBM_DATA:
2598 {
6de97a3b 2599#ifdef __WXGTK__
aad5220b
JS		 2600 wxItemResource *item = table->FindResource(name);
2601 if (!item)
2602 {
e17e4f28 2603 wxLogWarning(_("Failed to find XBM resource %s.\n"
d44f866a 2604 "Forgot to use wxResourceLoadIconData?"), (const wxChar*) name);
8bbe427f 2605 return wxNullIcon;
aad5220b 2606 }
e52f60e6 2607 return wxIcon((const char **)item->GetValue1(), (int)item->GetValue2(), (int)item->GetValue3());
aad5220b 2608#else
e17e4f28 2609 wxLogWarning(_("No XBM facility available!"));
aad5220b 2610 break;
13111b2a 2611#endif
aad5220b
JS		 2612 }
2613 case wxBITMAP_TYPE_XPM_DATA:
2614 {
2615 // *** XPM ICON NOT YET IMPLEMENTED IN WXWINDOWS ***
2616/*
47d67540 2617#if (defined(__WXGTK__)) || (defined(__WXMSW__) && wxUSE_XPM_IN_MSW)
aad5220b
JS		 2618 wxItemResource *item = table->FindResource(name);
2619 if (!item)
2620 {
2621 char buf[400];
1a5a8367 2622 sprintf(buf, _("Failed to find XPM resource %s.\nForgot to use wxResourceLoadIconData?"), name);
e17e4f28 2623 wxLogWarning(buf);
aad5220b
JS		 2624 return NULL;
2625 }
fd71308f 2626 return wxIcon((char **)item->GetValue1());
aad5220b 2627#else
e17e4f28 2628 wxLogWarning(_("No XPM facility available!"));
aad5220b
JS		 2629#endif
2630*/
e17e4f28 2631 wxLogWarning(_("No XPM icon facility available!"));
aad5220b
JS		 2632 break;
2633 }
2634 default:
2635 {
6de97a3b 2636#ifdef __WXGTK__
d44f866a 2637 wxLogWarning(_("Icon resource specification %s not found."), (const wxChar*) resource);
6de97a3b 2638#else
fd71308f 2639 return wxIcon(name, bitmapType);
6de97a3b 2640#endif
aad5220b
JS		 2641 break;
2642 }
2643 }
fd71308f 2644 return wxNullIcon;
aad5220b
JS		 2645 }
2646 else
2647 {
d44f866a 2648 wxLogWarning(_("Icon resource specification %s not found."), (const wxChar*) resource);
c0ed460c 2649 return wxNullIcon;
aad5220b
JS		 2650 }
2651}
2652
2653wxMenu *wxResourceCreateMenu(wxItemResource *item)
2654{
2655 wxMenu *menu = new wxMenu;
2656 wxNode *node = item->GetChildren().First();
2657 while (node)
2658 {
2659 wxItemResource *child = (wxItemResource *)node->Data();
223d09f6 2660 if ((child->GetType() != wxT("")) && (child->GetType() == wxT("wxMenuSeparator")))
aad5220b
JS		 2661 menu->AppendSeparator();
2662 else if (child->GetChildren().Number() > 0)
2663 {
2664 wxMenu *subMenu = wxResourceCreateMenu(child);
2665 if (subMenu)
2666 menu->Append((int)child->GetValue1(), child->GetTitle(), subMenu, child->GetValue4());
2667 }
2668 else
2669 {
2670 menu->Append((int)child->GetValue1(), child->GetTitle(), child->GetValue4(), (child->GetValue2() != 0));
2671 }
2672 node = node->Next();
2673 }
2674 return menu;
2675}
2676
fd71308f 2677wxMenuBar *wxResourceCreateMenuBar(const wxString& resource, wxResourceTable *table, wxMenuBar *menuBar)
aad5220b
JS		 2678{
2679 if (!table)
2680 table = wxDefaultResourceTable;
8bbe427f 2681
aad5220b 2682 wxItemResource *menuResource = table->FindResource(resource);
223d09f6 2683 if (menuResource && (menuResource->GetType() != wxT("")) && (menuResource->GetType() == wxT("wxMenu")))
aad5220b
JS		 2684 {
2685 if (!menuBar)
2686 menuBar = new wxMenuBar;
2687 wxNode *node = menuResource->GetChildren().First();
2688 while (node)
2689 {
2690 wxItemResource *child = (wxItemResource *)node->Data();
2691 wxMenu *menu = wxResourceCreateMenu(child);
2692 if (menu)
2693 menuBar->Append(menu, child->GetTitle());
2694 node = node->Next();
2695 }
2696 return menuBar;
2697 }
c67daf87 2698 return (wxMenuBar *) NULL;
aad5220b
JS		 2699}
2700
fd71308f 2701wxMenu *wxResourceCreateMenu(const wxString& resource, wxResourceTable *table)
aad5220b
JS		 2702{
2703 if (!table)
2704 table = wxDefaultResourceTable;
8bbe427f 2705
aad5220b 2706 wxItemResource *menuResource = table->FindResource(resource);
223d09f6 2707 if (menuResource && (menuResource->GetType() != wxT("")) && (menuResource->GetType() == wxT("wxMenu")))
aad5220b
JS		 2708// if (menuResource && (menuResource->GetType() == wxTYPE_MENU))
2709 return wxResourceCreateMenu(menuResource);
c67daf87 2710 return (wxMenu *) NULL;
aad5220b
JS		 2711}
2712
2713// Global equivalents (so don't have to refer to default table explicitly)
fd71308f 2714bool wxResourceParseData(const wxString& resource, wxResourceTable *table)
aad5220b
JS		 2715{
2716 if (!table)
2717 table = wxDefaultResourceTable;
8bbe427f 2718
aad5220b
JS		 2719 return table->ParseResourceData(resource);
2720}
2721
fd71308f 2722bool wxResourceParseFile(const wxString& filename, wxResourceTable *table)
aad5220b
JS		 2723{
2724 if (!table)
2725 table = wxDefaultResourceTable;
8bbe427f 2726
aad5220b
JS		 2727 return table->ParseResourceFile(filename);
2728}
2729
2730// Register XBM/XPM data
fd71308f 2731bool wxResourceRegisterBitmapData(const wxString& name, char bits[], int width, int height, wxResourceTable *table)
aad5220b
JS		 2732{
2733 if (!table)
2734 table = wxDefaultResourceTable;
8bbe427f 2735
aad5220b
JS		 2736 return table->RegisterResourceBitmapData(name, bits, width, height);
2737}
2738
fd71308f 2739bool wxResourceRegisterBitmapData(const wxString& name, char **data, wxResourceTable *table)
aad5220b
JS		 2740{
2741 if (!table)
2742 table = wxDefaultResourceTable;
2743
2744 return table->RegisterResourceBitmapData(name, data);
2745}
2746
2747void wxResourceClear(wxResourceTable *table)
2748{
2749 if (!table)
2750 table = wxDefaultResourceTable;
2751
2752 table->ClearTable();
2753}
2754
2755/*
2756 * Identifiers
2757 */
2758
fd71308f 2759bool wxResourceAddIdentifier(const wxString& name, int value, wxResourceTable *table)
aad5220b
JS		 2760{
2761 if (!table)
2762 table = wxDefaultResourceTable;
8bbe427f 2763
197dd9af 2764 table->identifiers.Put(name, (wxObject *)(long)value);
aad5220b
JS		 2765 return TRUE;
2766}
2767
fd71308f 2768int wxResourceGetIdentifier(const wxString& name, wxResourceTable *table)
aad5220b
JS		 2769{
2770 if (!table)
2771 table = wxDefaultResourceTable;
8bbe427f 2772
48c12cb1 2773 return (int)(long)table->identifiers.Get(name);
aad5220b
JS		 2774}
2775
2776/*
2777 * Parse #include file for #defines (only)
2778 */
2779
fd71308f 2780bool wxResourceParseIncludeFile(const wxString& f, wxResourceTable *table)
aad5220b
JS		 2781{
2782 if (!table)
2783 table = wxDefaultResourceTable;
8bbe427f 2784
d44f866a 2785 FILE *fd = fopen(f.fn_str(), "r");
aad5220b
JS		 2786 if (!fd)
2787 {
2788 return FALSE;
2789 }
2790 while (wxGetResourceToken(fd))
2791 {
2792 if (strcmp(wxResourceBuffer, "#define") == 0)
2793 {
2794 wxGetResourceToken(fd);
dcf924a3 2795 wxChar *name = copystring(wxConvCurrent->cMB2WX(wxResourceBuffer));
aad5220b 2796 wxGetResourceToken(fd);
dcf924a3 2797 wxChar *value = copystring(wxConvCurrent->cMB2WX(wxResourceBuffer));
d44f866a 2798 if (wxIsdigit(value[0]))
aad5220b 2799 {
d44f866a 2800 int val = (int)wxAtol(value);
aad5220b
JS		 2801 wxResourceAddIdentifier(name, val, table);
2802 }
2803 delete[] name;
2804 delete[] value;
2805 }
2806 }
2807 fclose(fd);
2808 return TRUE;
2809}
2810
2811/*
2812 * Reading strings as if they were .wxr files
2813 */
2814
2815static int getc_string(char *s)
2816{
2817 int ch = s[wxResourceStringPtr];
2818 if (ch == 0)
2819 return EOF;
2820 else
2821 {
2822 wxResourceStringPtr ++;
2823 return ch;
2824 }
2825}
2826
fd71308f 2827static int ungetc_string()
aad5220b
JS		 2828{
2829 wxResourceStringPtr --;
2830 return 0;
2831}
2832
2833bool wxEatWhiteSpaceString(char *s)
2834{
631cefff 2835 int ch = 0;
aad5220b 2836
631cefff 2837 while ((ch = getc_string(s)) != EOF)
aad5220b 2838 {
631cefff
BM		 2839 switch (ch)
2840 {
2841 case ' ':
2842 case 0x0a:
2843 case 0x0d:
2844 case 0x09:
2845 break;
2846 case '/':
2847 {
2848 int prev_ch = ch;
2849 ch = getc_string(s);
2850 if (ch == EOF)
2851 {
2852 ungetc_string();
2853 return TRUE;
2854 }
2855
2856 if (ch == '*')
2857 {
2858 // Eat C comment
2859 prev_ch = 0;
2860 while ((ch = getc_string(s)) != EOF)
2861 {
2862 if (ch == '/' && prev_ch == '*')
2863 break;
2864 prev_ch = ch;
2865 }
2866 }
2867 else
2868 {
2869 ungetc_string();
2870 ungetc_string();
2871 return TRUE;
2872 }
2873 }
2874 break;
2875 default:
aad5220b 2876 ungetc_string();
631cefff 2877 return TRUE;
913df6f2 2878
631cefff 2879 }
aad5220b 2880 }
631cefff 2881 return FALSE;
aad5220b
JS		 2882}
2883
2884bool wxGetResourceTokenString(char *s)
2885{
2886 if (!wxResourceBuffer)
2887 wxReallocateResourceBuffer();
2888 wxResourceBuffer[0] = 0;
2889 wxEatWhiteSpaceString(s);
2890
2891 int ch = getc_string(s);
2892 if (ch == '"')
2893 {
2894 // Get string
2895 wxResourceBufferCount = 0;
2896 ch = getc_string(s);
2897 while (ch != '"')
2898 {
2899 int actualCh = ch;
2900 if (ch == EOF)
2901 {
2902 wxResourceBuffer[wxResourceBufferCount] = 0;
2903 return FALSE;
2904 }
2905 // Escaped characters
2906 else if (ch == '\\')
2907 {
2908 int newCh = getc_string(s);
2909 if (newCh == '"')
2910 actualCh = '"';
2911 else if (newCh == 10)
2912 actualCh = 10;
2913 else
2914 {
2915 ungetc_string();
2916 }
2917 }
2918
2919 if (wxResourceBufferCount >= wxResourceBufferSize-1)
2920 wxReallocateResourceBuffer();
2921 wxResourceBuffer[wxResourceBufferCount] = (char)actualCh;
2922 wxResourceBufferCount ++;
2923 ch = getc_string(s);
2924 }
2925 wxResourceBuffer[wxResourceBufferCount] = 0;
2926 }
2927 else
2928 {
2929 wxResourceBufferCount = 0;
2930 // Any other token
2931 while (ch != ' ' && ch != EOF && ch != ' ' && ch != 13 && ch != 9 && ch != 10)
2932 {
2933 if (wxResourceBufferCount >= wxResourceBufferSize-1)
2934 wxReallocateResourceBuffer();
2935 wxResourceBuffer[wxResourceBufferCount] = (char)ch;
2936 wxResourceBufferCount ++;
8bbe427f 2937
aad5220b
JS		 2938 ch = getc_string(s);
2939 }
2940 wxResourceBuffer[wxResourceBufferCount] = 0;
2941 if (ch == EOF)
2942 return FALSE;
2943 }
2944 return TRUE;
2945}
2946
2947/*
2948 * Files are in form:
2949 static char *name = "....";
2950 with possible comments.
2951 */
8bbe427f 2952
fd71308f 2953bool wxResourceReadOneResourceString(char *s, wxExprDatabase& db, bool *eof, wxResourceTable *table)
aad5220b
JS		 2954{
2955 if (!table)
2956 table = wxDefaultResourceTable;
8bbe427f 2957
aad5220b
JS		 2958 // static or #define
2959 if (!wxGetResourceTokenString(s))
2960 {
2961 *eof = TRUE;
2962 return FALSE;
2963 }
2964
2965 if (strcmp(wxResourceBuffer, "#define") == 0)
2966 {
2967 wxGetResourceTokenString(s);
dcf924a3 2968 wxChar *name = copystring(wxConvCurrent->cMB2WX(wxResourceBuffer));
aad5220b 2969 wxGetResourceTokenString(s);
dcf924a3 2970 wxChar *value = copystring(wxConvCurrent->cMB2WX(wxResourceBuffer));
33bbfe4b 2971 if (wxIsdigit(value[0]))
aad5220b 2972 {
d44f866a 2973 int val = (int)wxAtol(value);
aad5220b
JS		 2974 wxResourceAddIdentifier(name, val, table);
2975 }
2976 else
2977 {
e17e4f28 2978 wxLogWarning(_("#define %s must be an integer."), name);
aad5220b
JS		 2979 delete[] name;
2980 delete[] value;
2981 return FALSE;
2982 }
2983 delete[] name;
2984 delete[] value;
8bbe427f 2985
aad5220b
JS		 2986 return TRUE;
2987 }
2988/*
2989 else if (strcmp(wxResourceBuffer, "#include") == 0)
2990 {
2991 wxGetResourceTokenString(s);
2992 char *name = copystring(wxResourceBuffer);
2993 char *actualName = name;
2994 if (name[0] == '"')
2995 actualName = name + 1;
2996 int len = strlen(name);
2997 if ((len > 0) && (name[len-1] == '"'))
2998 name[len-1] = 0;
2999 if (!wxResourceParseIncludeFile(actualName, table))
3000 {
3001 char buf[400];
1a5a8367 3002 sprintf(buf, _("Could not find resource include file %s."), actualName);
e17e4f28 3003 wxLogWarning(buf);
aad5220b
JS		 3004 }
3005 delete[] name;
3006 return TRUE;
3007 }
3008*/
3009 else if (strcmp(wxResourceBuffer, "static") != 0)
3010 {
d44f866a
OK		 3011 wxChar buf[300];
3012 wxStrcpy(buf, _("Found "));
dcf924a3 3013 wxStrncat(buf, wxConvCurrent->cMB2WX(wxResourceBuffer), 30);
d44f866a 3014 wxStrcat(buf, _(", expected static, #include or #define\nwhilst parsing resource."));
e17e4f28 3015 wxLogWarning(buf);
aad5220b
JS		 3016 return FALSE;
3017 }
3018
3019 // char
3020 if (!wxGetResourceTokenString(s))
3021 {
e17e4f28 3022 wxLogWarning(_("Unexpected end of file whilst parsing resource."));
aad5220b
JS		 3023 *eof = TRUE;
3024 return FALSE;
3025 }
3026
3027 if (strcmp(wxResourceBuffer, "char") != 0)
3028 {
e17e4f28 3029 wxLogWarning(_("Expected 'char' whilst parsing resource."));
aad5220b
JS		 3030 return FALSE;
3031 }
8bbe427f 3032
aad5220b
JS		 3033 // *name
3034 if (!wxGetResourceTokenString(s))
3035 {
e17e4f28 3036 wxLogWarning(_("Unexpected end of file whilst parsing resource."));
aad5220b
JS		 3037 *eof = TRUE;
3038 return FALSE;
3039 }
3040
3041 if (wxResourceBuffer[0] != '*')
3042 {
e17e4f28 3043 wxLogWarning(_("Expected '*' whilst parsing resource."));
aad5220b
JS		 3044 return FALSE;
3045 }
d44f866a
OK		 3046 wxChar nameBuf[100];
3047 wxMB2WX(nameBuf, wxResourceBuffer+1, 99);
3048 nameBuf[99] = 0;
8bbe427f 3049
aad5220b
JS		 3050 // =
3051 if (!wxGetResourceTokenString(s))
3052 {
e17e4f28 3053 wxLogWarning(_("Unexpected end of file whilst parsing resource."));
aad5220b
JS		 3054 *eof = TRUE;
3055 return FALSE;
3056 }
3057
3058 if (strcmp(wxResourceBuffer, "=") != 0)
3059 {
e17e4f28 3060 wxLogWarning(_("Expected '=' whilst parsing resource."));
aad5220b
JS		 3061 return FALSE;
3062 }
3063
3064 // String
3065 if (!wxGetResourceTokenString(s))
3066 {
e17e4f28 3067 wxLogWarning(_("Unexpected end of file whilst parsing resource."));
aad5220b
JS		 3068 *eof = TRUE;
3069 return FALSE;
3070 }
3071 else
3072 {
3073 if (!db.ReadPrologFromString(wxResourceBuffer))
3074 {
e17e4f28 3075 wxLogWarning(_("%s: ill-formed resource file syntax."), nameBuf);
aad5220b
JS		 3076 return FALSE;
3077 }
3078 }
3079 // Semicolon
3080 if (!wxGetResourceTokenString(s))
3081 {
3082 *eof = TRUE;
3083 }
3084 return TRUE;
3085}
3086
3087bool wxResourceParseString(char *s, wxResourceTable *table)
3088{
3089 if (!table)
3090 table = wxDefaultResourceTable;
8bbe427f 3091
aad5220b
JS		 3092 if (!s)
3093 return FALSE;
8bbe427f
VZ		 3094
3095 // Turn backslashes into spaces
aad5220b
JS		 3096 if (s)
3097 {
3098 int len = strlen(s);
3099 int i;
3100 for (i = 0; i < len; i++)
3101 if (s[i] == 92 && s[i+1] == 13)
3102 {
3103 s[i] = ' ';
3104 s[i+1] = ' ';
3105 }
3106 }
3107
fd71308f 3108 wxExprDatabase db;
aad5220b
JS		 3109 wxResourceStringPtr = 0;
3110
3111 bool eof = FALSE;
3112 while (wxResourceReadOneResourceString(s, db, &eof, table) && !eof)
3113 {
3114 // Loop
3115 }
3116 return wxResourceInterpretResources(*table, db);
3117}
3118
3119/*
3120 * resource loading facility
3121 */
3122
f03fc89f 3123bool wxWindowBase::LoadFromResource(wxWindow *parent, const wxString& resourceName, const wxResourceTable *table)
aad5220b
JS		 3124{
3125 if (!table)
3126 table = wxDefaultResourceTable;
8bbe427f 3127
d44f866a 3128 wxItemResource *resource = table->FindResource((const wxChar *)resourceName);
aad5220b 3129// if (!resource || (resource->GetType() != wxTYPE_DIALOG_BOX))
223d09f6
KB		 3130 if (!resource || (resource->GetType() == wxT("")) ||
3131 ! ((resource->GetType() == wxT("wxDialog")) || (resource->GetType() == wxT("wxPanel"))))
aad5220b
JS		 3132 return FALSE;
3133
fd71308f 3134 wxString title(resource->GetTitle());
aad5220b
JS		 3135 long theWindowStyle = resource->GetStyle();
3136 bool isModal = (resource->GetValue1() != 0);
3137 int x = resource->GetX();
3138 int y = resource->GetY();
3139 int width = resource->GetWidth();
3140 int height = resource->GetHeight();
fd71308f 3141 wxString name = resource->GetName();
aad5220b
JS		 3142
3143 if (IsKindOf(CLASSINFO(wxDialog)))
3144 {
3145 wxDialog *dialogBox = (wxDialog *)this;
fd71308f 3146 long modalStyle = isModal ? wxDIALOG_MODAL : 0;
aad5220b
JS		 3147 if (!dialogBox->Create(parent, -1, title, wxPoint(x, y), wxSize(width, height), theWindowStyle|modalStyle, name))
3148 return FALSE;
fd71308f
JS		 3149
3150 // Only reset the client size if we know we're not going to do it again below.
3151 if ((resource->GetResourceStyle() & wxRESOURCE_DIALOG_UNITS) == 0)
3152 dialogBox->SetClientSize(width, height);
3153 }
3154 else if (IsKindOf(CLASSINFO(wxPanel)))
3155 {
3156 wxPanel* panel = (wxPanel *)this;
717a57c2 3157 if (!panel->Create(parent, -1, wxPoint(x, y), wxSize(width, height), theWindowStyle | wxTAB_TRAVERSAL, name))
fd71308f 3158 return FALSE;
aad5220b
JS		 3159 }
3160 else
3161 {
f03fc89f 3162 if (!((wxWindow *)this)->Create(parent, -1, wxPoint(x, y), wxSize(width, height), theWindowStyle, name))
aad5220b
JS		 3163 return FALSE;
3164 }
3165
fd71308f
JS		 3166 if ((resource->GetResourceStyle() & wxRESOURCE_USE_DEFAULTS) != 0)
3167 {
3168 // No need to do this since it's done in wxPanel or wxDialog constructor.
3169 // SetFont(wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT));
3170 }
3171 else
3172 {
3173 if (resource->GetFont().Ok())
3174 SetFont(resource->GetFont());
3175 if (resource->GetBackgroundColour().Ok())
3176 SetBackgroundColour(resource->GetBackgroundColour());
3177 }
aad5220b 3178
fd71308f 3179 // Should have some kind of font at this point
c0ed460c 3180 if (!GetFont().Ok())
fd71308f
JS		 3181 SetFont(wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT));
3182 if (!GetBackgroundColour().Ok())
3183 SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
3184
3185 // Only when we've created the window and set the font can we set the correct size,
3186 // if based on dialog units.
3187 if ((resource->GetResourceStyle() & wxRESOURCE_DIALOG_UNITS) != 0)
3188 {
3189 wxSize sz = ConvertDialogToPixels(wxSize(width, height));
3190 SetClientSize(sz.x, sz.y);
3191
3192 wxPoint pt = ConvertDialogToPixels(wxPoint(x, y));
3193 Move(pt.x, pt.y);
3194 }
aad5220b 3195
aad5220b
JS		 3196 // Now create children
3197 wxNode *node = resource->GetChildren().First();
3198 while (node)
3199 {
3200 wxItemResource *childResource = (wxItemResource *)node->Data();
8bbe427f 3201
fd71308f 3202 (void) CreateItem(childResource, resource, table);
aad5220b
JS		 3203
3204 node = node->Next();
3205 }
3206 return TRUE;
3207}
3208
f03fc89f 3209wxControl *wxWindowBase::CreateItem(const wxItemResource *resource, const wxItemResource* parentResource, const wxResourceTable *table)
aad5220b
JS		 3210{
3211 if (!table)
3212 table = wxDefaultResourceTable;
fd71308f 3213 return table->CreateItem((wxWindow *)this, resource, parentResource);
aad5220b
JS		 3214}
3215
3f4a0c5b 3216#ifdef __VISUALC__
fd3f686c
VZ		 3217 #pragma warning(default:4706) // assignment within conditional expression
3218#endif // VC++
3219
3b1de9c2
JS		 3220#endif
3221 // BC++/Win16
3222
47d67540 3223#endif // wxUSE_WX_RESOURCES
wxWidgets (Impactor)