interface prolog
salut à tous , j'ai fait un interface avec swi-prolog , il se compile bien mais les champs de l'interface sont nombreux et situés
verticalement donc ils ne sont pas tous visualisés , si quelqu’un peut m'aider pour les organiser 3 champs par ligne .
voici le code:
- Code: Tout sélectionner
:-use_module(library('semweb/rdf_db')).
:-rdf_load('MetaProPOSv2.owl').
:-rdf_save('nv_dossier').
test:-
new(D, dialog('Enter new patron')),
send(D, append, new(label)),
send(D, size, size(7000, 7000)),
send(D, append, new(Name, text_item(name))),
send(D, append, new(Author, text_item(author))),
send(D, append, new(Keyword, text_item(keyword))),
send(D,append,new(Identifier, text_item(identifier))),
send(D,append,new(Abstraction_level, text_item(abstraction_level))),
send(D,append,new(Collection, text_item(collection))),
send(D,append,new(Domain, text_item(domain))),
send(D,append,new(Type, text_item(type))),
send(D,append,new(Problem, text_item(problem))),
send(D,append,new(Solution, text_item(solution))),
send(D,append,new(Initial_context, text_item(initial_context))),
send(D,append,new(Resulting_context, text_item(resulting_context))),
send(D,append,new(Confidence, text_item(confidence))),
send(D,append,new(Discussion, text_item(force))),
send(D,append,new(Application, text_item(application))),
send(D,append,new(Exemple, text_item(exemple))),
send(D,append,new(Tool, text_item(tool))),
send(D,append,new(Change_log, text_item(change_log))),
send(D,append,new(Creation_date, text_item(creation_date))),
send(D,append,new(License, text_item(license))),
send(D,append,new(Version, text_item(version))),
send(D,append,new(Alternative, text_item(alternative))),
send(D,append,new(Anti_pattern, text_item(anti_pattern))),
send(D,append,new(Refined, text_item(refined))),
send(D,append,new(Required, text_item(required))),
send(D,append,new(Similar, text_item(similar))),
send(Identifier, type, int),
send(D, append,
button(create, message(@prolog, create_pattern,
Name?selection,
Author?selection,
Keyword?selection,
Identifier?selection,
Abstraction_level?selection,
Collection?selection,
Domain?selection,
Type?selection,
Problem?selection,
Solution?selection,
Initial_context?selection,
Resulting_context?selection,
Confidence?selection,
Discussion?selection,
Application?selection,
Exemple?selection,
Tool?selection,
Change_log?selection,
Creation_date?selection,
License?selection,
Version?selection,
Alternative?selection,
Anti_pattern?selection,
Refined?selection,
Required?selection,
Similar?selection
))),
send(D, default_button, create),% default button l'orsque en execute le programme on obtien par defaut le button create selectionne
send(D, append, button(cancel,message(D,destroy))), % button cancel pour ferme l'interface
send(D, open).% pour ouvrire li'nterface
create_pattern(Name,Author,Keyword,Identifier,Abstraction_level,Collection,Domain,Type,Problem,Solution,Initial_context,Resulting_context,Confidence,Discussion,Application,Exemple,Tool,Change_log,Creation_date,License,Version,Alternative,Anti_pattern,Refined,Required,Similar):- rdf_assert(pattern1, 'http://www.semanticweb.org/ontologies/2013/11/20/MetaProPOSv2.owl#hasName', Name),
rdf_assert(pattern1, hasAuthor, Author),
rdf_assert(pattern1, hasKeyword, Keyword),
rdf_assert(pattern1, hasIdentifier, Identifier),
rdf_assert(pattern1, hasAbstraction_level, Abstraction_level),
rdf_assert(pattern1, hasCollection, Collection),
rdf_assert(pattern1, hasDomain, Domain),
rdf_assert(pattern1, hasType, Type),
rdf_assert(pattern1, hasProblem, Problem),
rdf_assert(pattern1, hasSolution, Solution),
rdf_assert(pattern1, hasInitial_context, Initial_context),
rdf_assert(pattern1, hasResulting_context, Resulting_context),
rdf_assert(pattern1, hasConfidence, Confidence),
rdf_assert(pattern1, hasDiscussion, Discussion),
rdf_assert(pattern1, hasApplication, Application),
rdf_assert(pattern1, hasExemple, Exemple),
rdf_assert(pattern1, hasTool, Tool),
rdf_assert(pattern1, hasChange_log, Change_log),
rdf_assert(pattern1, hasCreation_date, Creation_date),
rdf_assert(pattern1, hasLicense, License),
rdf_assert(pattern1, hasVersion, Version),
rdf_assert(pattern1, hasAlternative, Alternative),
rdf_assert(pattern1, hasAnti_pattern, Anti_pattern),
rdf_assert(pattern1, hasRefined, Refined),
rdf_assert(pattern1, hasRequired, Required),
rdf_assert(pattern1, hasSimilar, Similar).
