Que son las lineas de codigo???

[Galliani]

tu eres peor que un niño pequeño cuando pregunta de la siguiente forma: pero por que?, y para que??, de dónde viene?? y si es rojo porque no es negro?? ... :clap1:

Editado 2 de Febrero del 2007 por Galliani

[fitille]

Podrian ser las lineas de codigo algo como este fragmento que copio y pego de uno d elos archivos de tu programa???

 

þíúÎ ? ", • 8__PAGEZERO Ð__TEXT € € __text __TEXT y ` i € __picsymbol_stub__TEXT h oh € $__symbol_stub __TEXT h oh € __picsymbolstub1__TEXT h ` oh € __cstring __TEXT €È H pÈ __symbol_stub1 __TEXT ƒ @ s €

Œ__DATA € __data __DATA € __la_symbol_ptr __DATA 8 € __nl_symbol_ptr __DATA X €X __dyld __DATA l €l __common __DATA 8 ¼__OBJC __cat_cls_meth __OBJC __cat_inst_meth __OBJC __string_object __OBJC __cstring_object__OBJC __message_refs __OBJC , __sel_fixup __OBJC , , __cls_refs __OBJC , , __class __OBJC D 0 D __meta_class __OBJC t 0 t __cls_meth __OBJC ¤ ¤ __inst_meth __OBJC ¤ ¤ __protocol __OBJC Ä Ä __category __OBJC Ä Ä __class_vars __OBJC Ä Ä __instance_vars __OBJC Ä Ä __module_info __OBJC à à __symbols __OBJC ð ð 8__LINKEDIT ° ( (

 

Creo que no. :clap1:

 

¿Pero esto que es??????

[a4avant]

Podrian ser las lineas de codigo algo como este fragmento que copio y pego de uno d elos archivos de tu programa???

 

þíúÎ ? ", • 8__PAGEZERO Ð__TEXT € € __text __TEXT y ` i € __picsymbol_stub__TEXT h oh € $__symbol_stub __TEXT h oh € __picsymbolstub1__TEXT h ` oh € __cstring __TEXT €È H pÈ __symbol_stub1 __TEXT ƒ @ s €

Œ__DATA € __data __DATA € __la_symbol_ptr __DATA 8 € __nl_symbol_ptr __DATA X €X __dyld __DATA l €l __common __DATA 8 ¼__OBJC __cat_cls_meth __OBJC __cat_inst_meth __OBJC __string_object __OBJC __cstring_object__OBJC __message_refs __OBJC , __sel_fixup __OBJC , , __cls_refs __OBJC , , __class __OBJC D 0 D __meta_class __OBJC t 0 t __cls_meth __OBJC ¤ ¤ __inst_meth __OBJC ¤ ¤ __protocol __OBJC Ä Ä __category __OBJC Ä Ä __class_vars __OBJC Ä Ä __instance_vars __OBJC Ä Ä __module_info __OBJC à à __symbols __OBJC ð ð 8__LINKEDIT ° ( (

 

Creo que no. :clap1:

 

¿Pero esto que es??????

 

Es lo que yo he puesto?

[RomuloTDI]

Podrian ser las lineas de codigo algo como este fragmento que copio y pego de uno d elos archivos de tu programa???

 

þíúÎ ? ", • 8__PAGEZERO Ð__TEXT € € __text __TEXT y ` i € __picsymbol_stub__TEXT h oh € $__symbol_stub __TEXT h oh € __picsymbolstub1__TEXT h ` oh € __cstring __TEXT €È H pÈ __symbol_stub1 __TEXT ƒ @ s €

Œ__DATA € __data __DATA € __la_symbol_ptr __DATA 8 € __nl_symbol_ptr __DATA X €X __dyld __DATA l €l __common __DATA 8 ¼__OBJC __cat_cls_meth __OBJC __cat_inst_meth __OBJC __string_object __OBJC __cstring_object__OBJC __message_refs __OBJC , __sel_fixup __OBJC , , __cls_refs __OBJC , , __class __OBJC D 0 D __meta_class __OBJC t 0 t __cls_meth __OBJC ¤ ¤ __inst_meth __OBJC ¤ ¤ __protocol __OBJC Ä Ä __category __OBJC Ä Ä __class_vars __OBJC Ä Ä __instance_vars __OBJC Ä Ä __module_info __OBJC à à __symbols __OBJC ð ð 8__LINKEDIT ° ( (

 

Creo que no. :clap1:

 

¿Pero esto que es??????

Y me lo preguntas a mi??, el que hzo el programa fue a4avant.

Editado 2 de Febrero del 2007 por RomuloTDI

[a4avant]

Podrian ser las lineas de codigo algo como este fragmento que copio y pego de uno d elos archivos de tu programa???

 

þíúÎ ? ", • 8__PAGEZERO Ð__TEXT € € __text __TEXT y ` i € __picsymbol_stub__TEXT h oh € $__symbol_stub __TEXT h oh € __picsymbolstub1__TEXT h ` oh € __cstring __TEXT €È H pÈ __symbol_stub1 __TEXT ƒ @ s €

Œ__DATA € __data __DATA € __la_symbol_ptr __DATA 8 € __nl_symbol_ptr __DATA X €X __dyld __DATA l €l __common __DATA 8 ¼__OBJC __cat_cls_meth __OBJC __cat_inst_meth __OBJC __string_object __OBJC __cstring_object__OBJC __message_refs __OBJC , __sel_fixup __OBJC , , __cls_refs __OBJC , , __class __OBJC D 0 D __meta_class __OBJC t 0 t __cls_meth __OBJC ¤ ¤ __inst_meth __OBJC ¤ ¤ __protocol __OBJC Ä Ä __category __OBJC Ä Ä __class_vars __OBJC Ä Ä __instance_vars __OBJC Ä Ä __module_info __OBJC à à __symbols __OBJC ð ð 8__LINKEDIT ° ( (

 

Creo que no. :clap1:

 

¿Pero esto que es??????

Y me lo preguntas a mi??, el que hzo el programa fue a4avant.

 

yo?????

 

 

Yo te he puesto el enlace de un programa que utilizo, no que he hecho.

 

Supongo que eso será un icono o sabe dios que, como se llama el archivo?

[fitille]

tu eres peor que un niño pequeño cuando pregunta de la siguiente forma: pero por que?, y para que??, de dónde viene?? y si es rojo porque no es negro?? ... :clap1:

 

Tengo suerte que mi hijo todavia no pregunta esas cosas...

Editado 2 de Febrero del 2007 por fitille

[Galliani]

y sigue con el tiovivo, vueltas y más vueltas sin parar, conclusión: reducción a lo absurdo...RomuloTDI quieres que tb te explique lo que es la lógica en filosofía o esto ya lo sabes... :clap1:

Editado 2 de Febrero del 2007 por Galliani

[a4avant]

Esto es código, ¿no fitille?

#########################################

# Chat Window code abstraction #

# By Alberto Díaz #

#########################################

 

package require framec

package require scalable-bg

 

namespace eval ::ChatWindow {

 

#///////////////////////////////////////////////////////////////////////////////

# Namespace variables, relative to chat windows' data. In the code are accessible

# through '::namespace::variable' syntax (to avoid local instances of the variable

# and have the scope more clear).

 

# As ::ChatWindow::winid is the index used in the

# window widgets for chat windows, we only initialize

# it at the first time, to avoid problems with proc

# reload_files wich will cause some bugs related to

# winid being 0 after some windows have been created.

if { $initialize_amsn == 1 } {

variable chat_ids

variable first_message

variable msg_windows

variable new_message_on

variable recent_message

variable titles

variable windows

variable winid 0

variable containers

variable containerwindows

variable tab2win

variable win2tab

variable containercurrent

variable containerid 0

variable scrolling

 

}

#///////////////////////////////////////////////////////////////////////////////

 

 

#///////////////////////////////////////////////////////////////////////////////

# ::ChatWindow::rotext -- Read Only text widget via snit

# Changes must be made by "ins" and "del", not "insert" and "delete".

# Leave the window state as "normal" so cut and paste work on all platforms.

# From example on http://wiki.tcl.tk/3963

::snit::widgetadaptor rotext {

constructor {args} {

# Turn off the insert cursor

#installhull using text $self -insertwidth 0

# DDG the $self gaves an error at least with 0.97 onwards

installhull using text -insertwidth 0

 

# Apply an options passed at creation time.

$self configurelist $args

}

 

# Disable the insert and delete methods, to make this readonly.

method insert {args} {}

method delete {args} {}

 

# Enable roinsert and rodelete as synonyms, so the program can insert and

# delete.

delegate method roinsert to hull as insert

delegate method rodelete to hull as delete

 

# Pass all other methods and options to the real text widget, so

# that the remaining behavior is as expected.

delegate method * to hull

delegate option * to hull

}

#///////////////////////////////////////////////////////////////////////////////

 

 

 

#///////////////////////////////////////////////////////////////////////////////

# ::ChatWindow::Change (chatid, newchatid)

# This proc is called from the protocol layer when a private chat changes into a

# conference, right after a JOI command comes from the SB. It means that the window

# assigned to $chatid should now be related to $newchatid. ::ChatWindow::Change

# will return the new chatid if the change is OK (no other window for that name

# exists), or the old chatid if the change is not right

# Arguments:

# - chatid => Is the name of the chat that was a single private before.

# - newchatid => Is the new id of the chat for the conference

proc Change { chatid newchatid } {

set win_name [::ChatWindow::For $chatid]

 

if { $win_name == 0 } {

# Old window window does not exists, so just accept the change, no worries

status_log "::ChatWindow::Change: Window doesn't exist (probably invited to a conference)\n"

return $newchatid

}

 

if { [::ChatWindow::For $newchatid] != 0} {

#Old window existed, probably a conference, but new one exists too, so we can't

#just allow that messages shown in old window now are shown in a different window,

#that wouldn't be nice, so don't allow change

status_log "conference wants to become private, but there's already a window\n"

return $chatid

}

 

#So, we had an old window for chatid, but no window for newchatid, so the window will

#change it's assigned chat

::ChatWindow::UnsetFor $chatid $win_name

::ChatWindow::SetFor $newchatid $win_name

 

status_log "::ChatWindow::Change: changing $chatid into $newchatid\n"

 

return $newchatid

}

#///////////////////////////////////////////////////////////////////////////////

 

 

#///////////////////////////////////////////////////////////////////////////////

# ::ChatWindow::GetTopFrame (window)

# Returns the path to the top frame (containing "To: ...") for a given window

# Arguments:

# - window => Is the chat window widget (.msg_n - Where n is an integer)

proc GetTopFrame { window } {

return $window.top

}

#///////////////////////////////////////////////////////////////////////////////

 

 

#///////////////////////////////////////////////////////////////////////////////

# ::ChatWindow::GetOutText (window)

# Returns the path to the output text widget in a given window

# Arguments:

# - window => Is the chat window widget (.msg_n - Where n is an integer)

proc GetOutText { window } {

return $window.f.out.scroll.text

}

#///////////////////////////////////////////////////////////////////////////////

 

 

#///////////////////////////////////////////////////////////////////////////////

# ::ChatWindow::GetInputText (window)

# Returns the path to the input text widget in a given window

# Arguments:

# - window => Is the chat window widget (.msg_n - Where n is an integer)

proc GetInputText { window } {

return [$window.f.bottom.left.in getinnerframe].text

}

#///////////////////////////////////////////////////////////////////////////////

 

 

#///////////////////////////////////////////////////////////////////////////////

# ::ChatWindow::GetStatusText (window)

# Returns the path to the statusbar text widget in a given window

# Arguments:

# - window => Is the chat window widget (.msg_n - Where n is an integer)

proc GetStatusText { window } {

return [$window.statusbar getinnerframe].status

[RomuloTDI]

Podrian ser las lineas de codigo algo como este fragmento que copio y pego de uno d elos archivos de tu programa???

 

þíúÎ ? ", • 8__PAGEZERO Ð__TEXT € € __text __TEXT y ` i € __picsymbol_stub__TEXT h oh € $__symbol_stub __TEXT h oh € __picsymbolstub1__TEXT h ` oh € __cstring __TEXT €È H pÈ __symbol_stub1 __TEXT ƒ @ s €

Œ__DATA € __data __DATA € __la_symbol_ptr __DATA 8 € __nl_symbol_ptr __DATA X €X __dyld __DATA l €l __common __DATA 8 ¼__OBJC __cat_cls_meth __OBJC __cat_inst_meth __OBJC __string_object __OBJC __cstring_object__OBJC __message_refs __OBJC , __sel_fixup __OBJC , , __cls_refs __OBJC , , __class __OBJC D 0 D __meta_class __OBJC t 0 t __cls_meth __OBJC ¤ ¤ __inst_meth __OBJC ¤ ¤ __protocol __OBJC Ä Ä __category __OBJC Ä Ä __class_vars __OBJC Ä Ä __instance_vars __OBJC Ä Ä __module_info __OBJC à à __symbols __OBJC ð ð 8__LINKEDIT ° ( (

 

Creo que no. :clap1:

 

¿Pero esto que es??????

Y me lo preguntas a mi??, el que hzo el programa fue a4avant.

 

yo?????

 

 

Yo te he puesto el enlace de un programa que utilizo, no que he hecho.

 

Supongo que eso será un icono o sabe dios que, como se llama el archivo?

sndplay, asi se llama

[a4avant]

Podrian ser las lineas de codigo algo como este fragmento que copio y pego de uno d elos archivos de tu programa???

 

þíúÎ ? ", • 8__PAGEZERO Ð__TEXT € € __text __TEXT y ` i € __picsymbol_stub__TEXT h oh € $__symbol_stub __TEXT h oh € __picsymbolstub1__TEXT h ` oh € __cstring __TEXT €È H pÈ __symbol_stub1 __TEXT ƒ @ s €

Œ__DATA € __data __DATA € __la_symbol_ptr __DATA 8 € __nl_symbol_ptr __DATA X €X __dyld __DATA l €l __common __DATA 8 ¼__OBJC __cat_cls_meth __OBJC __cat_inst_meth __OBJC __string_object __OBJC __cstring_object__OBJC __message_refs __OBJC , __sel_fixup __OBJC , , __cls_refs __OBJC , , __class __OBJC D 0 D __meta_class __OBJC t 0 t __cls_meth __OBJC ¤ ¤ __inst_meth __OBJC ¤ ¤ __protocol __OBJC Ä Ä __category __OBJC Ä Ä __class_vars __OBJC Ä Ä __instance_vars __OBJC Ä Ä __module_info __OBJC à à __symbols __OBJC ð ð 8__LINKEDIT ° ( (

 

Creo que no. :clap1:

 

¿Pero esto que es??????

Y me lo preguntas a mi??, el que hzo el programa fue a4avant.

 

yo?????

 

 

Yo te he puesto el enlace de un programa que utilizo, no que he hecho.

 

Supongo que eso será un icono o sabe dios que, como se llama el archivo?

sndplay, asi se llama

 

Pues tiene toda la pinta de ser o un archivo de audio. Diría que un reproductor, pero creo que el amsn no tiene reproductor de audio propio, utiliza el del s.o.

[fitille]

Esto es código, ¿no fitille?

#########################################

# Chat Window code abstraction #

# By Alberto Díaz #

#########################################

 

package require framec

package require scalable-bg

 

namespace eval ::ChatWindow {

 

#///////////////////////////////////////////////////////////////////////////////

# Namespace variables, relative to chat windows' data. In the code are accessible

# through '::namespace::variable' syntax (to avoid local instances of the variable

# and have the scope more clear).

 

# As ::ChatWindow::winid is the index used in the

# window widgets for chat windows, we only initialize

# it at the first time, to avoid problems with proc

# reload_files wich will cause some bugs related to

# winid being 0 after some windows have been created.

if { $initialize_amsn == 1 } {

variable chat_ids

variable first_message

variable msg_windows

variable new_message_on

variable recent_message

variable titles

variable windows

variable winid 0

variable containers

variable containerwindows

variable tab2win

variable win2tab

variable containercurrent

variable containerid 0

variable scrolling

 

}

#///////////////////////////////////////////////////////////////////////////////

 

 

#///////////////////////////////////////////////////////////////////////////////

# ::ChatWindow::rotext -- Read Only text widget via snit

# Changes must be made by "ins" and "del", not "insert" and "delete".

# Leave the window state as "normal" so cut and paste work on all platforms.

# From example on http://wiki.tcl.tk/3963

::snit::widgetadaptor rotext {

constructor {args} {

# Turn off the insert cursor

#installhull using text $self -insertwidth 0

# DDG the $self gaves an error at least with 0.97 onwards

installhull using text -insertwidth 0

 

# Apply an options passed at creation time.

$self configurelist $args

}

 

# Disable the insert and delete methods, to make this readonly.

method insert {args} {}

method delete {args} {}

 

# Enable roinsert and rodelete as synonyms, so the program can insert and

# delete.

delegate method roinsert to hull as insert

delegate method rodelete to hull as delete

 

# Pass all other methods and options to the real text widget, so

# that the remaining behavior is as expected.

delegate method * to hull

delegate option * to hull

}

#///////////////////////////////////////////////////////////////////////////////

 

 

 

#///////////////////////////////////////////////////////////////////////////////

# ::ChatWindow::Change (chatid, newchatid)

# This proc is called from the protocol layer when a private chat changes into a

# conference, right after a JOI command comes from the SB. It means that the window

# assigned to $chatid should now be related to $newchatid. ::ChatWindow::Change

# will return the new chatid if the change is OK (no other window for that name

# exists), or the old chatid if the change is not right

# Arguments:

# - chatid => Is the name of the chat that was a single private before.

# - newchatid => Is the new id of the chat for the conference

proc Change { chatid newchatid } {

set win_name [::ChatWindow::For $chatid]

 

if { $win_name == 0 } {

# Old window window does not exists, so just accept the change, no worries

status_log "::ChatWindow::Change: Window doesn't exist (probably invited to a conference)\n"

return $newchatid

}

 

if { [::ChatWindow::For $newchatid] != 0} {

#Old window existed, probably a conference, but new one exists too, so we can't

#just allow that messages shown in old window now are shown in a different window,

#that wouldn't be nice, so don't allow change

status_log "conference wants to become private, but there's already a window\n"

return $chatid

}

 

#So, we had an old window for chatid, but no window for newchatid, so the window will

#change it's assigned chat

::ChatWindow::UnsetFor $chatid $win_name

::ChatWindow::SetFor $newchatid $win_name

 

status_log "::ChatWindow::Change: changing $chatid into $newchatid\n"

 

return $newchatid

}

#///////////////////////////////////////////////////////////////////////////////

 

 

#///////////////////////////////////////////////////////////////////////////////

# ::ChatWindow::GetTopFrame (window)

# Returns the path to the top frame (containing "To: ...") for a given window

# Arguments:

# - window => Is the chat window widget (.msg_n - Where n is an integer)

proc GetTopFrame { window } {

return $window.top

}

#///////////////////////////////////////////////////////////////////////////////

 

 

#///////////////////////////////////////////////////////////////////////////////

# ::ChatWindow::GetOutText (window)

# Returns the path to the output text widget in a given window

# Arguments:

# - window => Is the chat window widget (.msg_n - Where n is an integer)

proc GetOutText { window } {

return $window.f.out.scroll.text

}

#///////////////////////////////////////////////////////////////////////////////

 

 

#///////////////////////////////////////////////////////////////////////////////

# ::ChatWindow::GetInputText (window)

# Returns the path to the input text widget in a given window

# Arguments:

# - window => Is the chat window widget (.msg_n - Where n is an integer)

proc GetInputText { window } {

return [$window.f.bottom.left.in getinnerframe].text

}

#///////////////////////////////////////////////////////////////////////////////

 

 

#///////////////////////////////////////////////////////////////////////////////

# ::ChatWindow::GetStatusText (window)

# Returns the path to the statusbar text widget in a given window

# Arguments:

# - window => Is the chat window widget (.msg_n - Where n is an integer)

proc GetStatusText { window } {

return [$window.statusbar getinnerframe].status

 

Son Widgets, son mas parecidos a scripts que a programas...

[fitille]

Para leer...

 

http://es.wikipedia.org/wiki/Widget

[a4avant]

Romulo en lo que te has bajado tienes un monton de lineas de código, lo que no se decirte que ficheros son los del programa en sí.

[Galliani]

Romulo en lo que te has bajado tienes un monton de lineas de código, lo que no se decirte que ficheros son los del programa en sí.

Se fue del foro por malta de motivación para llegar a supergurú... :clap1: :clap1:

[a4avant]

Romulo en lo que te has bajado tienes un monton de lineas de código, lo que no se decirte que ficheros son los del programa en sí.

Se fue del foro por malta de motivación para llegar a supergurú... :clap1:

 

Que de caña le estais dando hoy :clap1: